anchor.diff:  
   {.$define CPFLOG}
   {.$define CPFAPI}
  -{.$define CPFLIB}
  +{$define CPFLIB}
   
   {$ifdef CPFLIB}
     {$define CPFAPI}  
  
positive.code:       TPathMapWeightsPtr(Weights).__ObjRelease;
      {$else}
        TPathMapWeightsPtr(Weights).Destroy;
      {$ifend}
    end;
  end;
  
negative.code:       TPathMapWeightsPtr(Map).__ObjRelease;
      {$else}
        TPathMapWeightsPtr(Map).Destroy;
        {$ifdef CPFLIB}
          CPFFree(Map, Address);
        {$endif}
      {$ifend}
    end;
  end;
  