mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2025-09-21 02:30:07 +02:00
41 lines
604 B
ObjectPascal
41 lines
604 B
ObjectPascal
(*
|
|
Minimal Delphi System unit
|
|
*)
|
|
|
|
unit System;
|
|
|
|
interface
|
|
|
|
type
|
|
PPAnsiChar = ^PAnsiChar;
|
|
PInteger = ^Integer;
|
|
|
|
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. |