|
@@ -1244,7 +1244,7 @@ module LocalDce = struct
|
|
| TVar(v,None) -> is_used v
|
|
| TVar(v,None) -> is_used v
|
|
| TVar(v,Some e1) -> is_used v || Optimizer.has_side_effect e1
|
|
| TVar(v,Some e1) -> is_used v || Optimizer.has_side_effect e1
|
|
| TBinop(OpAssign,{eexpr = TLocal v},e2) -> is_used v || Optimizer.has_side_effect e2
|
|
| TBinop(OpAssign,{eexpr = TLocal v},e2) -> is_used v || Optimizer.has_side_effect e2
|
|
- | _ -> true
|
|
|
|
|
|
+ | _ -> Optimizer.has_side_effect e
|
|
in
|
|
in
|
|
let rec collect e = match e.eexpr with
|
|
let rec collect e = match e.eexpr with
|
|
| TLocal v ->
|
|
| TLocal v ->
|