2
0
Эх сурвалжийг харах

raise Fatal_error if macro post-process fails (fixed issue #1351)

Simon Krajewski 12 жил өмнө
parent
commit
02ab4a1245
1 өөрчлөгдсөн 2 нэмэгдсэн , 1 устгасан
  1. 2 1
      typer.ml

+ 2 - 1
typer.ml

@@ -3380,7 +3380,8 @@ and flush_macro_context mint ctx =
 		mint
 	end else mint in
 	(* we should maybe ensure that all filters in Main are applied. Not urgent atm *)
-	Interp.add_types mint types (Codegen.post_process [Codegen.handle_abstract_casts mctx; Codegen.captured_vars mctx.com; Codegen.rename_local_vars mctx.com]);
+	(try Interp.add_types mint types (Codegen.post_process [Codegen.handle_abstract_casts mctx; Codegen.captured_vars mctx.com; Codegen.rename_local_vars mctx.com])
+	with Error (e,p) -> display_error ctx (error_msg e) p; raise Fatal_error);
 	Codegen.post_process_end()
 
 let create_macro_interp ctx mctx =