From 06274cd5841339d9d58b83619118782f9e5bd9bf Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 17 Aug 2009 11:59:04 +0200 Subject: make.adb: Add ??? comment. 2009-08-17 Robert Dewar * make.adb: Add ??? comment. Code clean up. From-SVN: r150831 --- gcc/ada/make.adb | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 6023532..59d794c 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -7318,6 +7318,9 @@ package body Make is begin 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 declare Argv : constant String := Argument (Next_Arg); @@ -7326,6 +7329,9 @@ package body Make is and then Argv (1) = '-' and then Argv (2) = 'm' and then Argv /= "-margs" + + -- Ignore -mieee to avoid spawning an extra gcc in this case + and then Argv /= "-mieee" then Arg_Index := Arg_Index + 1; @@ -7370,8 +7376,8 @@ package body Make is Close (Output_FD); Delete_File (Output_Name.all, Success); - for I in reverse 1 .. N_Read loop - if Line (I) = ASCII.CR or Line (I) = ASCII.LF then + for J in reverse 1 .. N_Read loop + if Line (J) = ASCII.CR or else Line (J) = ASCII.LF then N_Read := N_Read - 1; else exit; -- cgit v1.1