From 2b6659ab10cf18b508e70bbff09b81275f740da3 Mon Sep 17 00:00:00 2001 From: Doug Rupp Date: Tue, 15 Nov 2005 14:52:00 +0100 Subject: [PATCH] system-vms.ads, [...]: ADA$GNAT: New exported object in private part. 2005-11-14 Doug Rupp * system-vms.ads, system-vms_64.ads: ADA$GNAT: New exported object in private part. From-SVN: r106954 --- gcc/ada/system-vms.ads | 7 ++++++- gcc/ada/system-vms_64.ads | 7 ++++++- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/gcc/ada/system-vms.ads b/gcc/ada/system-vms.ads index d958ded7663..22d49f5d979 100644 --- 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 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; -- 2.30.2