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

Merged revisions 1310 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@1311 -
This commit is contained in:
Jonas Maebe 2005-10-07 09:39:08 +00:00
parent 8dfe55e39e
commit e3017bf0bb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/unix/ttyname.inc
View File

@ -71,7 +71,7 @@ var
begin
TTYName:='';
if (fpfstat(handle,st)=-1) and (isatty (handle)<>1) then
if (fpfstat(handle,st)=-1) or (isatty (handle)<>1) then
exit;
mydev:=st.st_dev;
myino:=st.st_ino;