diff options
Diffstat (limited to 'gcc/ada/hostparm.ads')
| -rw-r--r-- | gcc/ada/hostparm.ads | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/hostparm.ads b/gcc/ada/hostparm.ads index b076f99bd69..69ca47aad9c 100644 --- a/gcc/ada/hostparm.ads +++ b/gcc/ada/hostparm.ads @@ -6,9 +6,9 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.18 $ +-- $Revision$ -- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -38,7 +38,6 @@ -- compiler is running, and thus this package is part of the compiler. package Hostparm is -pragma Preelaborate (Hostparm); ----------------------- -- TARGET Parameters -- @@ -53,7 +52,10 @@ pragma Preelaborate (Hostparm); -- HOST Parameters -- --------------------- - OpenVMS : Boolean := False; + Gnat_VMSp : Integer; + pragma Import (C, Gnat_VMSp, "__gnat_vmsp"); + + OpenVMS : Boolean := Gnat_VMSp /= 0; -- Set True for OpenVMS host. See also OpenVMS target boolean in -- 5vsystem.ads and OpenVMS_On_Target boolean in Targparm. This is -- not a constant, because it can be modified by -gnatdm. |