|
@@ -303,6 +303,9 @@ module Simplifier = struct
|
|
| TReturn (Some e1) ->
|
|
| TReturn (Some e1) ->
|
|
let e1 = bind e1 in
|
|
let e1 = bind e1 in
|
|
{e with eexpr = TReturn (Some e1)}
|
|
{e with eexpr = TReturn (Some e1)}
|
|
|
|
+ | TThrow e1 ->
|
|
|
|
+ let e1 = bind e1 in
|
|
|
|
+ {e with eexpr = TThrow e1}
|
|
| TCast(e1,mto) ->
|
|
| TCast(e1,mto) ->
|
|
let e1 = bind ~allow_tlocal:true e1 in
|
|
let e1 = bind ~allow_tlocal:true e1 in
|
|
{e with eexpr = TCast(e1,mto)}
|
|
{e with eexpr = TCast(e1,mto)}
|