From 2b9a48b9c9605737ebf29269552ccbf618042bb0 Mon Sep 17 00:00:00 2001
From: Roy Frostig <rfrostig@mozilla.com>
Date: Wed, 25 Aug 2010 10:27:17 -0700
Subject: Obj ctors are not obj fns so translate their frame entry as such.

---
 src/boot/me/trans.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml
index e54ff591..44258d0a 100644
--- a/src/boot/me/trans.ml
+++ b/src/boot/me/trans.ml
@@ -4935,7 +4935,7 @@ let trans_visitor
       (obj_id:node_id)
       (header:Ast.header_slots)
       : unit =
-    trans_frame_entry obj_id true false;
+    trans_frame_entry obj_id false false;
 
     let all_args_rty = current_fn_args_rty None in
     let all_args_cell = caller_args_cell all_args_rty in
-- 
cgit v1.2.3