Browse Source

handle parameter of TDynamic when updating cache dependencies

Simon Krajewski 11 years ago
parent
commit
d7893508a3
1 changed files with 5 additions and 2 deletions
  1. 5 2
      codegen.ml

+ 5 - 2
codegen.ml

@@ -1829,8 +1829,11 @@ let update_cache_dependencies com =
 			| _ -> ())
 		| TLazy f ->
 			check_t m (!f())
-		| TDynamic _ ->
-			()
+		| TDynamic t ->
+			if t == t_dynamic then
+				()
+			else
+				check_t m t
 	and check_field m cf =
 		check_t m cf.cf_type
 	in