mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-11-09 09:40:27 +01:00
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:
parent
42bf5fb77e
commit
f3b9eb0296
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user