system-vms.ads, [...]: ADA$GNAT: New exported object in private part.

2005-11-14  Doug Rupp  <rupp@adacore.com>

	* system-vms.ads, system-vms_64.ads: ADA$GNAT: New exported object in
	private part.

From-SVN: r106954

diff --git a/gcc/ada/system-vms.ads b/gcc/ada/system-vms.ads
index d958ded7663b178c9d769d2cb631a8edf16fde71..22d49f5d9791d2ef670433630100e1bf9c44c26a 100644 (file)
--- a/gcc/ada/system-vms.ads
+++ b/gcc/ada/system-vms.ads
@@ -7,7 +7,7 @@
 --                                 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 --
@@ -236,4 +236,9 @@ private
    --  {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;

diff --git a/gcc/ada/system-vms_64.ads b/gcc/ada/system-vms_64.ads
index 3d7b8e8f615ac5133a4fc0b18fa2753110032f74..555692c6d90fa9f83f70e66f25c778b58d936bb4 100644 (file)
--- a/gcc/ada/system-vms_64.ads
+++ b/gcc/ada/system-vms_64.ads
@@ -7,7 +7,7 @@
 --                                 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 --
@@ -255,4 +255,9 @@ private
    --  {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;