Permalink
Browse files

Fix version calculation for assignments.

  • Loading branch information...
xlq committed Sep 9, 2012
1 parent ad463ea commit 3c993344fe12ea95592c4f3eced52c7fed847d08
Showing with 3 additions and 3 deletions.
  1. +3 −3 icode.ml
View
@@ -208,10 +208,10 @@ let calculate_versions (blocks: block list): unit =
in
let rec bind_iterm context = function
| Assignment_term(loc, dest, src, tail) ->
let src = bind_expr context src in
let context, dest = bind_lvalue context dest in
Assignment_term(loc, dest,
bind_expr context src,
bind_iterm context tail)
let tail = bind_iterm context tail in
Assignment_term(loc, dest, src, tail)
| If_term(loc, cond, true_part, false_part) ->
If_term(loc,
bind_expr context cond,

0 comments on commit 3c99334

Please sign in to comment.