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

* fixed Do_IsDevice for sparc (TCGETS constant; the entire termios.inc

Browse Source 
also needs to be fixed for sparc)

git-svn-id: trunk@7461 -
This commit is contained in:
Jonas Maebe 2007-05-24 22:58:12 +00:00
parent b9a97ae891
commit e8423154ec
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/sysos.inc
View File

@ -143,9 +143,13 @@ Function Do_IsDevice(Handle:THandle):boolean;
const
{$if defined(PowerPC) or defined(PowerPc64)}
IOCtl_TCGETS=$402c7413;
{$else}
{$if defined(sparc)}
IOCtl_TCGETS=$40245408;
{$else}
IOCtl_TCGETS=$5401; // TCGETS is also in termios.inc, but the sysunix needs only this
{$endif}
{$endif}
var
Data : array[0..255] of byte; {Large enough for termios info}
begin