anchor.diff:  begin
   
     Found := FindFirst( FileMask, SearchAttr, SR );
  -	//raise EWin32Error.Create(SysErrorMessage(Found));	
     if Found = 0 then begin
       try
         NameMask := UpperCase(ExtractFileName(FileMask));
         while Found = 0 do begin
           NewFile := ExtractFilePath( FileMask ) + SR.Name;
  -	   if ((sr.Name <> AbThisDir) and (sr.Name <> AbParentDir)) then begin
  -	        if AbPatternMatch(UpperCase(SR.Name), 1, NameMask, 1) then
  -    	    FileList.Add( NewFile );
  +       if ((sr.Name <> AbThisDir) and (sr.Name <> AbParentDir)) then begin
  +            if AbPatternMatch(UpperCase(SR.Name), 1, NameMask, 1) then
  +            FileList.Add( NewFile );
           end;
           Found := FindNext( SR );
         end;
  
positive.code: end;
  { -------------------------------------------------------------------------- }
  {!!.01 -- Added }
  function AbFileGetSize(const aFileName : string) :
  {$IFDEF MSWINDOWS}
    {$IFDEF VERSION4} Int64 {$ELSE} LongInt {$ENDIF};
  {$ENDIF}
  {$IFDEF LINUX}
    Int64;
  {$ENDIF}
  {$IFDEF MSWINDOWS}
  var
    SR : TSearchRec;
  
negative.code: {$IFDEF MSWINDOWS}
    Result := -1;
    if FindFirst(aFileName, faAnyFile, SR) = 0 then begin       {!!.02}
    {$IFDEF Version6} {$WARN SYMBOL_PLATFORM OFF} {$ENDIF}
      Int64Rec(Result).Lo := SR.FindData.nFileSizeLow;
      Int64Rec(Result).Hi := SR.FindData.nFileSizeHigh;
    {$IFDEF Version6} {$WARN SYMBOL_PLATFORM ON} {$ENDIF}
      FindClose(SR);                                            {!!.02}
    end;                                                        {!!.02}
  {$ENDIF}
  {$IFDEF LINUX}
    // Work around Kylix QC#2761: Stat64, et al., are defined incorrectly
    if (__lxstat64(_STAT_VER, PChar(aFileName), StatBuf) = 0) then
      Result := StatBuf.st_size
    else
      Result := -1;
  {$ENDIF}
  end;
  {!!.01 -- End Added }
  