git-svn-id: trunk@8126 -
@@ -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;