d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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 BEGIN
index := 0; index := 0;
ok := TRUE;
WHILE NextCHAR(inputtext) IN spaces DO WHILE NextCHAR(inputtext) IN spaces DO
Get(inputtext); Get(inputtext);
END; END;

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

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