Further attempts to convince mem_ctrl to be sane.

2010-06-25 23:55:36 -07:00 · 2010-06-25 23:55:36 -07:00 · 9236ad2846
commit 9236ad2846
parent 50e96414d2
1 changed files with 3 additions and 1 deletions
--- a/src/boot/me/transutil.ml
+++ b/src/boot/me/transutil.ml
@ -127,7 +127,9 @@ let slot_mem_ctrl (slot:Ast.slot) : mem_ctrl =
                then MEM_gc
                else MEM_rc_struct
            | Ast.MODE_exterior _ ->
-                MEM_rc_opaque
+                if type_has_state ty
+                then MEM_gc
+                else MEM_rc_opaque
            | _ ->
                MEM_interior
 ;;