jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Correct obc_mapfold

Browse source
This commit is contained in:
Léonard Gérard 2011-11-17 15:22:44 +01:00
parent 2a6dab836a
commit 35a9a24467
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
compiler/obc/obc_mapfold.ml
View file

@ -94,7 +94,9 @@ and extvalue funs acc w =
let wd, acc = evdesc_it funs acc w.w_desc in let wd, acc = evdesc_it funs acc w.w_desc in
{ w with w_desc = wd; }, acc { w with w_desc = wd; }, acc
and evdesc_it funs acc wd = funs.evdesc funs acc wd and evdesc_it funs acc wd =
try funs.evdesc funs acc wd
with Fallback -> evdesc funs acc wd
and evdesc funs acc wd = match wd with and evdesc funs acc wd = match wd with
| Wvar x -> | Wvar x ->
let x, acc = var_ident_it funs.global_funs acc x in let x, acc = var_ident_it funs.global_funs acc x in