sysinit.pas

说明 ~~~~~~~~~~~~~~~ 各个目录中是各种模块的最小化版本的内核。 使用_Build.bat可以编译测试程序

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.