diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-02-20 11:55:27 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-02-20 11:55:27 +0000 |
commit | cdc6fa442760b3c917a9173c5cc9628897cff3c4 (patch) | |
tree | 090dd01dc14b79f968d8f244e3b4dc22b2c55e6b /gcc/ada/bld.adb | |
parent | bed9edbd56e31a519ea28ae720a573299678b07c (diff) | |
download | gcc-cdc6fa442760b3c917a9173c5cc9628897cff3c4.tar.gz |
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).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@78164 138bc75d-0d04-0410-961f-82ee72b054a4
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 fef76a02371..59a4ac0f587 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; |