diff options
Diffstat (limited to 'gcc/m2/gm2-libs-iso/RealIO.mod')
| -rw-r--r-- | gcc/m2/gm2-libs-iso/RealIO.mod | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/m2/gm2-libs-iso/RealIO.mod b/gcc/m2/gm2-libs-iso/RealIO.mod index cf94487550d..ec2cc5b5fe5 100644 --- a/gcc/m2/gm2-libs-iso/RealIO.mod +++ b/gcc/m2/gm2-libs-iso/RealIO.mod @@ -30,6 +30,7 @@ FROM DynamicStrings IMPORT String, char, KillString, Length, InitString, ConCatC FROM RealConv IMPORT ScanReal ; FROM StringChan IMPORT writeString, writeFieldWidth ; FROM dtoa IMPORT strtod ; +FROM TextUtil IMPORT SkipSpaces ; (* The text form of a signed fixed-point real number is @@ -55,6 +56,7 @@ VAR s : String ; error : BOOLEAN ; BEGIN + SkipSpaces (cid) ; ReadChar(cid, ch) ; nextState := ScanReal ; REPEAT |