diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2009-07-13 09:37:28 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 11:37:28 +0200 |
| commit | 959dd7d8a085ca0f7bab2d37069559e98e63ebc1 (patch) | |
| tree | 01093db3683cb59864162cc2613f13425ec775f6 /gcc/ada/mlib.adb | |
| parent | 23c4ff9bd4ea80f3c034f1a2c4318073513bed9f (diff) | |
| download | gcc-959dd7d8a085ca0f7bab2d37069559e98e63ebc1.zip gcc-959dd7d8a085ca0f7bab2d37069559e98e63ebc1.tar.gz gcc-959dd7d8a085ca0f7bab2d37069559e98e63ebc1.tar.bz2 | |
lib.adb, [...]: Update comments.
* lib.adb, make.adb, mlib.adb, exp_dist.adb: Update comments.
Minor reformatting.
From-SVN: r149562
Diffstat (limited to 'gcc/ada/mlib.adb')
| -rw-r--r-- | gcc/ada/mlib.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb index 61fa0d7..4c4d375 100644 --- a/gcc/ada/mlib.adb +++ b/gcc/ada/mlib.adb @@ -210,11 +210,11 @@ package body MLib is -- since the whole file is read at once except on VMS. Curr := S'First; - while Curr <= Len loop Actual_Len := Read (FD, S (Curr)'Address, Len); -- Exit if we could not read for some reason + exit when Actual_Len = 0; Curr := Curr + Actual_Len; @@ -231,10 +231,10 @@ package body MLib is -- at the beginning of the P line. for Index in 1 .. Len - 3 loop - if (S (Index) = ASCII.LF or else - S (Index) = ASCII.CR) - and then - S (Index + 1) = 'P' + if (S (Index) = ASCII.LF + or else + S (Index) = ASCII.CR) + and then S (Index + 1) = 'P' then S (Index + 5 .. Len + 3) := S (Index + 2 .. Len); S (Index + 2 .. Index + 4) := " SL"; |