Browse Source

* Allow compilation with DEBUG=1

git-svn-id: trunk@15895 -
pierre 15 năm trước cách đây
mục cha
commit
0550e2ae64
1 tập tin đã thay đổi với 6 bổ sung3 xóa
  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);