From 92eee6e7f2f87283db4e91201a43b9cb351c1b66 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Fri, 17 Mar 2000 12:58:57 +0000
Subject: [PATCH]  * some changes to ftruncate based procs. Added a "0" as
 extra parameter

---
 rtl/bsd/linux.pp     |  7 +++++--
 rtl/bsd/syslinux.pp  |  7 +++++--
 rtl/bsd/systypes.inc | 12 ++++++++----
 3 files changed, 18 insertions(+), 8 deletions(-)

diff --git a/rtl/bsd/linux.pp b/rtl/bsd/linux.pp
index 20a730f45c..06fad89d74 100644
--- a/rtl/bsd/linux.pp
+++ b/rtl/bsd/linux.pp
@@ -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
diff --git a/rtl/bsd/syslinux.pp b/rtl/bsd/syslinux.pp
index e228fe782e..f2470446c7 100644
--- a/rtl/bsd/syslinux.pp
+++ b/rtl/bsd/syslinux.pp
@@ -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
diff --git a/rtl/bsd/systypes.inc b/rtl/bsd/systypes.inc
index 594b5e2d27..4b259f81b9 100644
--- a/rtl/bsd/systypes.inc
+++ b/rtl/bsd/systypes.inc
@@ -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.
 
-}
+}
\ No newline at end of file