-- S p e c --
-- (OpenVMS DEC Threads Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
-- {Import,Export}_Exception. Put here because this is the only
-- VMS specific package that doesn't drag in tasking.
+ ADA_GNAT : constant Boolean := True;
+ pragma Export_Object (ADA_GNAT, "ADA$GNAT");
+ -- Uniquitous global symbol identifing a GNAT compiled image to VMS Debug.
+ -- Do not remove!
+
end System;
-- S p e c --
-- (OpenVMS 64bit GCC_ZCX DEC Threads Version) --
-- --
--- Copyright (C) 2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
-- {Import,Export}_Exception. Put here because this is the only
-- VMS specific package that doesn't drag in tasking.
+ ADA_GNAT : constant Boolean := True;
+ pragma Export_Object (ADA_GNAT, "ADA$GNAT");
+ -- Uniquitous global symbol identifing a GNAT compiled image to VMS Debug.
+ -- Do not remove!
+
end System;