paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 06:38:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed return value of IsATTY()

Browse Source 
git-svn-id: trunk@1308 -
This commit is contained in:
Jonas Maebe 2005-10-07 09:29:13 +00:00
parent affb69dd7f
commit b766a42e23
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 var
t : Termios; t : Termios;
begin begin
IsAtty:=TCGetAttr(Handle,t); IsAtty:=ord(TCGetAttr(Handle,t) <> -1);
end; end;

2
rtl/freebsd/termiosproc.inc
View File

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

2
rtl/netbsd/termiosproc.inc
View File

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

2
rtl/openbsd/termiosproc.inc
View File

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