mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-11-13 03:17:30 +01:00
44 lines
628 B
ObjectPascal
44 lines
628 B
ObjectPascal
(*
|
|
Minimal Delphi System unit
|
|
*)
|
|
|
|
unit System;
|
|
|
|
interface
|
|
|
|
type
|
|
PPAnsiChar = ^PAnsiChar;
|
|
PInteger = ^Integer;
|
|
|
|
THandle = LongWord;
|
|
|
|
TGUID = record
|
|
D1: LongWord;
|
|
D2: Word;
|
|
D3: Word;
|
|
D4: array [0..7] of Byte;
|
|
end;
|
|
|
|
PInitContext = ^TInitContext;
|
|
TInitContext = record
|
|
OuterContext: PInitContext;
|
|
ExceptionFrame, InitTable, InitCount: Integer;
|
|
Module: Pointer;
|
|
DLLSaveEBP, DLLSaveEBX, DLLSaveESI, DLLSaveEDI: Pointer;
|
|
ExitProcessTLS: procedure;
|
|
DLLInitState: byte;
|
|
end;
|
|
|
|
procedure _HandleFinally;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysInit;
|
|
|
|
procedure _HandleFinally;
|
|
asm
|
|
end;
|
|
|
|
end.
|