From 59c9e6caffadcfee9216ac289ae0b306fc2e55eb Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Tue, 11 Jan 2011 18:30:22 -0800 Subject: Guard unguarded log calls that snuck in. Shave 5s off building rustc. --- src/boot/me/trans.ml | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml index 5d5cb75b..db285274 100644 --- a/src/boot/me/trans.ml +++ b/src/boot/me/trans.ml @@ -1344,8 +1344,10 @@ let trans_visitor let is_stateful = if (force_stateful || type_has_state cx t) then 1L else 0L in - log cx "tydesc for %a has sz=%Ld, align=%Ld, is_stateful=%Ld" - Ast.sprintf_ty t sz align is_stateful; + iflog + (fun _ -> + log cx "tydesc for %a has sz=%Ld, align=%Ld, is_stateful=%Ld" + Ast.sprintf_ty t sz align is_stateful); Asm.DEF (tydesc_fixup, Asm.SEQ @@ -5955,7 +5957,7 @@ let trans_visitor let (header_tup, oid, i) = tag in let tinfo = Hashtbl.find cx.ctxt_all_tag_info oid in let (n, _, _) = Hashtbl.find tinfo.tag_nums i in - let _ = log cx "tag variant: %s -> tag value #%d" n i in + let _ = iflog (fun _ -> log cx "tag variant: %s -> tag value #%d" n i) in let (dst_cell, dst_slot) = get_current_output_cell_and_slot() in let dst_cell = deref_slot true dst_cell dst_slot in let tag_cell = get_element_ptr dst_cell Abi.tag_elt_discriminant in -- cgit v1.2.3