Re: StdCall and pragma Import_Function

[Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>]

On 08/19/2011 01:07 PM, Felix Krause wrote:
>
> typedef unsigned __int64 cl_ulong;
> typedef cl_ulong cl_bitfield;
> typedef cl_bitfield cl_device_type;

So what is expected by the C is an unsigned 64-bit integer, not a 64-bit record 
with 2 1-bit fields. Another rule I use when interfacing with C is, when it is 
more meaningful in Ada to use a different kind of type from that used by C, to 
use the Ada equivalent of the C type and convert to and from the more meaningful 
Ada type, (The conversions should, of course, be hidden from the client of your 
interface.) This seems to be your work around to passing the record, so I guess 
you're good to go.

-- 
Jeff Carter
"Your mother was a hamster and your father smelt of elderberries."
Monty Python & the Holy Grail
06