diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-22 14:58:15 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-22 14:58:15 +0000 |
| commit | a55a5de7da0ad832ea500926ecfd1afa96ab7172 (patch) | |
| tree | 58b442ba0f8e875978f239775441c8932450f840 /gcc/ada/vms_data.ads | |
| parent | 99606d61803f5adcf9f3a353f4a89b89a72bcd1a (diff) | |
| download | gcc-a55a5de7da0ad832ea500926ecfd1afa96ab7172.tar.gz | |
2009-07-22 Ed Schonberg <schonberg@adacore.com>
* freeze.adb (Freeze_Entity): Do not generate extra formal for function
in initialization expression if function does not have convention Ada.
2009-07-22 Sergey Rybin <rybin@adacore.com>
* gnat_ugn.texi, vms_data.ads: Add qualifier for new gnatpp option
'--separate-label' to control label layout.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149936 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/vms_data.ads')
| -rw-r--r-- | gcc/ada/vms_data.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index eae2058e06f..3e917743943 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -5755,6 +5755,12 @@ package VMS_Data is -- Do not place the IS keyword on a separate line in a subprogram body in -- case if the specification occupies more then one line. + S_Pretty_Sep_Label : aliased constant S := "/SEPARATE_LABEL " & + "--separate-label"; + -- /SEPARATE_LABEL + -- + -- Place statement label(s) and the statement itself on separate lines. + S_Pretty_Sep_Loop_Then : aliased constant S := "/SEPARATE_LOOP_THEN " & "--separate-loop-then"; -- /SEPARATE_LOOP_THEN @@ -6141,6 +6147,7 @@ package VMS_Data is S_Pretty_Project 'Access, S_Pretty_RTS 'Access, S_Pretty_Search 'Access, + S_Pretty_Sep_Label 'Access, S_Pretty_Sep_Loop_Then 'Access, S_Pretty_N_Sep_Loop_Then 'Access, S_Pretty_Subdirs 'Access, |