change magic tag to primitive tag throughout

--HG-- branch : com.mozilla.es4.smlnj extra : convert_revision : ea991a07e1f6b4ed9ce0aeb210bb4ade1a819867
bkero · May 9, 2008 · 70fc1ae · 70fc1ae
1 parent 4f08dc0
commit 70fc1ae
Show file tree

Hide file tree

Showing 5 changed files with 160 additions and 156 deletions.
diff --git a/boot.sml b/boot.sml
@@ -72,7 +72,7 @@ fun instantiateRootClass (regs:Mach.REGS)
 
       val _ = trace ["allocating class ", LogErr.name fullName];
       val closure = Eval.newClsClosure (#scope regs) cls
-      val obj = Mach.newObject (Mach.MagicTag (Mach.Class closure)) (Mach.Object proto)
+      val obj = Mach.newObject (Mach.PrimitiveTag (Mach.Class closure)) (Mach.Object proto)
 
       val classRegs = Eval.extendScopeReg regs obj Mach.InstanceScope