diff options
| author | Sergey Rybin <rybin@adacore.com> | 2005-07-07 11:47:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-07-07 11:47:42 +0200 |
| commit | 2d43d3fed0c9070978b3b39db4b3f3898cf84b60 (patch) | |
| tree | 96db89e67e42a1e6595ecda336056a7d90660015 /gcc | |
| parent | fe7cef0069d807af7c960267f1e923130157a5e8 (diff) | |
| download | gcc-2d43d3fed0c9070978b3b39db4b3f3898cf84b60.zip gcc-2d43d3fed0c9070978b3b39db4b3f3898cf84b60.tar.gz gcc-2d43d3fed0c9070978b3b39db4b3f3898cf84b60.tar.bz2 | |
vms_data.ads: Add VMS qualifiers for new gnatpp switch --no-separate-is
2005-07-07 Sergey Rybin <rybin@adacore.com>
* vms_data.ads: Add VMS qualifiers for new gnatpp switch
--no-separate-is
* gnat_ugn.texi: Add description for new gnatpp option
(--no-separate-is)
From-SVN: r101701
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/gnat_ugn.texi | 5 | ||||
| -rw-r--r-- | gcc/ada/vms_data.ads | 8 |
2 files changed, 13 insertions, 0 deletions
diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi index 74b2c40..45521dc 100644 --- a/gcc/ada/gnat_ugn.texi +++ b/gcc/ada/gnat_ugn.texi @@ -14892,6 +14892,11 @@ All the VT characters are removed from the comment text. All the HT characters are expanded with the sequences of space characters to get to the next tab stops. +@cindex @option{^--no-separate-is^/NO_SEPARATE_IS^} (@command{gnatpp}) +@item ^--no-separate-is^/NO_SEPARATE_IS^ +Do not place the keyword @code{is} on a separate line in a subprogram body in +case if the specification occupies more then one line. + @end table @ifclear vms diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index 50ed1ee..c3678f4 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -4662,6 +4662,13 @@ package VMS_Data is -- unless the indentation is set to 1: in that case the default value for -- continuation line indentation is also 1. + S_Pretty_Compact_Is : aliased constant S := "/NO_SEPARATE_IS " & + "--no-separate-is"; + -- /NO_SEPARATE_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_Eol : aliased constant S := "/END_OF_LINE=" & "DOS " & "--eol=dos " & @@ -4939,6 +4946,7 @@ package VMS_Data is S_Pretty_All_Prjs 'Access, S_Pretty_Attrib 'Access, S_Pretty_Comments 'Access, + S_Pretty_Compact_Is'Access, S_Pretty_Config 'Access, S_Pretty_Constr 'Access, S_Pretty_Comind 'Access, |