From 24fde9ea8978f5c2a55380054ae0a9d9e914c865 Mon Sep 17 00:00:00 2001
From: siemargl <siemargl@kolibrios.org>
Date: Wed, 10 Apr 2019 06:10:13 +0000
Subject: [PATCH] freepascal rtl fix to work

git-svn-id: svn://kolibrios.org@7625 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 programs/develop/fp/rtl/build.bat   | 1 +
 programs/develop/fp/rtl/kos_def.inc | 7 +++++++
 programs/develop/fp/rtl/system.pp   | 4 ++++
 programs/develop/fp/rtl/sysutils.pp | 2 +-
 4 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/programs/develop/fp/rtl/build.bat b/programs/develop/fp/rtl/build.bat
index 0d77aaecf..d230579df 100644
--- a/programs/develop/fp/rtl/build.bat
+++ b/programs/develop/fp/rtl/build.bat
@@ -1,3 +1,4 @@
 @echo off
+set FPCDIR=D:\_bin\FPC222\fpcbuild-2.2.2\fpcsrc
 fpcmake -Twin32
 make
\ No newline at end of file
diff --git a/programs/develop/fp/rtl/kos_def.inc b/programs/develop/fp/rtl/kos_def.inc
index c6395306f..ddd15c521 100644
--- a/programs/develop/fp/rtl/kos_def.inc
+++ b/programs/develop/fp/rtl/kos_def.inc
@@ -113,3 +113,10 @@ const
   VK_F10 = 121;
   VK_F11 = 122;
   VK_F12 = 123;
+
+/// siemargl add
+const 
+ ExtensionSeparator = '.';
+ AllowDirectorySeparators : set of char = ['/'];
+ AllowDriveSeparators : set of char = [];
+
diff --git a/programs/develop/fp/rtl/system.pp b/programs/develop/fp/rtl/system.pp
index a7324032e..47357c8b7 100644
--- a/programs/develop/fp/rtl/system.pp
+++ b/programs/develop/fp/rtl/system.pp
@@ -19,6 +19,10 @@ const
   MaxExitCode = 65535;
   MaxPathLen = 512;
 
+  InitialStkLen = 20480; /// siemargl
+
+
+
   UnusedHandle   : THandle = -1;
   StdInputHandle : THandle = 0;
   StdOutputHandle: THandle = 0;
diff --git a/programs/develop/fp/rtl/sysutils.pp b/programs/develop/fp/rtl/sysutils.pp
index 5be423121..c5540d530 100644
--- a/programs/develop/fp/rtl/sysutils.pp
+++ b/programs/develop/fp/rtl/sysutils.pp
@@ -162,7 +162,7 @@ begin
   ReleaseFileRecord(Handle);
 end;
 
-function FileTruncate(Handle: THandle; Size: Longint): Boolean;
+function FileTruncate(Handle: THandle; Size: Int64): Boolean;
 begin
   Result := False;
 end;