Commit 619a6950 by Eric Botcazou

Fix formatting

From-SVN: r187875
parent b993039f
...@@ -6,20 +6,20 @@ ...@@ -6,20 +6,20 @@
* gnatlink.adb (Gnatlink): Declare Object_File_Option_Ptr here... * gnatlink.adb (Gnatlink): Declare Object_File_Option_Ptr here...
Declare Object_File_Option string constant and Using_GNU_response_file Declare Object_File_Option string constant and Using_GNU_response_file
boolean constant. boolean constant.
(Process_Binder_File): ...instead of here.  Delete Using_GNU_Linker, (Process_Binder_File): ...instead of here. Delete Using_GNU_Linker,
Opening and Closing local variables.  Do not handle the GNU linker Opening and Closing local variables. Do not handle the GNU linker
specially. specially.
(Write_RF): New procedure to write into the response file.  Escape some (Write_RF): New procedure to write into the response file. Escape some
characters if a GNU response file is used.  Keep track of error status. characters if a GNU response file is used. Keep track of error status.
Invoke Write_RF to write into the response file.  Delete the file only Invoke Write_RF to write into the response file. Delete the file only
if the link was successful. if the link was successful.
* mlib-utl.adb: Do not `with' package System. * mlib-utl.adb: Do not `with' package System.
(Gcc): Likewise.  Declare Object_File_Option string constant and (Gcc): Likewise. Declare Object_File_Option string constant and
Using_GNU_response_file boolean constant. Using_GNU_response_file boolean constant.
(Write_RF): Take a string instead of address and length.  Escape some (Write_RF): Take a string instead of address and length. Escape some
characters if a GNU response file is used. characters if a GNU response file is used.
Invoke Write_RF to write into the response file.  Delete the file only Invoke Write_RF to write into the response file. Delete the file only
if the link was successful.  Do not warn if it cannot be deleted. if the link was successful. Do not warn if it cannot be deleted.
2012-05-20 Eric Botcazou <ebotcazou@adacore.com> 2012-05-20 Eric Botcazou <ebotcazou@adacore.com>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment