paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 20:47:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation for now

Browse Source
This commit is contained in:
daniel 2004-07-09 20:21:20 +00:00
parent cf15e8407e
commit db9d9ffe01
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/freebsd/console.pp
View File

@ -1830,7 +1830,7 @@ function physicalconsole(fd:longint) : boolean;
var name:string;
begin
if (isatty(fd)<>-1) then
if isatty(fd) then
begin
name:=ttyname(fd);
if Copy(name,1,8)<>'/dev/tty' then
@ -3476,7 +3476,10 @@ end.
{
$Log$
Revision 1.8 2004-01-03 12:18:29 marco
Revision 1.9 2004-07-09 20:21:20 daniel
* Fix compilation for now
Revision 1.8 2004/01/03 12:18:29 marco
* a lot of copyright notices and CVS logs added and fixed