ACCESS VIOLATION InitWithOptions

[geodo]

Hello

I get a access violation when i use InitWithOptions three times and i force that the first run, ant the other two fails.

I get an access violation in the third initwithoptions  if i use options string so long.

 optionsA : Api.Char_arr := interfaces.c.to_c("Simulate="&integer'image(standard.integer(device.Simul))&",RangeCheck="&integer'image(standard.integer(device.Range_check))&",QueryInstrStatus="&integer'image(standard.integer(device.Query_Instr))&",Cache="&integer'image(standard.integer(device.cache))&",DriverSetup="&fstr.trim(device.Driv_Setup,ada.strings.both));
      optionsB : Api.Char_arr := interfaces.c.to_c("Simulate="&integer'image(standard.integer(device.Simul))&",RangeCheck="&integer'image(standard.integer(device.Range_check))&",QueryInstrStatus="&integer'image(standard.integer(device.Query_Instr))&",Cache="&integer'image(standard.integer(device.cache)));

   begin

      if device = null then
         return;
      end if;

      if device.initCount = 0 then

         if device.InitFail = true then
            return;
         end if;

         hifu.card.lxi.commonfunctions.Add_LN(interfaces.c.to_c(fstr.trim(device.name,ada.strings.both)),
                                                 interfaces.c.to_c(fstr.trim(device.dir_ip,ada.strings.both)),
                                                 interfaces.c.to_c(fstr.trim(device.mod_id,ada.strings.both)),
                                                 interfaces.c.to_c(fstr.trim(device.model,ada.strings.both)),
                                                 error );

         if (standard.integer(error)/=0) then
            status := hStat.LXI.MODEL_NOT_SUPP;
            hStat.Message.Put_Buffer_Message( status, "There is not installed an IVI driver for"&
                                             fstr.trim(device.name,ada.strings.both));
            Text_IO.Put_line( "Setup/ConfigureSWTCH: There is not installed an IVI driver that supports the instruments model "&
                             fstr.trim(device.model,ada.strings.both)&
                             ". It is not possible to create an IviSession and logical name to control the Switch.");
            device.InitFail:=true;
            return;
         end if;

         if (fstr.trim(device.Driv_Setup,ada.strings.both)/="NONE") then
            error:=api.Swtch.func.InitWithOptions(interfaces.c.to_c(fstr.trim(device.name,ada.strings.both)),1,0,
                                                  optionsA,
                                                  device.Session'access);

         else
            error:=api.Swtch.func.InitWithOptions(interfaces.c.to_c(fstr.trim(device.name,ada.strings.both)),1,0,
                                                  optionsB,
                                                  device.Session'access);
         end if;

 Why?????

Thanks