diff options
Diffstat (limited to 'gcc/m2/gm2-libs-iso/LongWholeIO.mod')
| -rw-r--r-- | gcc/m2/gm2-libs-iso/LongWholeIO.mod | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/m2/gm2-libs-iso/LongWholeIO.mod b/gcc/m2/gm2-libs-iso/LongWholeIO.mod index 252026cd3fe..666e109fabc 100644 --- a/gcc/m2/gm2-libs-iso/LongWholeIO.mod +++ b/gcc/m2/gm2-libs-iso/LongWholeIO.mod @@ -116,9 +116,9 @@ PROCEDURE WriteInt (cid: IOChan.ChanId; int: LONGINT; VAR s: String ; BEGIN - s := LongIntegerToString(int, width, ' ', TRUE, 10, FALSE) ; - writeString(cid, s) ; - s := KillString(s) + s := LongIntegerToString (int, width, ' ', int < 0, 10, FALSE) ; + writeString (cid, s) ; + s := KillString (s) END WriteInt ; |