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

parser_env -> __caml_parser_env 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6668 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2004-11-06 20:16:10 +00:00
parent fb95331a3c
commit d9ad8992f2
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
yacc/reader.c
View File

@ -1266,9 +1266,9 @@ void copy_action(void)
nrules-2, input_file_name, lineno);
*/
if (sflag)
fprintf(f, "yyact.(%d) <- (fun parser_env ->\n", nrules-2);
fprintf(f, "yyact.(%d) <- (fun __caml_parser_env ->\n", nrules-2);
else
fprintf(f, "; (fun parser_env ->\n");
fprintf(f, "; (fun __caml_parser_env ->\n");
n = 0;
for (i = nitems - 1; pitem[i]; --i) ++n;
@ -1278,11 +1278,13 @@ void copy_action(void)
if (item->class == TERM && !item->tag) continue;
fprintf(f, " let _%d = ", i);
if (item->tag)
fprintf(f, "(peek_val parser_env %d : %s) in\n", n - i, item->tag);
fprintf(f, "(peek_val __caml_parser_env %d : %s) in\n", n - i,
item->tag);
else if (sflag)
fprintf(f, "peek_val parser_env %d in\n", n - i);
fprintf(f, "peek_val __caml_parser_env %d in\n", n - i);
else
fprintf(f, "(peek_val parser_env %d : '%s) in\n", n - i, item->name);
fprintf(f, "(peek_val __caml_parser_env %d : '%s) in\n", n - i,
item->name);
}
fprintf(f, " Obj.repr(\n");
fprintf(f, line_format, lineno, input_file_name);
@ -1768,11 +1770,11 @@ void make_goal(void)
"(* Entry %s *)\n", bp->name);
if (sflag)
fprintf(action_file,
"yyact.(%d) <- (fun parser_env -> raise (YYexit (peek_val parser_env 0)))\n",
"yyact.(%d) <- (fun __caml_parser_env -> raise (YYexit (peek_val __caml_parser_env 0)))\n",
ntotalrules);
else
fprintf(action_file,
"; (fun parser_env -> raise (YYexit (peek_val parser_env 0)))\n");
"; (fun __caml_parser_env -> raise (YYexit (peek_val __caml_parser_env 0)))\n");
ntotalrules++;
last_was_action = 1;
end_rule();