diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 13:52:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 13:52:00 +0000 |
| commit | 3054e9a8a4faf364503d23900c8dd629b077acc2 (patch) | |
| tree | 29718656e0b80c4676d778c1f55bacf325e99b72 /gcc/ada/system-vms_64.ads | |
| parent | c266a33fe7ace217fef29bf17ae3f82b9b0f5c5a (diff) | |
| download | gcc-3054e9a8a4faf364503d23900c8dd629b077acc2.tar.gz | |
2005-11-14 Doug Rupp <rupp@adacore.com>
* system-vms.ads, system-vms_64.ads: ADA$GNAT: New exported object in
private part.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106954 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/system-vms_64.ads')
| -rw-r--r-- | gcc/ada/system-vms_64.ads | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/system-vms_64.ads b/gcc/ada/system-vms_64.ads index 3d7b8e8f615..555692c6d90 100644 --- 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; |