mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2025-09-22 07:03:53 +02:00
Units initialization/finalization support added
This commit is contained in:
@@ -1,15 +1,14 @@
|
||||
(*
|
||||
Minimal Delphi SysInit unit
|
||||
KolibriOS RTL System unit
|
||||
*)
|
||||
|
||||
unit SysInit;
|
||||
|
||||
interface
|
||||
|
||||
procedure _InitExe;
|
||||
procedure _InitExe(InitTable: PPackageInfo);
|
||||
|
||||
var
|
||||
ModuleIsLib: Boolean;
|
||||
TLSIndex: Integer = -1;
|
||||
TLSLast: Byte;
|
||||
|
||||
@@ -18,8 +17,9 @@ const
|
||||
|
||||
implementation
|
||||
|
||||
procedure _InitExe;
|
||||
asm
|
||||
procedure _InitExe(InitTable: PPackageInfo);
|
||||
begin
|
||||
_StartExe(InitTable);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
Reference in New Issue
Block a user