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

[Niklas Holsti <niklas.holsti@tidorum.invalid>]

On 13-07-22 22:08 , dd24fan wrote:
> 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 

Are those the types of the variables ACCESS_CARD and MODE -- the actual
parameters in the Initialize call -- or the types of the corresponding
formal parameters of Initialize? In other words, how is Initialize
declared in the .h file? The actual and formal types in C are not
necessarily the same, since C converts automatically. For the Ada
declaration, you should use the formal types.

Also, what are the values of ACCESS_CARD and MODE in the C program?

> 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 : S16Bit_Type := 1; 

I assume that these values of ACCESS_CARD and MODE match the values used
in the C program, right?

>                Result := Initialize (S16Bit_Type (Device_Num), 
>                                ACCESS_CARD, 
>                                MODE, 
>                                16#00000000#, 
>                                16#00000000#, 
>                                16#00000000#); 

(You could as well write the three last parameters using a single "0"
for each, just as in the C code. The hexadecimal base and the multiple
zeros make no difference.)

> Some notes: Device_Num is originally defined as an integer
> elsewhere in the code so I type cast it.   

That seems unnecessary, if (as your code suggests) this Device_Num is
the parameter to the Open procedure, because that parameter is declared
as S16Bit_Type, so there is no need to convert it to S16Bit_Type in the
calls. (But it does no harm either.)

You didn't say if this Ada code still hangs. Does it?

-- 
Niklas Holsti
Tidorum Ltd
niklas holsti tidorum fi
      .      @       .