RTL for FP 2.2.0

git-svn-id: svn://kolibrios.org@643 a494cfbc-eb01-0410-851d-a64ba20cac60
2007-09-28 12:26:28 +00:00
parent 3e571197e0
commit ec5962d52e
8 changed files with 79 additions and 26 deletions
--- a/programs/develop/fp/rtl/sysutils.pp
+++ b/programs/develop/fp/rtl/sysutils.pp
@@ -161,7 +161,7 @@ begin
  ReleaseFileRecord(Handle);
 end;

-function FileTruncate(Handle: THandle; Size: Int64): Boolean;
+function FileTruncate(Handle: THandle; Size: Longint): Boolean;
 begin
  Result := False;
 end;