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

minor fix: sometimes wrote 0-byte

Browse source
This commit is contained in:
ceriel 1988-11-23 11:31:20 +00:00
parent d7bb7c9cf3
commit b86a455efa
1 changed files with 1 additions and 1 deletions

2
lang/m2/libm2/Traps.mod
View file

@ -43,7 +43,7 @@ IMPLEMENTATION MODULE Traps;
IF Unix.write(2, q, ADDRESS(p) - ADDRESS(q)) < 0 THEN END; IF Unix.write(2, q, ADDRESS(p) - ADDRESS(q)) < 0 THEN END;
ELSE ELSE
l := Argv(0, buf); l := Argv(0, buf);
IF Unix.write(2, ADR(buf), l) < 0 THEN END; IF Unix.write(2, ADR(buf), l-1) < 0 THEN END;
END; END;
lino := EM.LINO(); lino := EM.LINO();
i := 0; i := 0;