diff --git a/rtl/linux/termiosproc.inc b/rtl/linux/termiosproc.inc
index ba54190cfc..070cce3fc1 100644
--- a/rtl/linux/termiosproc.inc
+++ b/rtl/linux/termiosproc.inc
@@ -13,7 +13,7 @@ end;
 
 Function TCSetAttr(fd:cint;OptAct:cint;const tios:TermIOS):cint;
 var
-  nr:cint;
+  nr:culong;
 begin
   case OptAct of
    TCSANOW   : nr:=TCSETS;