Commit 06274cd5 by Robert Dewar Committed by Arnaud Charlet

make.adb: Add ??? comment.

2009-08-17  Robert Dewar  <dewar@adacore.com>

	* make.adb: Add ??? comment.
	Code clean up.

From-SVN: r150831
parent 1def9494
...@@ -7318,6 +7318,9 @@ package body Make is ...@@ -7318,6 +7318,9 @@ package body Make is
begin begin
pragma Assert (N_M_Switch > 0 and RTS_Specified = null); pragma Assert (N_M_Switch > 0 and RTS_Specified = null);
-- This loop needs commenting ??? In fact this entire body is
-- under-commented ??? And the spec is not much help :-(
for Next_Arg in 1 .. Argument_Count loop for Next_Arg in 1 .. Argument_Count loop
declare declare
Argv : constant String := Argument (Next_Arg); Argv : constant String := Argument (Next_Arg);
...@@ -7326,6 +7329,9 @@ package body Make is ...@@ -7326,6 +7329,9 @@ package body Make is
and then Argv (1) = '-' and then Argv (1) = '-'
and then Argv (2) = 'm' and then Argv (2) = 'm'
and then Argv /= "-margs" and then Argv /= "-margs"
-- Ignore -mieee to avoid spawning an extra gcc in this case
and then Argv /= "-mieee" and then Argv /= "-mieee"
then then
Arg_Index := Arg_Index + 1; Arg_Index := Arg_Index + 1;
...@@ -7370,8 +7376,8 @@ package body Make is ...@@ -7370,8 +7376,8 @@ package body Make is
Close (Output_FD); Close (Output_FD);
Delete_File (Output_Name.all, Success); Delete_File (Output_Name.all, Success);
for I in reverse 1 .. N_Read loop for J in reverse 1 .. N_Read loop
if Line (I) = ASCII.CR or Line (I) = ASCII.LF then if Line (J) = ASCII.CR or else Line (J) = ASCII.LF then
N_Read := N_Read - 1; N_Read := N_Read - 1;
else else
exit; exit;
......
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