anchor.diff:          uclass.modifiers := uclass.modifiers+p.TokenString+' ';
           p.NextToken;
         end;
  +      p.NextToken; // ';'
         continue;
       end;
   
  
positive.code:       result.options := result.options+p.TokenString;
        p.NextToken;
      end;
      p.NextToken; // = ;
      if (result.comment = '') then begin
        result.comment := GetSecondaryComment(uclass.FullName+'.'+result.name);
        result.CommentType := ctExtern;
  
negative.code:       pFunc();
        continue;
      end;
      InternalLog('Discarding token: '+p.TokenString, ltWarn, CreateLogEntry(GetLogFilename(), p.SourceLine, 0, uclass));
      p.NextToken; // we should not even get here
    end;
    unguard;
  