Преглед изворни кода

Find local variable references in TMatch conditions

Hugh Sanderson пре 14 година
родитељ
комит
eb8cfaf10b
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      gencpp.ml

+ 1 - 1
gencpp.ml

@@ -734,7 +734,7 @@ let find_undeclared_variables_ctx ctx undeclared declarations this_suffix allow_
 			if  not (Hashtbl.mem declarations local_name) then
 				Hashtbl.replace undeclared local_name (type_string expression.etype)
 		| TMatch (condition, enum, cases, default) ->
-			Type.iter (find_undeclared_variables undeclared declarations this_suffix allow_this) condition;
+			find_undeclared_variables undeclared declarations this_suffix allow_this condition;
 			List.iter (fun (case_ids,params,expression) ->
 				let old_decs = Hashtbl.copy declarations in
 				(match params with