sysinit.pas

来自「说明 ~~~~~~~~~~~~~~~ 各个目录中是各种模块的最小化版本的」· 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.