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 16BIT
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 : U16Bit_Type := 16#0000#;
      MODE : 16Bit_Type := 1;
.
.

   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.