Re: [Mingw-users] MinGW-users Digest, Vol 19, Issue 7

[Bruce A. <bru...@gm...>]

G'day everyone

Where am I going wrong with this? I'm trying to build a Windows DLL exposing
the SPITBOL tools.

Using the following bos.gpr, bos.ads and bos.adb, I get the following
error:

** bos.gpr:

project BOS is

   for Source_Dirs use ("C:\Documents and Settings\All Users\Documents
\Projects\bos", "C:\MinGW\lib\gcc\mingw32\4.2.1\/**");
   for Object_Dir use "C:\Documents and Settings\All Users\Documents
\Projects\bos";
   for Main use ("bos.adb", "bos.ads");
   for Library_Kind use "dynamic";

   package Builder is
      for Default_Switches ("ada") use ("-s", "-g");
   end Builder;

   package Compiler is
      for Default_Switches ("ada") use ("-gnatf", "-g", "-gnat95", "-
gnat05");
   end Compiler;

   package Linker is
      for Default_Switches ("ada") use ("-g");
   end Linker;

   package Pretty_Printer is
      for Default_Switches ("ada") use ("-i4", "-c3", "-c4");
   end Pretty_Printer;

end BOS;

** bos.ads:

--bos.ads
with Interfaces.C;      use Interfaces;
with Win32;             use Win32;
with Win32.Winbase;     use Win32.Winbase;

package BOS is
   procedure Initialize_API;
   procedure Finalize_API;

private
   pragma Export (DLL, Initialize_API);
   pragma Export (DLL, Finalize_API);
end BOS;

** bos.adb:

-- BOS.ADB
with Interfaces.C;      use Interfaces.C;
with Win32;             use Win32;
with Win32.Winbase;
with Unchecked_Conversion;

with GNAT.Spitbol;      use GNAT.Spitbol;
with GNAT.Spitbol.Patterns; use GNAT.Spitbol.Patterns;
with GNAT.Spitbol.Table_Boolean; use GNAT.Spitbol.Table_Boolean;
with GNAT.Spitbol.Table_Integer; use GNAT.Spitbol.Table_Integer;
with GNAT.Spitbol.Table_VString; use GNAT.Spitbol.Table_VString;

package body BOS is
    use type Win32.LONG;
    procedure Initialize_API is
        procedure Adainit;
        pragma Import (C, Adainit);
    begin
        Adainit;
    end Initialize_API;

    procedure Finalize_API is
        procedure Adafinal;
        pragma Import (C, Adafinal);
    begin
        Adafinal;
    end Finalize_API;
end BOS;

** error listing:

327:26 run-time configuration error
327:26 entity "Ada.Tags.Tag_Table" not defined

** affected file, a-except.ads:

   Null_Occurrence : constant Exception_Occurrence := (
     Id               => null,
     Msg_Length       => 0,
     Msg              => (others => ' '), -- <== error is marked here
     Cleanup_Flag     => False,
     Exception_Raised => False,
     Pid              => 0,
     Num_Tracebacks   => 0,
     Tracebacks       => (others => TBE.Null_TB_Entry),
     Private_Data     => System.Null_Address);

end Ada.Exceptions;

Any ideas?
Kind regards,
Bruce.