anchor.diff:    Next := PoolSmall.Queue.Next;
     if (Prev = nil) then
     begin
  -    QK64PoolSmall := Next;
  +    Self.QK64PoolSmall := Next;
     end else
     begin
       Prev.Queue.Next := Next;
  
positive.code: {$ifdef PUREPASCAL}
  begin
    Result := ThreadHeapInstance;
  end;
  {$else}
  asm
    {$ifdef CPUX86}
      mov eax, fs:[THREAD_HEAP]
    {$else .CPUX64}
      mov rax, gs:[abs THREAD_HEAP]
    {$endif}
  end;
  {$endif}
  
negative.code:         PoolSmall.Queue.Next := NextFull;
          if (Next <> nil) then
          begin
            Next.Queue.Prev := nil;
            if (NextFull <> nil) then NextFull.Queue.Prev := PoolSmall;
            // Continue;
          end else
  