[svn:parrot] r38036 - in trunk: docs/pdds include/parrot src src/gc

[cotto at svn.parrot.org]

Author: cotto
Date: Fri Apr 10 21:58:57 2009
New Revision: 38036
URL: https://trac.parrot.org/parrot/changeset/38036

Log:
[PMC] PMC_pmc_val is history

Modified:
   trunk/docs/pdds/pdd07_codingstd.pod
   trunk/include/parrot/pobj.h
   trunk/src/gc/api.c
   trunk/src/key.c
   trunk/src/pmc.c

Modified: trunk/docs/pdds/pdd07_codingstd.pod
==============================================================================
--- trunk/docs/pdds/pdd07_codingstd.pod	Fri Apr 10 21:53:27 2009	(r38035)
+++ trunk/docs/pdds/pdd07_codingstd.pod	Fri Apr 10 21:58:57 2009	(r38036)
@@ -133,7 +133,7 @@
 C macro parameters must be parenthesized in macro bodies, to allow expressions
 passed as arguments; e.g.:
 
-  #define PMC_pmc_val(pmc)      (pmc)->obj.u._ptrs._pmc_val
+    #define POBJ_FLAG(n) ((UINTVAL)1 << (n))
 
 =back
 

Modified: trunk/include/parrot/pobj.h
==============================================================================
--- trunk/include/parrot/pobj.h	Fri Apr 10 21:53:27 2009	(r38035)
+++ trunk/include/parrot/pobj.h	Fri Apr 10 21:58:57 2009	(r38036)
@@ -56,7 +56,6 @@
 #define PObj_bufstart(pmc)    (pmc)->cache._b._bufstart
 #define PObj_buflen(pmc)      (pmc)->cache._b._buflen
 #define PMC_struct_val(pmc)   (pmc)->cache._ptrs._struct_val
-#define PMC_pmc_val(pmc)      (pmc)->cache._ptrs._pmc_val
 #define PMC_int_val(pmc)      (pmc)->cache._i._int_val
 #define PMC_str_val(pmc)      (pmc)->cache._string_val
 

Modified: trunk/src/gc/api.c
==============================================================================
--- trunk/src/gc/api.c	Fri Apr 10 21:53:27 2009	(r38035)
+++ trunk/src/gc/api.c	Fri Apr 10 21:58:57 2009	(r38036)
@@ -293,7 +293,6 @@
 
     pmc->pmc_ext     = (PMC_EXT *)0xdeadbeef;
     pmc->vtable      = (VTABLE  *)0xdeadbeef;
-    PMC_pmc_val(pmc) = (PMC     *)0xdeadbeef;
 
 #endif
 

Modified: trunk/src/key.c
==============================================================================
--- trunk/src/key.c	Fri Apr 10 21:53:27 2009	(r38035)
+++ trunk/src/key.c	Fri Apr 10 21:58:57 2009	(r38036)
@@ -416,7 +416,6 @@
         return REG_NUM(interp, int_key);
     case KEY_pmc_FLAG:
         return VTABLE_get_number(interp, key);
-                                                 /*  PMC_pmc_val(key)); */
     case KEY_pmc_FLAG | KEY_register_FLAG:
         {
         PMC *reg;
@@ -470,7 +469,6 @@
                 s = Parrot_str_new_COW(interp, s);
             return s;
         }
-                                               /*   PMC_pmc_val(key)); */
         case KEY_pmc_FLAG | KEY_register_FLAG:
         {
             PMC *reg;
@@ -524,7 +522,7 @@
         GETATTR_Key_int_key(interp, key, int_key);
         return REG_PMC(interp, int_key);
     default:
-        return key; /* PMC_pmc_val(key); */
+        return key;
     }
 }
 

Modified: trunk/src/pmc.c
==============================================================================
--- trunk/src/pmc.c	Fri Apr 10 21:53:27 2009	(r38035)
+++ trunk/src/pmc.c	Fri Apr 10 21:58:57 2009	(r38036)
@@ -690,7 +690,6 @@
 
         gc_flag_CLEAR(is_special_PMC, _class);
 
-        PMC_pmc_val(_class)    = (PMC  *)0xdeadbeef;
         PMC_struct_val(_class) = (void *)0xdeadbeef;
 
         PObj_is_PMC_shared_CLEAR(_class);