From 0550e2ae64228dbdaa7cae3508175b5e8a853ad4 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 24 Aug 2010 15:06:50 +0000
Subject: [PATCH]  * Allow compilation with DEBUG=1

git-svn-id: trunk@15895 -
---
 rtl/freebsd/termiosproc.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/freebsd/termiosproc.inc b/rtl/freebsd/termiosproc.inc
index bf1ed43c89..6d8346140e 100644
--- a/rtl/freebsd/termiosproc.inc
+++ b/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);