mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 19:12:25 +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)
|
||||
|
||||
ifndef PRF
|
||||
PRF = "/opt"
|
||||
#PRF = "/opt"
|
||||
#PRF = "/Users/noch/local"
|
||||
PRF = "/Users/antranigv/local"
|
||||
endif
|
||||
PREFIX = $(PRF)/voc-$(RELEASE)
|
||||
PREFIXLN = $(PRF)/voc
|
||||
|
|
|
|||
|
|
@ -118,7 +118,7 @@ MODULE Kernel;
|
|||
rs := readSet;
|
||||
FOR n := 0 TO 7 DO ws[n] := {}; xs[n] := {}; readySet[n] := {} 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);
|
||||
IF n >= 0 THEN readySet := rs END
|
||||
END Select;
|
||||
|
|
|
|||
|
|
@ -122,7 +122,7 @@ MODULE Kernel0;
|
|||
rs := readSet;
|
||||
FOR n := 0 TO 7 DO ws[n] := {}; xs[n] := {}; readySet[n] := {} 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);
|
||||
IF n >= 0 THEN readySet := rs END
|
||||
END Select;
|
||||
|
|
|
|||
|
|
@ -196,7 +196,8 @@ struct timeval
|
|||
*)
|
||||
|
||||
Timeval* = RECORD
|
||||
sec*, usec*: LONGINT
|
||||
sec*: LONGINT;
|
||||
usec*: INTEGER
|
||||
END ;
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
MODULE prf;
|
||||
|
||||
CONST prefix* = "/opt";
|
||||
CONST prefix* = "/Users/antranigv/local";
|
||||
|
||||
END prf.
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
8e48e37af1816a7bada0630583b22d2550196738
|
||||
7aa2656d3ae7174c5bac1990daf5baac79ad3ad7
|
||||
Loading…
Add table
Add a link
Reference in a new issue