diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 17:01:10 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 17:01:10 +0200 |
| commit | f559e62f2030798aa8462c02143b64419c989ef2 (patch) | |
| tree | a4170edea6f8832c8b176426a6a0ba0f94348b68 /gcc/ada/vms_data.ads | |
| parent | e50e1c5ee10099b0edb4cc966f90124452033cc5 (diff) | |
| download | gcc-f559e62f2030798aa8462c02143b64419c989ef2.tar.gz | |
[multiple changes]
2009-04-10 Sergey Rybin <rybin@adacore.com>
* vms_data.ads:
Add qualifier for new gnatstub option '--no-exception'
* gnat_ugn.texi:
Add the description of the new gnatstub option '--no-exception'
2009-04-10 Robert Dewar <dewar@adacore.com>
* rtsfind.adb: Minor reformatting
2009-04-10 Thomas Quinot <quinot@adacore.com>
* sem_disp.adb: Minor reformatting.
Add comment pointing to RM clause for the case of warning against a
(failed) attempt at declaring a primitive operation elsewhere than in a
package spec.
2009-04-10 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Denotes_Formal_Package): Check whether the package is
an actual for a previous formal package of the current instance.
From-SVN: r145917
Diffstat (limited to 'gcc/ada/vms_data.ads')
| -rw-r--r-- | gcc/ada/vms_data.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index 595fa5e1dc0..21529e02e2b 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -6511,6 +6511,13 @@ package VMS_Data is -- HIGH A great number of messages are output, most of them not -- being useful for the user. + S_Stub_No_Exc : aliased constant S := "/NO_EXCEPTION " & + "--no-exception"; + -- /NONO_EXCEPTION (D) + -- /NO_EXCEPTION + -- + -- Avoid raising PROGRAM_ERROR in the generated program unit stubs. + S_Stub_Output : aliased constant S := "/OUTPUT=@" & "-o@"; -- /OUTPUT=filespec @@ -6607,6 +6614,7 @@ package VMS_Data is S_Stub_Mess 'Access, S_Stub_Output 'Access, S_Stub_Project 'Access, + S_Stub_No_Exc 'Access, S_Stub_Quiet 'Access, S_Stub_Search 'Access, S_Stub_Subdirs 'Access, |