anchor.diff:    Result := ((FAttributes and faVolumeID) > 0);
   {$WARN SYMBOL_PLATFORM ON}
   {$ENDIF LINUX}
  +{$WARN SYMBOL_DEPRECATED ON}
   end;
   {-----------------------------------------------------------------------------}
   procedure TAbDirectoryEntry.WriteToStream(Strm : TMemoryStream);
  
positive.code: function TAbDirectoryEntry.IsVolumeID : Boolean;
    {- returns true if the entry is a volume ID}
  begin
  {$IFNDEF Linux}
  {$IFDEF Version6} {$WARN SYMBOL_PLATFORM OFF} {$ENDIF}
    Result := ((FAttributes and faVolumeID) > 0);
  
negative.code: {*********************************************************}
  {* ABBREVIA: AbCompnd.pas 3.05                           *}
  {*********************************************************}
  {* ABBREVIA: Compound File classes and component (VCL)   *}
  {*   See AbQCmpnd.pas for the CLX header                 *}
  {*********************************************************}
  
  unit AbCompnd;
  
  {$I AbDefine.inc}
  
  