* fixed range error

git-svn-id: trunk@2647 -
This commit is contained in:
Jonas Maebe 2006-02-20 10:20:58 +00:00
parent 340cf721b5
commit 2c46fe0790

View File

@ -25,7 +25,7 @@ end;
Function TCSetAttr(fd:cint;OptAct:cint;const tios:TermIOS):cint;
var
nr:cint;
nr:culong;
begin
case OptAct of
TCSANOW : nr:=TIOCSETA;