Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rectification de symbol_start pour une epsilon-production. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1082 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-10-17 10:01:35 +00:00
parent 34dd4de7e2
commit c7f8a411d8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
stdlib/parsing.ml
View File

@ -168,7 +168,9 @@ let peek_val env n =
Obj.magic env.v_stack.(env.asp - n)
let symbol_start () =
env.symb_start_stack.(env.asp - env.rule_len + 1)
if env.rule_len > 0
then env.symb_start_stack.(env.asp - env.rule_len + 1)
else env.symb_end_stack.(env.asp)
let symbol_end () =
env.symb_end_stack.(env.asp)