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

* some changes to ftruncate based procs. Added a "0" as extra parameter

Browse Source
This commit is contained in:
marco 2000-03-17 12:58:57 +00:00
parent f6b9436ebf
commit 92eee6e7f2
3 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/bsd/linux.pp
View File

@ -1438,7 +1438,7 @@ end;
Function fdTruncate(fd,size:longint):boolean;
begin
fdtruncate:=do_syscall(201,fd,size)=0;
fdtruncate:=do_syscall(201,fd,size,0)=0;
LinuxError:=Errno;
end;
@ -3645,7 +3645,10 @@ End.
{
$Log$
Revision 1.7 2000-03-16 16:19:28 marco
Revision 1.8 2000-03-17 12:58:57 marco
* some changes to ftruncate based procs. Added a "0" as extra parameter
Revision 1.7 2000/03/16 16:19:28 marco
* fixes that made ppc386 -h working
Revision 1.6 2000/03/02 15:33:20 marco

7
rtl/bsd/syslinux.pp
View File

@ -338,7 +338,7 @@ Procedure Do_Truncate(Handle,Pos:longint);
begin
{$ifndef crtlib}
do_syscall(201,handle,pos);
do_syscall(201,handle,pos,0);
Errno2Inoutres;
{$endif}
end;
@ -689,7 +689,10 @@ End.
{
$Log$
Revision 1.2 2000-03-16 16:21:10 marco
Revision 1.3 2000-03-17 12:58:57 marco
* some changes to ftruncate based procs. Added a "0" as extra parameter
Revision 1.2 2000/03/16 16:21:10 marco
* changes to get ppc386 -h working
Revision 1.1 2000/03/01 20:23:07 marco

6
rtl/bsd/systypes.inc
View File

@ -58,6 +58,7 @@ type
nextoff: longint;
dd_max : integer; {size of buf. Irrelevant, as buf is of type dirent}
lock : pointer;
dummy : array[0..1023] of char;
end;
PDir =^TDir;
@ -138,7 +139,10 @@ type
{
$Log$
Revision 1.4 2000-02-04 16:55:47 marco
Revision 1.5 2000-03-17 12:58:57 marco
* some changes to ftruncate based procs. Added a "0" as extra parameter
Revision 1.4 2000/02/04 16:55:47 marco
* Fixed tdir, some params need to be 32-bit
Revision 1.3 2000/02/03 17:05:55 marco