Browse Source

* Allow compilation with DEBUG=1

git-svn-id: trunk@15895 -
pierre 15 years ago
parent
commit
0550e2ae64
1 changed files with 6 additions and 3 deletions
  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);