Ver Fonte

Merged revisions 3022 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r3022 | jonas | 2006-03-24 20:53:32 +0100 (Fri, 24 Mar 2006) | 2 lines

fixed Do_IsDevice()

........

git-svn-id: branches/fixes_2_0@3023 -

Jonas Maebe há 19 anos atrás
pai
commit
7f2540a272
1 ficheiros alterados com 1 adições e 1 exclusões
  1. 1 1
      rtl/bsd/sysos.inc

+ 1 - 1
rtl/bsd/sysos.inc

@@ -157,7 +157,7 @@ Function Do_IsDevice(Handle:Longint):boolean;
   data is function-dependent.
 }
 CONST
-  IOCtl_TCGETS=$5401;
+  IOCtl_TCGETS=$40000000+$2C7400+ 19;
 var
   Data : array[0..255] of byte; {Large enough for termios info}
 begin