Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-09-19 17:41:01 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Less data section of SysInit and System units

Browse Source 
HelloGUI program compiled by Delphi 7 now is 4858 bytes long instead of 8196 bytes before.
This commit is contained in:
Владислав Джавадов 2021-01-16 14:10:10 +03:00
parent 42bf5fb77e
commit f3b9eb0296
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Lib/SysInit.pas
View File

@ -1,7 +1,7 @@
(* (*
KolibriOS RTL SysInit unit KolibriOS RTL SysInit unit
Copyright (c) 2020 Delphi SDK for KolibriOS team Copyright (c) 2020-2021 Delphi SDK for KolibriOS team
*) *)
unit SysInit; unit SysInit;
@ -11,11 +11,10 @@ interface
procedure _InitExe(InitTable: PPackageInfo); procedure _InitExe(InitTable: PPackageInfo);
var var
TLSIndex: Integer = -1; PtrToNil: Pointer;
TLSLast: Byte;
const TLSIndex: Integer; // = -1;
PtrToNil: Pointer = nil; TLSLast: Byte;
implementation implementation

6
Lib/System.pas
View File

@ -221,7 +221,7 @@ function SysGetMem(Size: Integer): Pointer;
function SysReallocMem(P: Pointer; Size: Integer): Pointer; function SysReallocMem(P: Pointer; Size: Integer): Pointer;
var var
Default8087CW: Word = $1332; // for Extended type Default8087CW: Word;
function Get8087CW: Word; function Get8087CW: Word;
procedure Set8087CW(Value: Word); procedure Set8087CW(Value: Word);
@ -934,8 +934,8 @@ initialization
asm asm
// InitFPU // InitFPU
FNINIT MOV AX, $1332
FLDCW Default8087CW CALL Set8087CW
{$IFDEF KolibriOS} {$IFDEF KolibriOS}
// HeapInit // HeapInit