diff options
Diffstat (limited to 'gcc/m2/gm2-libs-iso/WholeStr.mod')
| -rw-r--r-- | gcc/m2/gm2-libs-iso/WholeStr.mod | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/m2/gm2-libs-iso/WholeStr.mod b/gcc/m2/gm2-libs-iso/WholeStr.mod index cbe15723bac..328246a3cc4 100644 --- a/gcc/m2/gm2-libs-iso/WholeStr.mod +++ b/gcc/m2/gm2-libs-iso/WholeStr.mod @@ -57,9 +57,9 @@ PROCEDURE IntToStr (int: INTEGER; VAR str: ARRAY OF CHAR); VAR s: String ; BEGIN - s := IntegerToString(int, 0, ' ', TRUE, 10, FALSE) ; - CopyOut(str, s) ; - s := KillString(s) + s := IntegerToString (int, 0, ' ', int < 0, 10, FALSE) ; + CopyOut (str, s) ; + s := KillString (s) END IntToStr ; |