Units initialization/finalization support added

This commit is contained in:
2020-06-07 19:39:30 +03:00
parent 92d967d122
commit bf2e9bcc4b
9 changed files with 104 additions and 42 deletions

View File

@@ -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.