sysinit.pas

来自「delphi开发语言下的源代码分析」· PAS 代码 · 共 26 行

unit SysInit;

interface

var
  TlsIndex: Integer = -1;       { Thread local storage index }
  TlsLast: Byte;                { Set by linker so its offset is last in TLS segment }

const
  PtrToNil: Pointer = nil;     // provides pointer to nil for compiler codegen

procedure _PackageLoad(const Table: PackageInfo);
procedure _PackageUnload(const Table: PackageInfo);

implementation

procedure _PackageLoad(const Table: PackageInfo);
asm
end;

procedure _PackageUnload(const Table: PackageInfo);
asm
end;

end.