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:
Norayr Chilingarian 2016-01-19 16:54:26 +04:00
parent bac3c2cb49
commit f05ecf6102
7 changed files with 9 additions and 7 deletions

View file

@ -1 +1 @@
/opt/voc-1.1/lib /Users/antranigv/local/voc-1.1/lib

View file

@ -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

View file

@ -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;

View file

@ -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;

View file

@ -196,7 +196,8 @@ struct timeval
*) *)
Timeval* = RECORD Timeval* = RECORD
sec*, usec*: LONGINT sec*: LONGINT;
usec*: INTEGER
END ; END ;

View file

@ -1,5 +1,5 @@
MODULE prf; MODULE prf;
CONST prefix* = "/opt"; CONST prefix* = "/Users/antranigv/local";
END prf. END prf.

View file

@ -1 +1 @@
8e48e37af1816a7bada0630583b22d2550196738 7aa2656d3ae7174c5bac1990daf5baac79ad3ad7