d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fix: ReadREAL did not work, because ok was'nt initialized

Browse source
This commit is contained in:
ceriel 1987-06-29 19:33:01 +00:00
parent 9179494c16
commit f6a828b183
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lang/m2/libm2/PascalIO.mod
View file

@ -324,6 +324,7 @@ IMPLEMENTATION MODULE PascalIo;
BEGIN
index := 0;
ok := TRUE;
WHILE NextCHAR(inputtext) IN spaces DO
Get(inputtext);
END;

5
lang/m2/libm2/catch.c
View file

@ -63,9 +63,8 @@ _catch(trapno)
do
*s++ = i % 10 + '0';
while (i /= 10);
*s = 0;
s = buf;
while (*p++ = *s++) /* nothing */;
while (s > buf) *p++ = *--s;
*p = 0;
Traps_Message(q, 0, (int) (p - q), 1);
}
exit(trapno);