anchor.diff:    FREE_TYPE_FREEMEM = 1;
     FREE_TYPE_DISPOSE = 2;
     FREE_TYPE_OBJECTFREE = 3;
  +  FREE_TYPE_OBJECTNONE = 4;
   
   
   function NewBufferPool(pvBlockSize: Integer = 1024): PBufferPool;
  
positive.code: end;
  
  
  end.
  
negative.code:       0: ;
        1: FreeMem(pvBlock.data);
        2: Dispose(pvBlock.data);
        3: FreeObject(pvBlock.data);
  {$IFDEF AUTOREFCOUNT}
        FREE_TYPE_OBJECTNONE: TObject(pvBlock.data).__ObjRelease;
  {$ENDIF}
  
      else
        Assert(False, Format('BufferBlock[%s] unkown data free type:%d', [pvBlock.owner.FName, pvBlock.data_free_type]));
      end;
  