sysinit.pas

来自「delphi源代码分析源码」· PAS 代码 · 共 15 行

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

implementation

end.