diff options
| -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, |