pass array to analyzer

src/filters/filters.ml

@@ -490,7 +490,7 @@ let run tctx ectx main before_destruction =
 			Parallel.ParallelArray.iter pool (SafeCom.run_expression_filters_safe scom detail_times filters) new_types_array
 		);
 		enter_stage com CAnalyzerStart;
-		if com.platform <> Cross then Analyzer.Run.run_on_types com pool new_types;
+		if com.platform <> Cross then Analyzer.Run.run_on_types com pool new_types_array;
 		enter_stage com CAnalyzerDone;
 		let locals = RenameVars.init scom.platform_config com.types in
 		let filters = [

src/optimization/analyzer.ml

@@ -1197,7 +1197,7 @@ module Run = struct
 			if config.optimize && config.purity_inference then
 				with_timer com.timer_ctx config.detail_times None ["optimize";"purity-inference"] (fun () -> Purity.infer com);
 			let exc_out = Atomic.make None in
-			Parallel.ParallelArray.iter pool (run_on_type scom exc_out pool config) (Array.of_list types);
+			Parallel.ParallelArray.iter pool (run_on_type scom exc_out pool config) types;
 			check_exc_out exc_out
 		)
 end