g-spitbo and Ada.Tags.Tag_Table

g-spitbo and Ada.Tags.Tag_Table

[axtens]

G'day everyone

And just when I thought it was just because of the Wide_Wide_ thing, I
try it without all that and I get the same error.

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 Ada.Tags;		use Ada.Tags;

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.

Re: g-spitbo and Ada.Tags.Tag_Table

[Stephen Leake]

axtens <Bruce.Axtens@gmail.com> writes:

>       for Default_Switches ("ada") use ("-gnatf", "-g", "-gnat95", "-
> gnat05");

This is at least confused; do you want Ada 95 or Ada 2005? I suspect
the last option wins, but it might be confusing things.

-- 
-- Stephe