Less data section of SysInit and System units

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

View File

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

View File

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