From: Robert Dewar <dewar@adacore.com>
Date: Mon, 17 Aug 2009 09:59:04 +0000 (+0200)
Subject: make.adb: Add ??? comment.
X-Git-Tag: releases/gcc-4.5.0~3980
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=06274cd5841339d9d58b83619118782f9e5bd9bf;p=thirdparty%2Fgcc.git

make.adb: Add ??? comment.

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

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

From-SVN: r150831
---

diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb
index 60235328b448..59d794cc8849 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;