Parcourir la source

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

marco il y a 22 ans
Parent
commit
c2ffb4f804
1 fichiers modifiés avec 5 ajouts et 2 suppressions
  1. 5 2
      ide/fpusrscr.pas

+ 5 - 2
ide/fpusrscr.pas

@@ -783,7 +783,7 @@ begin
             '0'..'9' :
               begin { running Linux on native console or native-emulation }
                 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
                   Console:=ttyLinux;
               end;
@@ -1441,7 +1441,10 @@ end;
 end.
 {
   $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
 
   Revision 1.27  2003/02/04 22:05:56  pierre