paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 12:10:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Ftruncate intermediate fix.

Browse Source
This commit is contained in:
marco 2001-08-27 09:35:07 +00:00
parent 9746f4c2d6
commit 3b544692a4
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/freebsd/syscalls.inc
View File

@ -455,10 +455,30 @@ begin
end;
(*=================== MOVED from syslinux.inc ========================*)
{
Function Sys_FTruncate(Handle,Pos:longint):longint; //moved from sysunix.inc Do_Truncate
begin
Sys_FTruncate:=do_syscall(syscall_nr_ftruncate,handle,pos,0);
end;
}
Function Sys_ftruncate(handle,pos:longint):longint; assembler;
{this one is special for the return value being 64-bit..}
asm
pushl $0
pushl pos
pushl $0 // Your guess is as good as mine.
pushl handle
pushl $0
pushl $0xc9 // Actual lseek syscall number.
movl $0xc6,%eax
call actualsyscall
addl $24,%esp
mov %ebx,Errno
end;
Function Sys_fstat(fd : longint;var Info:stat):Longint; // This was missing here, instead an fstat call was included in Do_FileSize
begin
@ -490,7 +510,10 @@ end;
{
$Log$
Revision 1.6 2001-06-19 08:34:16 marco
Revision 1.7 2001-08-27 09:35:07 marco
* Ftruncate intermediate fix.
Revision 1.6 2001/06/19 08:34:16 marco
* Peter didn't merge the FreeBSD directory when he merged the Unix one. Fixed
Revision 1.5 2001/04/23 11:38:30 marco