diff options
Diffstat (limited to 'gcc/m2/gm2-libs-iso/LongIO.mod')
-rw-r--r-- | gcc/m2/gm2-libs-iso/LongIO.mod | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/m2/gm2-libs-iso/LongIO.mod b/gcc/m2/gm2-libs-iso/LongIO.mod index dd62e32cb4e..40a2a601b63 100644 --- a/gcc/m2/gm2-libs-iso/LongIO.mod +++ b/gcc/m2/gm2-libs-iso/LongIO.mod @@ -30,6 +30,7 @@ FROM DynamicStrings IMPORT String, char, KillString, Length, InitString, ConCatC FROM LongConv IMPORT ScanReal ; FROM StringChan IMPORT writeString, writeFieldWidth ; FROM ldtoa IMPORT strtold ; +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 |