From: Alexander Shiryaev <aixp@mail.ru>
Date: Mon, 12 Nov 2012 11:17:10 +0000 (+0400)
Subject: OpenBSD CommV24 fixed
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=cff32b0c1d70b3d5802e33723ba07745411e5ea1;p=bbcp.git

OpenBSD CommV24 fixed
---

diff --git a/Trurl-based/_OpenBSD_/Comm/Mod/V24.odc b/Trurl-based/_OpenBSD_/Comm/Mod/V24.odc
index 722ff08..3d7ae49 100644
Binary files a/Trurl-based/_OpenBSD_/Comm/Mod/V24.odc and b/Trurl-based/_OpenBSD_/Comm/Mod/V24.odc differ
diff --git a/Trurl-based/_OpenBSD_/Lin/Mod/Ioctl.txt b/Trurl-based/_OpenBSD_/Lin/Mod/Ioctl.txt
index e961329..e7bf697 100644
--- a/Trurl-based/_OpenBSD_/Lin/Mod/Ioctl.txt
+++ b/Trurl-based/_OpenBSD_/Lin/Mod/Ioctl.txt
@@ -7,8 +7,6 @@ MODULE LinIoctl ["libc.so.66.0"];
 		32-bit
 	*)
 
-	IMPORT Libc := LinLibc;
-
 	CONST
 		(* /usr/include/sys/ttycom.h *)
 			TIOCM_LE* = 1; (* line enable *)
@@ -43,6 +41,6 @@ MODULE LinIoctl ["libc.so.66.0"];
 		TIOCMBIC* = -2147191701;
 
 	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.
diff --git a/Trurl-based/_OpenBSD_/Lin/Mod/Termios.txt b/Trurl-based/_OpenBSD_/Lin/Mod/Termios.txt
index e4e729b..d8f2fd2 100644
--- a/Trurl-based/_OpenBSD_/Lin/Mod/Termios.txt
+++ b/Trurl-based/_OpenBSD_/Lin/Mod/Termios.txt
@@ -7,8 +7,6 @@ MODULE LinTermios ["libc.so.66.0"];
 		32-bit
 	*)
 
-	IMPORT SYSTEM;
-
 	CONST
 		VEOF* = 0; (* 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] 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 *)
 (*
 	PROCEDURE [ccall] cfsetspeed* (VAR tp: termios; speed: speed_t): INTEGER;