paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-19 10:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 1308 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@1309 -
This commit is contained in:
Jonas Maebe 2005-10-07 09:34:59 +00:00
parent 70ecf52448
commit 8dfe55e39e
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/darwin/termiosproc.inc
View File

@ -121,7 +121,7 @@ Function IsATTY (Handle:cint):cint;
var
t : Termios;
begin
IsAtty:=TCGetAttr(Handle,t);
IsAtty:=ord(TCGetAttr(Handle,t) <> -1);
end;

2
rtl/freebsd/termiosproc.inc
View File

@ -117,7 +117,7 @@ Function IsATTY (Handle:cint):cint;
var
t : Termios;
begin
IsAtty:=TCGetAttr(Handle,t);
IsAtty:=ord(TCGetAttr(Handle,t) <> -1);
end;

2
rtl/netbsd/termiosproc.inc
View File

@ -117,7 +117,7 @@ Function IsATTY (Handle:cint):cint;
var
t : Termios;
begin
IsAtty:=TCGetAttr(Handle,t);
IsAtty:=ord(TCGetAttr(Handle,t) <> -1);
end;

2
rtl/openbsd/termiosproc.inc
View File

@ -117,7 +117,7 @@ Function IsATTY (Handle:cint):cint;
var
t : Termios;
begin
IsAtty:=TCGetAttr(Handle,t);
IsAtty:=ord(TCGetAttr(Handle,t) <> -1);
end;