Aren/kolibrios
1
0
Fork 0
mirror of https://github.com/KolibriOS/kolibrios.git synced 2024-11-24 01:39:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

freepascal rtl fix to work

Browse Source 
git-svn-id: svn://kolibrios.org@7625 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
siemargl 2019-04-10 06:10:13 +00:00
parent 2a3f609db6
commit 24fde9ea89
4 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
programs/develop/fp/rtl/build.bat
View File

@ -1,3 +1,4 @@
@echo off
set FPCDIR=D:\_bin\FPC222\fpcbuild-2.2.2\fpcsrc
fpcmake -Twin32
make

7
programs/develop/fp/rtl/kos_def.inc
View File

@ -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 = [];

4
programs/develop/fp/rtl/system.pp
View File

@ -19,6 +19,10 @@ const
MaxExitCode = 65535;
MaxPathLen = 512;
InitialStkLen = 20480; /// siemargl
UnusedHandle : THandle = -1;
StdInputHandle : THandle = 0;
StdOutputHandle: THandle = 0;

2
programs/develop/fp/rtl/sysutils.pp
View File

@ -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;