OpenBSD CommV24 fixed

diff --git a/Trurl-based/_OpenBSD_/Comm/Mod/V24.odc b/Trurl-based/_OpenBSD_/Comm/Mod/V24.odc
index 722ff08f523af4a2fb63cb041592da89c62f0a8e..3d7ae49283b6b97af58748e0f066f834c5a06841 100644 (file)
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 e961329034962951b5e1e71e6d8325a1f416d742..e7bf69746f0f48b716b25a9d45933ff671ae7547 100644 (file)
--- 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 e4e729b3ed2a8d3962ef2c66f64e7e8066982b1e..d8f2fd26cbfd4fe8f5be5e13ba7c83e9a91bf076 100644 (file)
--- 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;