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