From a441865f6e501697f3a132c1e5ec73336e8e3184 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Sat, 9 Oct 2010 01:02:13 -0700 Subject: Actually do what I meant to in the inline threshold. Don't drink and code. Cut rustc by 50kb. --- src/boot/me/trans.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml index 1b570ea2..a18c3c29 100644 --- a/src/boot/me/trans.ml +++ b/src/boot/me/trans.ml @@ -281,14 +281,14 @@ let trans_visitor in let should_inline_structure_helpers t = - let n = 2 in + let n = 3 in match t with Ast.TY_tag ttag -> - get_n_tag_tups cx ttag > n + get_n_tag_tups cx ttag < n | Ast.TY_rec elts -> - Array.length elts > 3 + Array.length elts < n | Ast.TY_tup elts -> - Array.length elts > 3 + Array.length elts < n | _ -> false in -- cgit v1.2.3