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

+ Fixed objinc such that it really compiles

Browse Source
This commit is contained in:
michael 1998-05-22 07:46:07 +00:00
parent b0b403d498
commit 4afe7023c2
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/linux/objinc.inc
View File

@ -56,14 +56,20 @@ BEGIN
END;
FUNCTION SetFileSize (Handle: THandle; FileSize: LongInt): Word;
Var sr : syscallregs;
{$IFDEF DOSSETFILE1}
VAR Actual, Buf: LongInt;
{$ENDIF}
Actual, Buf: LongInt;
{$ENDIF}
BEGIN
if Sys_Truncate(Handle,FileSize)=0 then
SetFileSize:=0
sr.reg2:=Handle;
sr.reg3:=FileSize;
Syscall(syscall_nr_Truncate,sr);
If Errno=0 then
SetFileSize:=0
else
SetFileSize:=103;
SetFileSize:=103;
{$IFDEF DOSSETFILE1}
If (Actual = FileSize) Then Begin { No position error }
Actual := FileWrite(Handle, Pointer(@Buf), 0,Actual); { Truncate the file }