From 25eb1fd3c9d997e460dff3e03d87e398e616c726 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Thu, 24 Jun 2010 10:34:47 -0700 Subject: Add fmt module, move out some common format helpers, add instruction-selection tracing and make selection use queues rather than list refs. --- src/boot/llvm/lltrans.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/boot/llvm') diff --git a/src/boot/llvm/lltrans.ml b/src/boot/llvm/lltrans.ml index 7f985d25..a3278fcd 100644 --- a/src/boot/llvm/lltrans.ml +++ b/src/boot/llvm/lltrans.ml @@ -831,7 +831,7 @@ let trans_crate | Ast.STMT_check_expr expr -> let llexpr = trans_expr expr in let (llfail, llfailbuilder) = new_block None "fail" in - let reason = Ast.fmt_to_str Ast.fmt_expr expr in + let reason = Fmt.fmt_to_str Ast.fmt_expr expr in trans_fail llfailbuilder lltask reason head.id; let (llok, llokbuilder) = new_block None "ok" in ignore (Llvm.build_cond_br llexpr llok llfail llbuilder); -- cgit v1.2.3