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: {$EXTERNALSYM InterlockedCompareExchange}
  {$ifend}
  
  implementation
  
  procedure ReleaseAttachData(pvBlock:PBufferBlock); {$IFDEF HAVE_INLINE} inline;{$ENDIF} 
  begin
  
negative.code: end;
  
  
  
  
  end.
  