Alexander Shiryaev 7 年之前
父节点
当前提交
1917111f84

+ 0 - 1
BlackBox/_FreeBSDLinuxOpenBSD_/Lin/Mod/gen-Libc/Libc.txt.templ

@@ -225,7 +225,6 @@ MODULE LinLibc ["libc.so%%libver%%"];
 		PROCEDURE [ccall] write* (d: int; buf: PtrVoid; nbytes: size_t): ssize_t;
 		PROCEDURE [ccall] write* (d: int; buf: PtrVoid; nbytes: size_t): ssize_t;
 		PROCEDURE [ccall] read* (d: int; buf: PtrVoid; nbytes: size_t): ssize_t;
 		PROCEDURE [ccall] read* (d: int; buf: PtrVoid; nbytes: size_t): ssize_t;
 		PROCEDURE [ccall] close* (d: int): int;
 		PROCEDURE [ccall] close* (d: int): int;
-		PROCEDURE [ccall] lseek* (d: int; offset: off_t; whence: int): off_t;
 
 
 	(* POSIX.1 *)
 	(* POSIX.1 *)
 		PROCEDURE [ccall] chmod* (path: PtrSTR; mode: mode_t): int;
 		PROCEDURE [ccall] chmod* (path: PtrSTR; mode: mode_t): int;

+ 4 - 0
BlackBox/_Linux_/Lin/Mod/gen-Libc/custom

@@ -3,6 +3,8 @@
 			_STAT_VER_LINUX* = 3;
 			_STAT_VER_LINUX* = 3;
 
 
 	TYPE
 	TYPE
+		off64_t* = LONGINT;
+
 		(* Ubuntu 17.10 /usr/include/i386-linux-gnu/bits/types/sigval_t.h: *)
 		(* Ubuntu 17.10 /usr/include/i386-linux-gnu/bits/types/sigval_t.h: *)
 			sigval_t* = RECORD [union]
 			sigval_t* = RECORD [union]
 				sival_int*: int;
 				sival_int*: int;
@@ -39,4 +41,6 @@
 
 
 	PROCEDURE [ccall] __xstat* (version: INTEGER; filename: PtrSTR; VAR buf: stat_t): INTEGER;
 	PROCEDURE [ccall] __xstat* (version: INTEGER; filename: PtrSTR; VAR buf: stat_t): INTEGER;
 
 
+	PROCEDURE [ccall] lseek64* (fd: int; offset: off64_t; whence: int): off64_t;
+
 	PROCEDURE [ccall] sigsetjmp* ["__sigsetjmp"] (VAR env: sigjmp_buf; savemask: int): int;
 	PROCEDURE [ccall] sigsetjmp* ["__sigsetjmp"] (VAR env: sigjmp_buf; savemask: int): int;

+ 2 - 0
BlackBox/_OpenBSD_/Lin/Mod/gen-Libc/custom

@@ -14,5 +14,7 @@
 	(* POSIX.1 *)
 	(* POSIX.1 *)
 		PROCEDURE [ccall] stat* (path: PtrSTR; VAR sp: stat_t): int;
 		PROCEDURE [ccall] stat* (path: PtrSTR; VAR sp: stat_t): int;
 
 
+		PROCEDURE [ccall] lseek* (d: int; offset: off_t; whence: int): off_t;
+
 	(* POSIX.1 *)
 	(* POSIX.1 *)
 		PROCEDURE [ccall] sigsetjmp* (VAR env: sigjmp_buf; savemask: int): int;
 		PROCEDURE [ccall] sigsetjmp* (VAR env: sigjmp_buf; savemask: int): int;