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

* octal() is not necessary anymore. Use &xxx

Browse Source
This commit is contained in:
marco 2003-11-14 21:52:58 +00:00
parent ce9c3bf19c
commit c2ffb4f804
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fpusrscr.pas
View File

@ -783,7 +783,7 @@ begin
'0'..'9' : '0'..'9' :
begin { running Linux on native console or native-emulation } begin { running Linux on native console or native-emulation }
FName:='/dev/vcsa' + ThisTTY[9]; FName:='/dev/vcsa' + ThisTTY[9];
TTYFd:={$ifdef ver1_0}fdOpen{$else}fpOpen{$endif}(FName, Octal(666), Open_RdWr); { open console } TTYFd:={$ifdef ver1_0}fdOpen{$else}fpOpen{$endif}(FName, &666, Open_RdWr); { open console }
If TTYFd <>-1 Then If TTYFd <>-1 Then
Console:=ttyLinux; Console:=ttyLinux;
end; end;
@ -1441,7 +1441,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.28 2003-09-27 14:03:45 peter Revision 1.29 2003-11-14 21:52:58 marco
* octal() is not necessary anymore. Use &xxx
Revision 1.28 2003/09/27 14:03:45 peter
* fixed for unix * fixed for unix
Revision 1.27 2003/02/04 22:05:56 pierre Revision 1.27 2003/02/04 22:05:56 pierre