diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 09:35:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 09:35:45 +0000 |
| commit | 4c255c08696c30645d109f6dc2c8dd0ea6483ec4 (patch) | |
| tree | 5cab2bb05255ab0b1bfa15428a1ebaaa86c6f50a /gcc/ada/gnatcmd.adb | |
| parent | 5b76e9f344761b6249f6cc142aefc8fb568ed758 (diff) | |
| download | gcc-4c255c08696c30645d109f6dc2c8dd0ea6483ec4.tar.gz | |
2009-07-13 Emmanuel Briot <briot@adacore.com>
* prj-env.adb (Create_Config_Pragmas_File): Iterate on sources rather
than units.
2009-07-13 Thomas Quinot <quinot@adacore.com>
* sem_ch3.adb (Process_Full_View): Propagate Has_Specified_Stream_{Read,
Write,Input,Output} from private view to full view.
* sem_type.adb, sem_type.ads: Minor reformatting
2009-07-13 Nicolas Setton <setton@adacore.com>
* exp_dbug.ads: Add documentation note on the utility of
DW_AT_GNAT_encoding for IDEs.
2009-07-13 Robert Dewar <dewar@adacore.com>
* g-socthi-vxworks.adb: Minor reformatting
* gnatcmd.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149561 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index ef1cf3e712d..8349d439318 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -364,7 +364,7 @@ procedure GNATCmd is File := new String' (Get_Name_String - (Proj.Project.Object_Directory.Name) & + (Proj.Project.Object_Directory.Name) & B_Start.all & MLib.Fil.Ext_To (Get_Name_String @@ -390,7 +390,7 @@ procedure GNATCmd is File := new String' (Get_Name_String - (Proj.Project.Object_Directory.Name) & + (Proj.Project.Object_Directory.Name) & B_Start.all & Get_Name_String (Proj.Project.Library_Name) & ".ci"); @@ -1080,9 +1080,7 @@ procedure GNATCmd is -- replace the file with the absolute path. Last_Switches.Table (J) := - new String' - (Dir - & ALI_File (1 .. Last)); + new String'(Dir & ALI_File (1 .. Last)); -- And we are done |