mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 07:32:24 +00:00
Unix.Timeval fix. suseconds_t is 4 bytes on osx x86_64 apparently.
Therefore Timeval.usec is INTEGER. Thanks to Jon Kleiser for [raising](https://github.com/norayr/voc/issues/5) the question. bootstrap binary updated. Kernel0. Kernel modules affected. -- noch Former-commit-id: 177f08f0e0e37f9c7ba9d08a91da7c08006c92a4
This commit is contained in:
parent
bac3c2cb49
commit
f05ecf6102
7 changed files with 9 additions and 7 deletions
|
|
@ -1 +1 @@
|
||||||
/opt/voc-1.1/lib
|
/Users/antranigv/local/voc-1.1/lib
|
||||||
|
|
|
||||||
|
|
@ -20,8 +20,9 @@ LIBNAME = VishapOberon
|
||||||
LIBRARY = lib$(LIBNAME)
|
LIBRARY = lib$(LIBNAME)
|
||||||
|
|
||||||
ifndef PRF
|
ifndef PRF
|
||||||
PRF = "/opt"
|
#PRF = "/opt"
|
||||||
#PRF = "/Users/noch/local"
|
#PRF = "/Users/noch/local"
|
||||||
|
PRF = "/Users/antranigv/local"
|
||||||
endif
|
endif
|
||||||
PREFIX = $(PRF)/voc-$(RELEASE)
|
PREFIX = $(PRF)/voc-$(RELEASE)
|
||||||
PREFIXLN = $(PRF)/voc
|
PREFIXLN = $(PRF)/voc
|
||||||
|
|
|
||||||
|
|
@ -118,7 +118,7 @@ MODULE Kernel;
|
||||||
rs := readSet;
|
rs := readSet;
|
||||||
FOR n := 0 TO 7 DO ws[n] := {}; xs[n] := {}; readySet[n] := {} END;
|
FOR n := 0 TO 7 DO ws[n] := {}; xs[n] := {}; readySet[n] := {} END;
|
||||||
IF delay < 0 THEN delay := 0 END ;
|
IF delay < 0 THEN delay := 0 END ;
|
||||||
tv.sec := delay DIV 1000; tv.usec := delay MOD 1000 * 1000;
|
tv.sec := delay DIV 1000; tv.usec := SHORT(delay MOD 1000 * 1000);
|
||||||
n := Unix.Select(256, rs, ws, xs, tv);
|
n := Unix.Select(256, rs, ws, xs, tv);
|
||||||
IF n >= 0 THEN readySet := rs END
|
IF n >= 0 THEN readySet := rs END
|
||||||
END Select;
|
END Select;
|
||||||
|
|
|
||||||
|
|
@ -122,7 +122,7 @@ MODULE Kernel0;
|
||||||
rs := readSet;
|
rs := readSet;
|
||||||
FOR n := 0 TO 7 DO ws[n] := {}; xs[n] := {}; readySet[n] := {} END;
|
FOR n := 0 TO 7 DO ws[n] := {}; xs[n] := {}; readySet[n] := {} END;
|
||||||
IF delay < 0 THEN delay := 0 END ;
|
IF delay < 0 THEN delay := 0 END ;
|
||||||
tv.sec := delay DIV 1000; tv.usec := delay MOD 1000 * 1000;
|
tv.sec := delay DIV 1000; tv.usec := SHORT(delay MOD 1000 * 1000);
|
||||||
n := Unix.Select(256, rs, ws, xs, tv);
|
n := Unix.Select(256, rs, ws, xs, tv);
|
||||||
IF n >= 0 THEN readySet := rs END
|
IF n >= 0 THEN readySet := rs END
|
||||||
END Select;
|
END Select;
|
||||||
|
|
|
||||||
|
|
@ -196,7 +196,8 @@ struct timeval
|
||||||
*)
|
*)
|
||||||
|
|
||||||
Timeval* = RECORD
|
Timeval* = RECORD
|
||||||
sec*, usec*: LONGINT
|
sec*: LONGINT;
|
||||||
|
usec*: INTEGER
|
||||||
END ;
|
END ;
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
MODULE prf;
|
MODULE prf;
|
||||||
|
|
||||||
CONST prefix* = "/opt";
|
CONST prefix* = "/Users/antranigv/local";
|
||||||
|
|
||||||
END prf.
|
END prf.
|
||||||
|
|
|
||||||
|
|
@ -1 +1 @@
|
||||||
8e48e37af1816a7bada0630583b22d2550196738
|
7aa2656d3ae7174c5bac1990daf5baac79ad3ad7
|
||||||
Loading…
Add table
Add a link
Reference in a new issue