vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 01:42:24 +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

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

@ -50,23 +50,25 @@ TYPE pchar = POINTER TO ARRAY 1 OF CHAR;
END TAS;
PROCEDURE UNIXCALL*(syscall: LONGINT; VAR d0, d1: LONGINT; (* in ulm version both LONGINT and INTEGER are 4 byte size *)
arg1, arg2, arg3: LONGINT) : BOOLEAN;
arg1, arg2, arg3: LONGINT) : BOOLEAN;
VAR
n: LONGINT;
ch: CHAR;
pch: pchar;
pstr: pstring;
pstr: pstring;
h: Platform.FileHandle;
(* pst : pstatus; *)
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];
n := read(ch);
IF n # 1 THEN
IF n # 1 THEN
ch := 0X;
RETURN FALSE
ELSE
@ -81,7 +83,7 @@ TYPE pchar = POINTER TO ARRAY 1 OF CHAR;
n := Write(SYSTEM.VAL(LONGINT, pch), 1);
IF n # 1 THEN RETURN FALSE ELSE RETURN TRUE END
*)
ELSIF syscall = Sys.open THEN
ELSIF syscall = Sys.open THEN
pstr := SYSTEM.VAL(pstring, arg1);
IF SYSTEM.VAL(SET, arg3) * {0,1} # {} THEN
RETURN Platform.OldRW(pstr^, d0) = 0