anchor.diff:        '>': FProcTable[I] := @GreaterProc;
         '<': FProcTable[I] := @LowerProc;
         '/': FProcTable[I] := @SlashProc;
  -      '{': FProcTable[I] := @BlockOpenProc;
         '|': FProcTable[I] := @OrSymbolProc;
         '"': FProcTable[I] := @DQStringProc;
  -      //'`': FProcTable[I] := @DirectiveProc;
  +      '`': FProcTable[I] := @DirectiveProc;
   
         '0'..'9':
           FProcTable[I] := @NumberProc;
  
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;
  
  