diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 12:16:06 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 12:16:06 +0000 |
| commit | 30ff3030a38f71250119a35ca85e15eda8808f47 (patch) | |
| tree | d6b4b2c6d1c7a7d404ef8b327689a5ef73005883 /gcc/ada/bindgen.adb | |
| parent | a348965a3b3ebe0e9538c63b0cfce952bfe69644 (diff) | |
| download | gcc-30ff3030a38f71250119a35ca85e15eda8808f47.tar.gz | |
2011-08-04 Robert Dewar <dewar@adacore.com>
* exp_ch7.adb, make.adb, sem_ch10.adb, bindgen.adb, sem_res.adb,
exp_ch4.adb, makeutl.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177365 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 41256aebc66..aee3bddcd2c 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -1665,6 +1665,10 @@ package body Bindgen is procedure Gen_Header; -- Generate the header of the finalization routine + ---------------- + -- Gen_Header -- + ---------------- + procedure Gen_Header is begin WBI (" procedure finalize_library is"); @@ -1685,6 +1689,8 @@ package body Bindgen is WBI (" begin"); end Gen_Header; + -- Start of processing for Gen_Finalize_Library_Ada + begin for E in reverse Elab_Order.First .. Elab_Order.Last loop Unum := Elab_Order.Table (E); @@ -1954,7 +1960,7 @@ package body Bindgen is if U.Unit_Kind /= 'p' or else U.Is_Generic then null; - -- That aren't an interface to a stand alone library + -- .. that are not interfaces to a stand alone library elsif U.SAL_Interface then null; |