diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-28 10:05:49 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-28 10:05:49 +0000 |
| commit | 51fcd131f14e99e86c26053756f31fdcda41a2ee (patch) | |
| tree | d961b3d7eb24a4d41924a46e6117cd847a5c74f6 /byterun/parsing.c | |
| parent | c5d9eb31927535e4f4ddcd6323ee0453d8d57ced (diff) | |
Bug d'allocation memoire dans le maniement des attributs de tokens
(il fallait utiliser modify au lieu d'affecter directement Val_long(0)).
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@674 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/parsing.c')
| -rw-r--r-- | byterun/parsing.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/byterun/parsing.c b/byterun/parsing.c index 1be57adfe..ea470c2ca 100644 --- a/byterun/parsing.c +++ b/byterun/parsing.c @@ -138,7 +138,7 @@ value parse_engine(tables, env, cmd, arg) /* ML */ modify(&env->lval, Field(arg, 0)); } else { env->curr_char = Field(tables->transl_const, Int_val(arg)); - env->lval = Val_long(0); + modify(&env->lval, Val_long(0)); } Trace(printf("Token %d (0x%lx)\n", Int_val(env->curr_char), env->lval)); |