diff options
Diffstat (limited to 'gcc/ada/lib-writ.adb')
| -rw-r--r-- | gcc/ada/lib-writ.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index 2165505481c..4d0c29778d7 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -923,11 +923,13 @@ package body Lib.Writ is end if; end loop; - -- Output first restrictions line + -- Output restrictions line Write_Info_Initiate ('R'); Write_Info_Char (' '); + -- First the information for the boolean restrictions + for R in All_Boolean_Restrictions loop if Main_Restrictions.Set (R) then Write_Info_Char ('r'); @@ -938,13 +940,12 @@ package body Lib.Writ is end if; end loop; - Write_Info_EOL; - - -- Output second restrictions line + -- A separating space - Write_Info_Initiate ('R'); Write_Info_Char (' '); + -- And now the information for the parameter restrictions + for RP in All_Parameter_Restrictions loop if Main_Restrictions.Set (RP) then Write_Info_Char ('r'); |