Browse Source

OpenBSD CommV24 fixed

Alexander Shiryaev 12 years ago
parent
commit
cff32b0c1d

BIN
Trurl-based/_OpenBSD_/Comm/Mod/V24.odc


+ 1 - 3
Trurl-based/_OpenBSD_/Lin/Mod/Ioctl.txt

@@ -7,8 +7,6 @@ MODULE LinIoctl ["libc.so.66.0"];
 		32-bit
 		32-bit
 	*)
 	*)
 
 
-	IMPORT Libc := LinLibc;
-
 	CONST
 	CONST
 		(* /usr/include/sys/ttycom.h *)
 		(* /usr/include/sys/ttycom.h *)
 			TIOCM_LE* = 1; (* line enable *)
 			TIOCM_LE* = 1; (* line enable *)
@@ -43,6 +41,6 @@ MODULE LinIoctl ["libc.so.66.0"];
 		TIOCMBIC* = -2147191701;
 		TIOCMBIC* = -2147191701;
 
 
 	PROCEDURE [ccall] ioctl0* ["ioctl"] (d: INTEGER; req: INTEGER): INTEGER;
 	PROCEDURE [ccall] ioctl0* ["ioctl"] (d: INTEGER; req: INTEGER): INTEGER;
-	PROCEDURE [ccall] ioctl1* ["ioctl"] (d: INTEGER; req: INTEGER; data: Libc.PtrVoid): INTEGER;
+	PROCEDURE [ccall] ioctl1* ["ioctl"] (d: INTEGER; req: INTEGER; VAR arg: INTEGER): INTEGER;
 
 
 END LinIoctl.
 END LinIoctl.

+ 5 - 2
Trurl-based/_OpenBSD_/Lin/Mod/Termios.txt

@@ -7,8 +7,6 @@ MODULE LinTermios ["libc.so.66.0"];
 		32-bit
 		32-bit
 	*)
 	*)
 
 
-	IMPORT SYSTEM;
-
 	CONST
 	CONST
 		VEOF* = 0; (* ICANON *)
 		VEOF* = 0; (* ICANON *)
 		VEOL* = 1; (* ICANON *)
 		VEOL* = 1; (* ICANON *)
@@ -144,6 +142,11 @@ MODULE LinTermios ["libc.so.66.0"];
 	PROCEDURE [ccall] tcgetattr* (fd: INTEGER; VAR tp: termios): INTEGER;
 	PROCEDURE [ccall] tcgetattr* (fd: INTEGER; VAR tp: termios): INTEGER;
 	PROCEDURE [ccall] tcsetattr* (fd: INTEGER; action: INTEGER; VAR tp: termios): INTEGER;
 	PROCEDURE [ccall] tcsetattr* (fd: INTEGER; action: INTEGER; VAR tp: termios): INTEGER;
 
 
+	PROCEDURE [ccall] tcdrain* (fd: INTEGER): INTEGER;
+	PROCEDURE [ccall] tcflow* (fd: INTEGER; action: INTEGER): INTEGER;
+	PROCEDURE [ccall] tcflush* (fd: INTEGER; action: INTEGER): INTEGER;
+	PROCEDURE [ccall] tcsendbreak* (fd: INTEGER; len: INTEGER): INTEGER;
+
 	(* extensions *)
 	(* extensions *)
 (*
 (*
 	PROCEDURE [ccall] cfsetspeed* (VAR tp: termios; speed: speed_t): INTEGER;
 	PROCEDURE [ccall] cfsetspeed* (VAR tp: termios; speed: speed_t): INTEGER;