diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-08-17 11:59:04 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-08-17 11:59:04 +0200 |
| commit | 06274cd5841339d9d58b83619118782f9e5bd9bf (patch) | |
| tree | 2bfeaf0cb4819de89895812de7594e289b3cdb52 /gcc | |
| parent | 1def9494aca2a532697db5738b260fcdf030e86b (diff) | |
| download | gcc-06274cd5841339d9d58b83619118782f9e5bd9bf.zip gcc-06274cd5841339d9d58b83619118782f9e5bd9bf.tar.gz gcc-06274cd5841339d9d58b83619118782f9e5bd9bf.tar.bz2 | |
make.adb: Add ??? comment.
2009-08-17 Robert Dewar <dewar@adacore.com>
* make.adb: Add ??? comment.
Code clean up.
From-SVN: r150831
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/make.adb | 10 |
1 files changed, 8 insertions, 2 deletions
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; |