anchor.diff:      procedure NumberProc;
       procedure OrSymbolProc;
       procedure SlashProc;
  -    procedure BlockOpenProc;
       procedure SpaceProc;
       procedure SymbolProc;
       procedure MakeProcTables;
  
positive.code:         FRange := rsComment;
          FTokenID := tkComment;
          NormalCommentProc;
        end;
    else
      FTokenID := tkSymbol;
    end;
  end;
  
  procedure TSynVerilogSyn.BlockOpenProc;
  begin
    Inc(Run);
    case FLine[Run] of
      '`':
        begin
          FTokenID := tkDirective;
          Inc(Run);
          DirectiveProc;
        end;
    else
      FTokenID := tkSymbol;
  
negative.code: begin
    inc(Run);
    FTokenID := tkNumber;
    while FLine[Run] in ['0'..'9', '.', '''', '_', 'a'..'z', 'A'..'Z'] do
      inc(Run);
  end;
  
  