diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2002-11-01 17:06:47 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2002-11-01 17:06:47 +0000 |
| commit | ed3123ee870f0362a576a88e0c7cf266581ee1b4 (patch) | |
| tree | cf48c20af4544b2be26740666dffbc1ed4b6e380 /byterun/parsing.c | |
| parent | 24b167171c95abd67eb787ea2cd5aff655ba4574 (diff) | |
changement des locations, premiere tranche
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5224 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 be902c314..79f910a30 100644 --- a/byterun/parsing.c +++ b/byterun/parsing.c @@ -238,8 +238,8 @@ CAMLprim value parse_engine(struct parser_tables *tables, push: Field(env->s_stack, sp) = Val_int(state); modify(&Field(env->v_stack, sp), env->lval); - Field(env->symb_start_stack, sp) = env->symb_start; - Field(env->symb_end_stack, sp) = env->symb_end; + Store_field (env->symb_start_stack, sp, env->symb_start); + Store_field (env->symb_end_stack, sp, env->symb_end); goto loop; reduce: @@ -275,10 +275,10 @@ CAMLprim value parse_engine(struct parser_tables *tables, Field(env->s_stack, sp) = Val_int(state); modify(&Field(env->v_stack, sp), arg); asp = Int_val(env->asp); - Field(env->symb_end_stack, sp) = Field(env->symb_end_stack, asp); + Store_field (env->symb_end_stack, sp, Field(env->symb_end_stack, asp)); if (sp > asp) { /* This is an epsilon production. Take symb_start equal to symb_end. */ - Field(env->symb_start_stack, sp) = Field(env->symb_end_stack, asp); + Store_field (env->symb_start_stack, sp, Field(env->symb_end_stack, asp)); } goto loop; |