[M3commit] CVS Update: cm3

[Jay K]

===================================================================
RCS file: /usr/cvs/cm3/m3-libs/m3core/src/runtime/common/RTType.m3,v
retrieving revision 1.10
diff -u -r1.10 RTType.m3
--- runtime/common/RTType.m3    3 Nov 2009 20:30:21 -0000    1.10
+++ runtime/common/RTType.m3    24 Jun 2010 11:02:06 -0000
@@ -455,8 +455,8 @@
     GenBuiltin (ADR (NULL_typecell),     "NULL");
     GenBuiltin (ADR (REFANY_typecell),   "REFANY");
     GenBuiltin (ADR (ADDRESS_typecell),  "ADDRESS");
-    GenBuiltin (ADR (ROOT_typecell),     "ROOT");
-    GenBuiltin (ADR (UNROOT_typecell),   "UNTRACED ROOT");
+    GenBuiltin (ADR (ROOT_typecell.common), "ROOT");
+    GenBuiltin (ADR (UNROOT_typecell.common), "UNTRACED ROOT");
     types.cnt := MAX (types.cnt, RT0.FirstUserTypecode);
   END AssignBuiltinTypes;


----------------------------------------
> Date: Thu, 24 Jun 2010 13:05:49 +0000
> To: m3commit at elegosoft.com
> From: jkrell at elego.de
> Subject: [M3commit] CVS Update: cm3
>
> CVSROOT: /usr/cvs
> Changes by: jkrell at birch. 10/06/24 13:05:49
>
> Modified files:
> cm3/m3-libs/m3core/src/runtime/common/: RTType.m3
>
> Log message:
> make it compatible with new ADR
> old ADR(T):ADDRESS
> new ADR(T):UNTRACED REF T
>