summaryrefslogtreecommitdiff
path: root/gcc/ada/vms_data.ads
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2009-07-20 14:55:43 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2009-07-20 14:55:43 +0200
commitae65d635df87446453628c005cacf2ed3850b9c6 (patch)
treefa9429c3abb0b2200bdc7151416d825424d673a9 /gcc/ada/vms_data.ads
parent5132708f8a29709b74d5eedb36c3414cdf44fa96 (diff)
downloadgcc-ae65d635df87446453628c005cacf2ed3850b9c6.tar.gz
[multiple changes]
2009-07-20 Robert Dewar <dewar@adacore.com> * sem_ch13.adb: Minor reformatting * einfo.ads: Minor reformatting Component_Bit_Offset is no longer considered obsolescent 2009-07-20 Nicolas Roche <roche@adacore.com> * a-calend.adb: Redefine time_t as signed integer with same size as Address type. * s-os_lib.ads: Redefine OS_Time as signed integer with same size as Address type * adaint.h: On Windows 64bits declare OS_Time as long long instead of long 2009-07-20 Javier Miranda <miranda@adacore.com> * exp_tss.adb (Init_Proc): Add missing support for non-default C++ constructors that have anonymous access type formals. * sem_res.adb (Resolve_Actuals): Disable checks associated with Ada class-wide arguments in case of imported C++ subprograms. * exp_ch3.adb (Build_Initialization_Call): Add assertion. 2009-07-20 Sergey Rybin <rybin@adacore.com> * vms_data.ads: Update qualifiers. From-SVN: r149810
Diffstat (limited to 'gcc/ada/vms_data.ads')
-rw-r--r--gcc/ada/vms_data.ads9
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads
index b4ee226c673..9302175f37b 100644
--- a/gcc/ada/vms_data.ads
+++ b/gcc/ada/vms_data.ads
@@ -6556,6 +6556,14 @@ package VMS_Data is
--
-- Avoid raising PROGRAM_ERROR in the generated program unit stubs.
+ S_Stub_No_Head : aliased constant S := "/NO_LOCAL_HEADER " &
+ "--no-local-header";
+ -- /NONO_LOCAL_HEADER (D)
+ -- /NO_LOCAL_HEADER
+ --
+ -- Do not put local comment header before body stub for a local progran
+ -- unit
+
S_Stub_Output : aliased constant S := "/OUTPUT=@" &
"-o@";
-- /OUTPUT=filespec
@@ -6653,6 +6661,7 @@ package VMS_Data is
S_Stub_Output 'Access,
S_Stub_Project 'Access,
S_Stub_No_Exc 'Access,
+ S_Stub_No_Head 'Access,
S_Stub_Quiet 'Access,
S_Stub_Search 'Access,
S_Stub_Subdirs 'Access,