anchor.diff:    COUNTER_OFFSET = 16;
   type
     TMapNodeBuffer = array[0..7] of PPathMapNode;
  +  TNodeStorageBuffers = array[0..31] of NativeUInt;
   var
     Node: PPathMapNode;
     NodeInfo: NativeUInt;
  
positive.code:     MaximumNode: PPathMapNode;
  
      {$ifdef LARGEINT}
      // todo
      LargeModifier: NativeInt;
      {$endif}
  
      Allocated: NativeUInt;
      Number: NativeUInt;
      Buffers: array[0..31] of NativeUInt{Pointer};
    end;
  
  
negative.code:       // allocate new node
        ChildNode := Store.Info.NodeStorage.NewNode;
        {$ifdef LARGEINT}
          Cell.NodePtr := NativeUInt(NativeInt(ChildNode) + LargeModifier);
        {$else}
          Cell.NodePtr := NativeUInt(ChildNode);
        {$endif}
  