diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-02-20 12:55:27 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-02-20 12:55:27 +0100 |
| commit | 6e059adb240df3f9918401dbacca61c283e618ed (patch) | |
| tree | 090dd01dc14b79f968d8f244e3b4dc22b2c55e6b /gcc/ada/bld.adb | |
| parent | d80d3d962235927d1c27c624852f54f80db7bccf (diff) | |
| download | gcc-6e059adb240df3f9918401dbacca61c283e618ed.zip gcc-6e059adb240df3f9918401dbacca61c283e618ed.tar.gz gcc-6e059adb240df3f9918401dbacca61c283e618ed.tar.bz2 | |
[multiple changes]
2004-02-20 Robert Dewar <dewar@gnat.com>
* bld.adb, exp_util.adb, gprcmd.adb: Minor reformatting
2004-02-20 Ed Schonberg <schonberg@gnat.com>
* freeze.adb (Freeze_Record_Type): Generalize mechanism that generates
itype references for the constrained designated type of a component
whose base type is already frozen.
2004-02-20 Arnaud Charlet <charlet@act-europe.fr>
* init.c (__gnat_error_handler [tru64]): Rewrite previous change to
avoid GCC warnings.
2004-02-20 Sergey Rybin <rybin@act-europe.fr>
* sem_ch12.adb (Analyze_Formal_Package): Create a new defining
identifier for a phantom package that rewrites the formal package
declaration with a box. The Add semantic decorations for the defining
identifier from the original node (that represents the formal package).
From-SVN: r78164
Diffstat (limited to 'gcc/ada/bld.adb')
| -rw-r--r-- | gcc/ada/bld.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/bld.adb b/gcc/ada/bld.adb index fef76a0..59a4ac0 100644 --- a/gcc/ada/bld.adb +++ b/gcc/ada/bld.adb @@ -1972,16 +1972,16 @@ package body Bld is elsif Pkg = Snames.Name_Linker then if Item_Name = Snames.Name_Linker_Options then - -- Only add linker options if this is not the root - -- project. + + -- Only add linker options if this is not the + -- root project. Put ("ifeq ($("); Put (Project_Name); Put (".root),False)"); New_Line; - -- Add the linker options to FLDFLAGS, in reverse - -- order. + -- Add linker options to FLDFLAGS in reverse order Put (" FLDFLAGS:=$(shell gprcmd linkopts $("); Put (Project_Name); @@ -1994,10 +1994,10 @@ package body Bld is Put ("endif"); New_Line; - else - -- Other attribute are of no interest; suppress - -- their declarations. + -- Other attributes are of no interest. Suppress + -- their declarations. + else Put_Declaration := False; end if; end if; |