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
This commit is contained in:
parent
6c6db94e93
commit
2b6659ab10
|
@ -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;
|
||||
|
|
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue