paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 14:10:18 +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

12
rtl/bsd/systypes.inc
View File

@ -38,7 +38,7 @@ type
{ The following are records for system calls BSD updated }
dirent = packed record
ino : cardinal; { This is not inode number, but "a number
ino : cardinal; { This is not inode number, but "a number
unique for each file on a filesystem"}
reclen : word;
d_type,
@ -58,11 +58,12 @@ 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;
{$packrecords C}
Stat =record {BSD version}
Stat =record {BSD version}
dev, { inode's device }
ino : cardinal; { inode's number }
mode, { inode protection mode }
@ -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
@ -151,4 +155,4 @@ type
Revision 1.1 2000/02/02 16:36:09 marco
* Initial version. Copy of linux version, with BSD stat.
}
}