diff options
| -rw-r--r-- | perl_checker.src/parser_helper.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index ba30b58..a07ad38 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -897,9 +897,9 @@ let rec list2tokens l = match !rl with | [] -> internal_error "list2tokens" | ((start, end_), e) :: l -> - lexbuf.Lexing.lex_abs_pos <- 0 ; - lexbuf.Lexing.lex_start_pos <- start ; - lexbuf.Lexing.lex_curr_pos <- end_ ; + (* HACK: fake a normal lexbuf *) + lexbuf.Lexing.lex_start_p <- { Lexing.dummy_pos with Lexing.pos_cnum = start } ; + lexbuf.Lexing.lex_curr_p <- { Lexing.dummy_pos with Lexing.pos_cnum = end_ } ; rl := l ; e let parse_tokens parse tokens lexbuf_opt = |