mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-09-20 01:41:03 +02:00
35 lines
384 B
ObjectPascal
35 lines
384 B
ObjectPascal
(*
|
|
Minimal Delphi SysInit unit
|
|
*)
|
|
|
|
unit SysInit;
|
|
|
|
interface
|
|
|
|
procedure _InitExe;
|
|
procedure _Halt0;
|
|
procedure _InitLib(Context: PInitContext);
|
|
|
|
var
|
|
ModuleIsLib: Boolean;
|
|
TLSIndex: Integer = -1;
|
|
TLSLast: Byte;
|
|
|
|
const
|
|
PtrToNil: Pointer = nil;
|
|
|
|
implementation
|
|
|
|
procedure _InitLib(context: pinitcontext);
|
|
asm
|
|
end;
|
|
|
|
procedure _InitExe;
|
|
asm
|
|
end;
|
|
|
|
procedure _Halt0;
|
|
asm
|
|
end;
|
|
|
|
end. |