anchor.diff:    end;
   
     {$ifNdef BRAINMM_UNITTEST}
  -  GlobalStorage := Pointer(NativeInt(@GLOBAL_STORAGE[63]) and MASK_64_CLEAR);
  -  Result := GlobalStorage.K64BlockCache.Stack.Pop;
  -  if (Result <> nil) then
  -  begin
  -    AtomicDecrement(NativeInt(GlobalStorage.K64BlockCache.Count));
  -  end else
  +  Result := TGlobalStorage(nil^).K64BlockCachePop;
  +  if (Result = nil) then
     {$endif}
     begin
       {$ifdef MSWINDOWS}
  
positive.code:   end;
  
    {$ifNdef BRAINMM_UNITTEST}
    GlobalStorage := Pointer(NativeInt(@GLOBAL_STORAGE[63]) and MASK_64_CLEAR);
    if (GlobalStorage.K64BlockCache.Count < 16) then
    begin
      AtomicIncrement(NativeInt(GlobalStorage.K64BlockCache.Count));
      GlobalStorage.K64BlockCache.Stack.Push(Block);
      Result := True;
    end else
    {$endif}
    begin
      {$ifdef MSWINDOWS}
  
negative.code:     Result := GlobalStorage.CoreThreadHeaps.Pop;
      if (Result = nil) then
      begin
        Result := TGlobalStorage(nil^).GrowThreadHeaps;
        if (Result = nil) then
          {$ifdef CONDITIONALEXPRESSIONS}System.Error(reOutOfMemory){$else}System.RunError(203){$endif};
      end;
      FillChar(Result^, SizeOf(TThreadHeap), #0);
      Result.FMarkerNotSelf := not SupposedPtr(Result);
  