Further attempts to convince mem_ctrl to be sane.

This commit is contained in:
Graydon Hoare 2010-06-25 23:55:36 -07:00
parent 50e96414d2
commit 9236ad2846
1 changed files with 3 additions and 1 deletions

View File

@ -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
;;