changed trap messages somewhat, corrected bug in InOut, undone changes

to confarray.c
This commit is contained in:
ceriel
1987-11-02 11:22:06 +00:00
parent c41fae1f8a
commit b24e6763c3
3 changed files with 12 additions and 19 deletions

View File

@@ -256,6 +256,8 @@ IMPLEMENTATION MODULE InOut ;
integ := int
END;
IF buf[index] > " " THEN
Write(buf[index]);
Write(termCH);
Traps.Message("illegal integer");
HALT;
END;
@@ -419,6 +421,7 @@ IMPLEMENTATION MODULE InOut ;
END WriteString;
BEGIN (* InOut initialization *)
unread := FALSE;
WITH ibuf DO
fildes := 0;
bufferedcount := BUFSIZ;