Csubst: added missing recursive call for array indexes.
This commit is contained in:
parent
7b6690d443
commit
381e4e84f7
1 changed files with 1 additions and 1 deletions
|
@ -29,7 +29,7 @@ and subst_lhs map lhs =
|
|||
| Cvar n ->
|
||||
if NamesEnv.mem n map then NamesEnv.find n map else lhs
|
||||
| Cfield (lhs, s) -> Cfield (subst_lhs map lhs, s)
|
||||
| Carray (lhs, n) -> Carray (subst_lhs map lhs, n)
|
||||
| Carray (lhs, n) -> Carray (subst_lhs map lhs, subst_exp map n)
|
||||
| Cderef lhs -> Cderef (subst_lhs map lhs)
|
||||
|
||||
and subst_exp map = function
|
||||
|
|
Loading…
Reference in a new issue