anchor.diff:  procedure ShowMessage(const S: string); overload;
   procedure ShowMessage(const StrFmt: string; const Args: array of const); overload;
   
  -implementation
  -
   type
     TMapNodeBuffer = array[0..7] of PCPFNode;
     PMapNodeBuffer = ^TMapNodeBuffer;
  
positive.code:       SortValue: Cardinal;
      end;
    end;
  
  
  procedure __InsertNodes(var S: TFindPathLoopStore; NodeInfo: NativeUInt);
  
negative.code: 
      {$ifdef CPUX86}
      ChildList: PWord;
      TopGreatherNode: PCPFNode;
      {$endif}
  
      Current: record
  