Browse Source

[analyzer] bind TThrow

Simon Krajewski 11 years ago
parent
commit
756d061165
1 changed files with 3 additions and 0 deletions
  1. 3 0
      analyzer.ml

+ 3 - 0
analyzer.ml

@@ -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)}