From 641d6e33045af19293d61d766c38493c1d4b9e4c Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 9 Feb 1999 12:01:03 +0000
Subject: [PATCH] + Implemented filetruncate

---
 rtl/win32/filutil.inc | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/rtl/win32/filutil.inc b/rtl/win32/filutil.inc
index d84cc6a81d..2902a12293 100644
--- a/rtl/win32/filutil.inc
+++ b/rtl/win32/filutil.inc
@@ -86,6 +86,9 @@ end;
 Function FileTruncate (Handle,Size: Longint) : boolean;
 
 begin
+  Result:=SetFilePointer(handle,Size,nil,FILE_BEGIN)<>-1;
+  If Result then 
+    Result:=SetEndOfFile(handle);
 end;
 
 
@@ -194,7 +197,10 @@ end;
 
 {
   $Log$
-  Revision 1.2  1999-02-03 11:41:30  michael
+  Revision 1.3  1999-02-09 12:01:03  michael
+  + Implemented filetruncate
+
+  Revision 1.2  1999/02/03 11:41:30  michael
   + Added filetruncate
 
   Revision 1.1  1998/10/11 12:21:01  michael