diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2003-12-31 14:20:40 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2003-12-31 14:20:40 +0000 |
| commit | 331b2d89c3dc4fb7e1b51276a5a9e37a6c8c8b3a (patch) | |
| tree | 305f55662dc4f3e95d7aac3ffd0659112c27e1df /byterun/parsing.c | |
| parent | fc3a69ce89605c92e3b65d17241a5e23644fc08e (diff) | |
depollution suite (PR#1914, PR#1956)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6044 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/parsing.c')
| -rw-r--r-- | byterun/parsing.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/byterun/parsing.c b/byterun/parsing.c index 79f910a30..3f9ac3565 100644 --- a/byterun/parsing.c +++ b/byterun/parsing.c @@ -166,10 +166,10 @@ CAMLprim value parse_engine(struct parser_tables *tables, RESTORE; if (Is_block(arg)) { env->curr_char = Field(tables->transl_block, Tag_val(arg)); - modify(&env->lval, Field(arg, 0)); + caml_modify(&env->lval, Field(arg, 0)); } else { env->curr_char = Field(tables->transl_const, Int_val(arg)); - modify(&env->lval, Val_long(0)); + caml_modify(&env->lval, Val_long(0)); } if (parser_trace) print_token(tables, state, arg); @@ -237,7 +237,7 @@ CAMLprim value parse_engine(struct parser_tables *tables, RESTORE; push: Field(env->s_stack, sp) = Val_int(state); - modify(&Field(env->v_stack, sp), env->lval); + caml_modify(&Field(env->v_stack, sp), env->lval); Store_field (env->symb_start_stack, sp, env->symb_start); Store_field (env->symb_end_stack, sp, env->symb_end); goto loop; @@ -273,7 +273,7 @@ CAMLprim value parse_engine(struct parser_tables *tables, case SEMANTIC_ACTION_COMPUTED: RESTORE; Field(env->s_stack, sp) = Val_int(state); - modify(&Field(env->v_stack, sp), arg); + caml_modify(&Field(env->v_stack, sp), arg); asp = Int_val(env->asp); Store_field (env->symb_end_stack, sp, Field(env->symb_end_stack, asp)); if (sp > asp) { |