Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 790 → Rev 7625

/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
/programs/develop/fp/rtl/kos_def.inc
113,3 → 113,10
VK_F10 = 121;
VK_F11 = 122;
VK_F12 = 123;
 
/// siemargl add
const
ExtensionSeparator = '.';
AllowDirectorySeparators : set of char = ['/'];
AllowDriveSeparators : set of char = [];
 
/programs/develop/fp/rtl/system.pp
19,6 → 19,10
MaxExitCode = 65535;
MaxPathLen = 512;
 
InitialStkLen = 20480; /// siemargl
 
 
 
UnusedHandle : THandle = -1;
StdInputHandle : THandle = 0;
StdOutputHandle: THandle = 0;
/programs/develop/fp/rtl/sysutils.pp
162,7 → 162,7
ReleaseFileRecord(Handle);
end;
 
function FileTruncate(Handle: THandle; Size: Longint): Boolean;
function FileTruncate(Handle: THandle; Size: Int64): Boolean;
begin
Result := False;
end;