[Ada] Add symbol for VMS Debug

[Arnaud Charlet]

Tested on i686-linux, committed on trunk.

VMS Debug needs a symbol to identify an image containing GNAT compiled code.
Package system is guaranteed to be included in every image no matter how
trivial or complex so the mutually agreed upon symbol named ADA$GNAT is
added as an exported object in the private part of system.

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

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

-------------- next part --------------
Index: system-vms.ads
===================================================================
--- system-vms.ads	(revision 106884)
+++ system-vms.ads	(working copy)
@@ -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 @@
    --  {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;
Index: system-vms_64.ads
===================================================================
--- system-vms_64.ads	(revision 106884)
+++ system-vms_64.ads	(working copy)
@@ -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 @@
    --  {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;