paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 20:39:13 +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

10
rtl/linux/objinc.inc
View File

@ -56,11 +56,17 @@ BEGIN
END;
FUNCTION SetFileSize (Handle: THandle; FileSize: LongInt): Word;
Var sr : syscallregs;
{$IFDEF DOSSETFILE1}
VAR Actual, Buf: LongInt;
Actual, Buf: LongInt;
{$ENDIF}
BEGIN
if Sys_Truncate(Handle,FileSize)=0 then
sr.reg2:=Handle;
sr.reg3:=FileSize;
Syscall(syscall_nr_Truncate,sr);
If Errno=0 then
SetFileSize:=0
else
SetFileSize:=103;