vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 19:12:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Return d0 correctly in ulmSYSTEM read unixcall handler. Fixes #43.

Browse source
This commit is contained in:
David Brown 2016-09-15 13:30:08 +01:00
parent da88496c5f
commit b8694e65ab
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/library/ulm/ulmSYSTEM.Mod
View file

@ -61,7 +61,9 @@ TYPE pchar = POINTER TO ARRAY 1 OF CHAR;
BEGIN
IF syscall = Sys.read THEN
RETURN Platform.Read(arg1, arg2, arg3, n) = 0;
d0 := Platform.Read(arg1, arg2, arg3, n);
IF d0 >= 0 THEN d0 := n END;
RETURN d0 >= 0;
(*NEW(pch);
pch := SYSTEM.VAL(pchar, arg2);
ch := pch^[0];