Re: .h header file in ObjectAda 8.2.2 source code?

[dd24fan <d3v3r4@gmail.com>]

Thanks for the insight. My latest debugging efforts have pointed me to the Initialization of the device.  I do have a compare of what the C code is doing because the vendor has software in a analyzer/simulator that i was able to run. 

Here is the snippet of the C code: 

============== 
. 
. 
. 
    S16BIT    s16Result = 0x0000; 
    S16BIT    s16DevNum = LOGICAL_DEVICE_NUMBER; 
. 
. 
    /* Initialize device */ 
    s16Result = Initialize(s16DevNum, ACCESS_CARD, MODE, 0, 0, 0); 
. 
. 
============== 
ACCESS_CARD is defined as S16BIT 
MODE is U16BIT 
The last 3 parameters are defined U32BIT 

so in my latest ada code i have this: 
============== 
. 
. 
   function Initialize (DevNum : S16Bit_Type; 
                            wAccess: S16Bit_Type;   
                            Mode : U16Bit_Type; 
                            Mem_Wrd_Size : U32Bit_Type; 
                            Reg_Addr : U32Bit_Type; 
                            Mem_Addr : U32Bit_Type 
                            ) return S16Bit_Type; 
   pragma Import (Stdcall, Initialize, "Initialize"); 
. 
. 
   procedure Open (Device_Num : in S16Bit_Type; 
                   Is_Open : in out Boolean; 
                   Good : out Boolean) is 

      Result : S16Bit_Type; 

      ACCESS_CARD : S16Bit_Type := 0; 
      MODE : U16Bit_Type := 16#0001#; 
. 
. 

   begin 
      Good := False; 
      
      Results := Gb.Msgbox(Text    => "procedure Open begin", 
                           Caption => "procedure Open begin", 
                           Style   => 4, 
                           Handle  => Gb.Handle(Form));               
      
      --    Initialize device 
      
               Result := Initialize (S16Bit_Type (Device_Num), 
                               ACCESS_CARD, 
                               MODE, 
                               16#00000000#, 
                               16#00000000#, 
                               16#00000000#); 

         Print (Device_Num, "Initialize => ", Result); 
          
         Results := Gb.Msgbox(Text    => "Initialized?", 
                                          Caption => "Initialized?", 
                                          Style   => 4, 
                                          Handle  => Gb.Handle(Form));         
. 
. 
. 
============== 
Some notes: Device_Num is originally defined as an integer elsewhere in the code so I type cast it.