From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,fa025dd9ce6e2807,start
X-Google-Attributes: gid103376,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!postnews.google.com!d4g2000prg.googlegroups.com!not-for-mail
From: axtens <Bruce.Axtens@gmail.com>
Newsgroups: comp.lang.ada
Subject: g-spitbo and Ada.Tags.Tag_Table
Date: Thu, 6 Dec 2007 01:29:02 -0800 (PST)
Organization: http://groups.google.com
Message-ID: <560d7809-64ae-45bf-ba0e-122024d8e0f7@d4g2000prg.googlegroups.com>
NNTP-Posting-Host: 165.228.152.196
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Trace: posting.google.com 1196933343 3981 127.0.0.1 (6 Dec 2007 09:29:03
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Thu, 6 Dec 2007 09:29:03 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: d4g2000prg.googlegroups.com; posting-host=165.228.152.196;
	posting-account=1W9SuAoAAAApKJ8N7QNszANYOyWIVzjG
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.1.9)
	Gecko/20071025 Firefox/2.0.0.9,gzip(gfe),gzip(gfe)
Xref: g2news1.google.com comp.lang.ada:18742
Date: 2007-12-06T01:29:02-08:00
List-Id: <comp.lang.ada>

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.