Re: pragma import ambiguity

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On Wed, 06 Sep 2006 13:34:27 -0400, Frank J. Lhota wrote:

> tmoran@acm.org wrote:
>> One Ada compiler accepts this, another doesn't. I agree with the one that
>> objects.  Are we wrong?
>> procedure testimp is
>>   type logicopenm is ( clear, gl_and);
>>   procedure clear(mask:integer);
>>   pragma import(stdcall,clear,"glclear");
>> begin
>>   null;
>> end testimp;
> 
> Of course, one may argue that B.1 should not apply to enumeration 
> literals, but even so, this kind of overloading is not recommended. My 
> advice would be to give the enumeration literal and the procedure 
> separate names.

procedure Testimp is
  procedure Clear (mask:integer);
  pragma Import (stdcall, clear, "glclear");

  type logicopenm is (clear, gl_and);
begin
   null;
end Testimp;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de