Calling Win32 API functions with Gnat 3.09 (Win32 version)

Calling Win32 API functions with Gnat 3.09 (Win32 version)

[R.C.M. de Rooij]

Hi.

On my Windows 95 machine, using the Win32 version of GNAT 3.09, the
following program compiles and runs correctly.

   with Interfaces, Ada.Text_IO;

   procedure Strange_Behaviour is

      function GetVersion return Interfaces.Unsigned_32;
      pragma Import(Stdcall, GetVersion, "GetVersion");

   begin
      -- delay 100.0;
      Ada.Text_IO.Put_Line(Interfaces.Unsigned_32'Image(GetVersion));
   end Strange_Behaviour;

However, when I uncomment the 'delay' statement, it still compiles fine,
but when I run it, the program gives a segmentation fault (or the
equivalent), *before* the delay statment is executed.  Is this because I'm
doing anything wrong, or is this version of GNAT is not compatible with
Windows 95, or is it a bug?

Regards,

Ruud.
-- 
Ruud de Rooij                         |  The thirteenth day of the month is
r.c.m.derooij@twi.tudelft.nl          |  more often Friday than any other
http://sepc.twi.tudelft.nl/~derooij/  |  day of the week.