sysinit.pas

delphi源代码分析源码

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.