X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fposix%2Fgeneric%2FHost%2FMod%2FConsole.cp;h=3db386379326749aa38c2f217b4bdc3bada17db2;hp=d29048ebf3612f6ec44dc2172f2ca13eaedcd705;hb=92aff0fa77569efb2d8cd1b3703370cb61137173;hpb=76d1e8d98f1d80d24fa52a15e6b2c6fb0a5f44d0

diff --git a/src/posix/generic/Host/Mod/Console.cp b/src/posix/generic/Host/Mod/Console.cp
index d29048e..3db3863 100644
--- a/src/posix/generic/Host/Mod/Console.cp
+++ b/src/posix/generic/Host/Mod/Console.cp
@@ -1,6 +1,6 @@
 MODULE HostConsole;
 
-  IMPORT S := SYSTEM, Console, HostLang, unistd := C99unistd;
+  IMPORT S := SYSTEM, Console, HostLang, unistd := PosixCunistd;
 
   TYPE
     Directory = POINTER TO RECORD (Console.Directory) END;
@@ -9,7 +9,7 @@ MODULE HostConsole;
     VAR res: INTEGER; s: ARRAY 2 OF CHAR; ss: ARRAY 12 OF SHORTCHAR;
   BEGIN
     s[0] := ch; s[1] := 0X;
-    HostLang.StringToHost(s, ss, TRUE, res);
+    HostLang.StringToHost(s, ss, HostLang.replace, res);
     ASSERT(res = 0, 100);
     res := unistd.write(1, S.ADR(ss[0]), LEN(ss$));
     res := unistd.fsync(1)
@@ -19,7 +19,7 @@ MODULE HostConsole;
     VAR ss: POINTER TO ARRAY OF SHORTCHAR; res: INTEGER;
   BEGIN
     NEW(ss, LEN(s$) * 4 + 1);
-    HostLang.StringToHost(s, ss, TRUE, res);
+    HostLang.StringToHost(s, ss, HostLang.replace, res);
     ASSERT(res = 0, 100);
     res := unistd.write(1, S.ADR(ss[0]), LEN(ss$));
     res := unistd.fsync(1)