diff options
Diffstat (limited to 'gcc/m2/gm2-libs-iso/WholeIO.mod')
-rw-r--r-- | gcc/m2/gm2-libs-iso/WholeIO.mod | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/m2/gm2-libs-iso/WholeIO.mod b/gcc/m2/gm2-libs-iso/WholeIO.mod index 9fc879e20a3..0bfe1a8fc0a 100644 --- a/gcc/m2/gm2-libs-iso/WholeIO.mod +++ b/gcc/m2/gm2-libs-iso/WholeIO.mod @@ -33,6 +33,7 @@ FROM StringConvert IMPORT IntegerToString, CardinalToString ; FROM WholeConv IMPORT ScanInt, ScanCard ; FROM StringChan IMPORT writeString ; FROM IOConsts IMPORT ReadResults ; +FROM TextUtil IMPORT SkipSpaces ; (* Input and output of whole numbers in decimal text form @@ -40,7 +41,7 @@ FROM IOConsts IMPORT ReadResults ; type IOConsts.ReadResults. *) -IMPORT IOChan; +IMPORT IOChan ; (* The text form of a signed whole number is ["+" | "-"], decimal digit, {decimal digit} @@ -63,6 +64,7 @@ VAR ch : CHAR ; negative : BOOLEAN ; BEGIN + SkipSpaces (cid) ; ReadChar(cid, ch) ; negative := FALSE ; c := 0 ; @@ -133,6 +135,7 @@ VAR ch : CHAR ; c : CARDINAL ; BEGIN + SkipSpaces (cid) ; ReadChar(cid, ch) ; c := 0 ; nextState := ScanCard ; |