diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-30 17:17:50 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-30 17:17:50 +0200 |
| commit | ea2af26ac9d3ed57ffbd4ae28538c8f51ba63536 (patch) | |
| tree | cc310e9db2f48762bb7ae1fb5ca93405bbe61466 /gcc/ada/gnatcmd.adb | |
| parent | 29ba9f52eee2ab585349ba71850bf9e0e5c86d3c (diff) | |
| download | gcc-ea2af26ac9d3ed57ffbd4ae28538c8f51ba63536.zip gcc-ea2af26ac9d3ed57ffbd4ae28538c8f51ba63536.tar.gz gcc-ea2af26ac9d3ed57ffbd4ae28538c8f51ba63536.tar.bz2 | |
[multiple changes]
2012-07-30 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch12.adb (Earlier): Add local variables T1 and T2. Minor code
refactoring.
2012-07-30 Thomas Quinot <quinot@adacore.com>
* gnatcmd.adb, make.adb, makeutl.adb, makeutl.ads
(Test_If_Relative_Path): Rename to Ensure_Absolute_Path to better
reflect what this subprogram does. Rename argument Including_L_Switch
to For_Gnatbind, and also exempt -A from rewriting.
* bindusg.adb: Document optional =file argument to gnatbind -A.
2012-07-30 Ed Schonberg <schonberg@adacore.com>
* freeze.adb (Freeze_Entity): Do no apply restriction check on
storage pools to access to subprogram types.
From-SVN: r189978
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 8798399..bf3bfcf 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -273,7 +273,7 @@ procedure GNATCmd is -- Add the -L and -l switches to the linker for all of the library -- projects. - procedure Test_If_Relative_Path + procedure Ensure_Absolute_Path (Switch : in out String_Access; Parent : String); -- Test if Switch is a relative search path switch. If it is and it @@ -1303,20 +1303,20 @@ procedure GNATCmd is end Set_Library_For; --------------------------- - -- Test_If_Relative_Path -- + -- Ensure_Absolute_Path -- --------------------------- - procedure Test_If_Relative_Path + procedure Ensure_Absolute_Path (Switch : in out String_Access; Parent : String) is begin - Makeutl.Test_If_Relative_Path + Makeutl.Ensure_Absolute_Path (Switch, Parent, Do_Fail => Osint.Fail'Access, Including_Non_Switch => False, Including_RTS => True); - end Test_If_Relative_Path; + end Ensure_Absolute_Path; ------------------- -- Non_VMS_Usage -- @@ -2387,7 +2387,7 @@ begin -- arguments. for J in 1 .. Last_Switches.Last loop - GNATCmd.Test_If_Relative_Path + GNATCmd.Ensure_Absolute_Path (Last_Switches.Table (J), Current_Work_Dir); end loop; @@ -2397,7 +2397,7 @@ begin Project_Dir : constant String := Name_Buffer (1 .. Name_Len); begin for J in 1 .. First_Switches.Last loop - GNATCmd.Test_If_Relative_Path + GNATCmd.Ensure_Absolute_Path (First_Switches.Table (J), Project_Dir); end loop; end; |