[make enums only 16 bits so they can be stored in sptr's directly
John Meacham <john@repetae.net>**20080323045845] hunk ./DataConstructors.hs 544
-            rtype = ELit litCons { litName = rtypeName, litType = eHash, litAliasFor = Just tIntzh }
+            rtype = ELit litCons { litName = rtypeName, litType = eHash, litAliasFor = Just tEnumzh }
hunk ./E/E.hs 52
+    tEnumzh = ELit (litCons { litName = tEnumzh, litArgs = [], litType = eHash })
hunk ./E/E.hs 62
-    vTrue  = (litCons { litName = dc_Boolzh, litArgs = [ELit (LitInt 1 tIntzh)], litType = tBool })
-    vFalse = (litCons { litName = dc_Boolzh, litArgs = [ELit (LitInt 0 tIntzh)], litType = tBool })
+    vTrue  = (litCons { litName = dc_Boolzh, litArgs = [ELit (LitInt 1 tEnumzh)], litType = tBool })
+    vFalse = (litCons { litName = dc_Boolzh, litArgs = [ELit (LitInt 0 tEnumzh)], litType = tBool })
hunk ./E/Values.hs 275
-tBoolzh = ELit litCons { litName = tc_Boolzh, litType = eHash, litAliasFor = Just tIntzh }
+tBoolzh = ELit litCons { litName = tc_Boolzh, litType = eHash, litAliasFor = Just tEnumzh }
hunk ./Grin/Grin.hs 118
+    tEnumzh = TyPrim (Op.bits16) -- Ty (toAtom "int")
hunk ./Main.hs 521
-    let theTarget = ELit litCons { litName = dc_Target, litArgs = [ELit (LitInt targetIndex tIntzh)], litType = ELit litCons { litName = tc_Target, litArgs = [], litType = eStar } }
+    let theTarget = ELit litCons { litName = dc_Target, litArgs = [ELit (LitInt targetIndex tEnumzh)], litType = ELit litCons { litName = tc_Target, litArgs = [], litType = eStar } }
hunk ./Name/Names.hs 27
+    tEnumzh = rt_bits16
hunk ./Name/VConsts.hs 15
+    tEnumzh :: a
hunk ./Name/VConsts.hs 30
+--    tEnumzh = error "tEnumzh"
hunk ./lib/base/Jhc/Prim.hs 19
-type Bool__ = Bits32_ -- Change to Bits1_ when the time comes
+type Bool__ = Bits16_ -- Change to Bits1_ when the time comes