anchor.diff:          uclass.modifiers := uclass.modifiers+p.TokenString+' ';
           p.NextToken;
         end;
  +      p.NextToken; // ';'
         continue;
       end;
   
  
positive.code:       pFunc();
        continue;
      end;
      p.NextToken; // we should not even get here
    end;
    unguard;
  
negative.code:     result.srcline := p.SourceLine;
      result.definedIn := incFilename;
      p.NextToken; // =
      if (p.Token <> '=') then begin
        InternalLog(uclass.filename+' #'+IntToStr(p.SourceLine-1)+': expected "=" got "'+p.tokenString+'"', ltError, CreateLogEntry(GetLogFilename(), p.SourceLine, 0, uclass));
      end;
      p.GetCopyData();
      p.FullCopy := true;
      p.FCIgnoreComments := true;
  