diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-08 14:40:25 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-08 14:40:25 +0200 |
| commit | bd622b6454b89d73f3330733ff47da406ff7c042 (patch) | |
| tree | e6822a354998f958f9429dbfd7485c85936e5cb8 /gcc/ada/bindgen.adb | |
| parent | 3786bbd19bb747859aac3bea0c1048b674e71727 (diff) | |
| download | gcc-bd622b6454b89d73f3330733ff47da406ff7c042.zip gcc-bd622b6454b89d73f3330733ff47da406ff7c042.tar.gz gcc-bd622b6454b89d73f3330733ff47da406ff7c042.tar.bz2 | |
[multiple changes]
2010-10-08 Robert Dewar <dewar@adacore.com>
* par-ch3.adb: Minor reformatting.
2010-10-08 Javier Miranda <miranda@adacore.com>
* exp_disp.adb (Make_DT): Do not generate dispatch tables for CIL/Java
types.
2010-10-08 Robert Dewar <dewar@adacore.com>
* par-ch8.adb (P_Use_Type_Clause): Recognize ALL keyword in Ada 2012
mode.
* sinfo.adb (Use_Type_Clause): Add All_Present flag.
* sinfo.ads (Use_Type_Clause): Add All_Present flag.
* s-rident.ads: Add entry for No_Allocators_After_Elaboration,
No_Anonymous_Allocators.
2010-10-08 Vincent Celier <celier@adacore.com>
* bindgen.adb (Gen_Restrictions_Ada): No new line after last
restriction, so that the last comma is always replaced with a left
parenthesis.
2010-10-08 Javier Miranda <miranda@adacore.com>
* sem_prag.adb (Analyze_Pragma): Add specific check on the type of the
first formal of delegates.
From-SVN: r165169
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index cbcc96b..ff2498c 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -479,9 +479,9 @@ package body Bindgen is Set_String (", """); Get_Name_String (U.Uname); - -- In the case of JGNAT we need to emit an Import name - -- that includes the class name (using '$' separators - -- in the case of a child unit name). + -- In the case of JGNAT we need to emit an Import name that + -- includes the class name (using '$' separators in the case + -- of a child unit name). if VM_Target /= No_VM then for J in 1 .. Name_Len - 2 loop @@ -2818,7 +2818,7 @@ package body Bindgen is Set_String (", "); Count := Count + 1; - if Count = 8 then + if J /= Cumulative_Restrictions.Set'Last and then Count = 8 then Write_Statement_Buffer; Set_String (" "); Count := 0; @@ -2845,7 +2845,7 @@ package body Bindgen is Set_String (", "); Count := Count + 1; - if Count = 8 then + if J /= Cumulative_Restrictions.Set'Last and then Count = 8 then Write_Statement_Buffer; Set_String (" "); Count := 0; |