unix module now compiles under freebsd -- noch

This commit is contained in:
norayr 2015-02-13 11:18:29 +00:00
parent 6ace15a0dc
commit 9f452e66b7
2 changed files with 2 additions and 2 deletions

View file

@ -441,7 +441,7 @@ from man gettimeofday
"stat((const char*)name, (struct stat*)statbuf)"; "stat((const char*)name, (struct stat*)statbuf)";
PROCEDURE Stat*(name: Name; VAR statbuf: Status): INTEGER; PROCEDURE Stat*(name: Name; VAR statbuf: Status): INTEGER;
VAR res: LONGINT; VAR res: INTEGER;
BEGIN BEGIN
res := stat(name, statbuf); res := stat(name, statbuf);
(* make the first 4 bytes as unique as possible (used in module Files for caching!) *) (* make the first 4 bytes as unique as possible (used in module Files for caching!) *)
@ -455,7 +455,7 @@ from man gettimeofday
"fstat(fd, (struct stat*)statbuf)"; "fstat(fd, (struct stat*)statbuf)";
PROCEDURE Fstat*(fd: INTEGER; VAR statbuf: Status): INTEGER; PROCEDURE Fstat*(fd: INTEGER; VAR statbuf: Status): INTEGER;
VAR res: LONGINT; VAR res: INTEGER;
BEGIN BEGIN
res := fstat(fd, statbuf); res := fstat(fd, statbuf);
(* make the first 4 bytes as unique as possible (used in module Files for caching!) *) (* make the first 4 bytes as unique as possible (used in module Files for caching!) *)

BIN
voc

Binary file not shown.