diff options
author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-04-18 22:59:41 +0000 |
---|---|---|
committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-04-18 22:59:41 +0000 |
commit | 4ec03d034e43efeaab87762ed14fd99d1eab188c (patch) | |
tree | 32fa53ccbf0b9c3f9aa3e53f8266459a240ff3ff /byterun | |
parent | a1e231752ca8e5b7435f0ffd9e5540431ced1c41 (diff) | |
download | ocaml-4ec03d034e43efeaab87762ed14fd99d1eab188c.tar.gz |
roll-back commit bugs
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4704 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun')
-rw-r--r-- | byterun/lexing.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/byterun/lexing.c b/byterun/lexing.c index ec44eb053e..dab0a962f8 100644 --- a/byterun/lexing.c +++ b/byterun/lexing.c @@ -22,7 +22,7 @@ struct lexer_buffer { value refill_buff; value lex_buffer; - value lex_buffer_end; + value lex_buffer_len; value lex_abs_pos; value lex_start_pos; value lex_curr_pos; @@ -72,7 +72,7 @@ CAMLprim value lex_engine(struct lexing_table *tbl, value start_state, lexbuf->lex_last_action = Val_int(backtrk); } /* See if we need a refill */ - if (lexbuf->lex_curr_pos >= lexbuf->lex_buffer_end){ + if (lexbuf->lex_curr_pos >= lexbuf->lex_buffer_len){ if (lexbuf->lex_eof_reached == Val_bool (0)){ return Val_int(-state - 1); }else{ |