Переглянути джерело

* Fixed a syscall to have BSD alternative

marco 25 роки тому
батько
коміт
3fd094a0f0
1 змінених файлів з 6 додано та 0 видалено
  1. 6 0
      rtl/linux/objinc.inc

+ 6 - 0
rtl/linux/objinc.inc

@@ -66,15 +66,21 @@ END;
 
 FUNCTION SetFileSize (Handle: THandle; FileSize: LongInt): Word;
 
+{$IFNDEF BSD}
 Var sr : syscallregs;
+{$ENDIF}
 {$IFDEF DOSSETFILE1}  
     Actual, Buf: LongInt;
 {$ENDIF}
    
 BEGIN
+ {$IFDEF BSD}
+  Do_Syscall(Syscall_Nr_ftruncate,handle,filesize,0); {0 -> offset =64 bit}
+ {$ELSE}
   sr.reg2:=Handle;
   sr.reg3:=FileSize;
   Syscall(syscall_nr_fTruncate,sr);
+ {$ENDIF}
   If Errno=0 then  
     SetFileSize:=0
   else