瀏覽代碼

* Allow compilation with DEBUG=1

git-svn-id: trunk@15895 -
pierre 15 年之前
父節點
當前提交
0550e2ae64
共有 1 個文件被更改,包括 6 次插入3 次删除
  1. 6 3
      rtl/freebsd/termiosproc.inc

+ 6 - 3
rtl/freebsd/termiosproc.inc

@@ -29,9 +29,12 @@ var
   nr:cint;
 begin
   case OptAct of
-   TCSANOW   : nr:=TIOCSETA;
-   TCSADRAIN : nr:=TIOCSETAW;
-   TCSAFLUSH : nr:=TIOCSETAF;
+  {the three constants TIOCSETA, TIOCSETAW and TIOCSETAF are
+   unsigned values above $80000000, so that they give range check errors
+   on 32-bit systems }
+   TCSANOW   : nr:=cint(TIOCSETA);
+   TCSADRAIN : nr:=cint(TIOCSETAW);
+   TCSAFLUSH : nr:=cint(TIOCSETAF);
   else
    begin
      fpsetErrNo(ESysEINVAL);