---

graydon · graydon · commit b65eed046b29 · 2011-01-11T16:45:29.000-08:00
yaml --- r: 1229 b: refs/heads/master c: f5bf8d0 h: refs/heads/master i: 1227: 2866531 v: v3
diff --git a/[refs] b/[refs]
@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 5e9279586b56789ecf6f02535c9624e01daeee96
+refs/heads/master: f5bf8d074b46ee9142f7db671a4d46581fff6b2e
diff --git a/trunk/src/boot/me/trans.ml b/trunk/src/boot/me/trans.ml
@@ -285,17 +285,7 @@ let trans_visitor
     string_of_name (path_to_name cx.ctxt_curr_path)
   in
 
-  let should_inline_structure_helpers t =
-    let n = 3 in
-      match t with
-          Ast.TY_tag ttag ->
-            get_n_tag_tups cx ttag < n
-        | Ast.TY_rec elts ->
-            Array.length elts < n
-        | Ast.TY_tup elts ->
-            Array.length elts < n
-        | _ -> false
-  in
+  let should_inline_structure_helpers _ = false in
 
   let based (reg:Il.reg) : Il.mem =
     Il.RegIn (reg, None)

Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,2 @@`
`1`	`1`	`---`
`2`		`-refs/heads/master: 5e9279586b56789ecf6f02535c9624e01daeee96`
	`2`	`+refs/heads/master: f5bf8d074b46ee9142f7db671a4d46581fff6b2e`