[svn:parrot] r40706 - branches/context_pmc3/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Aug 22 06:37:59 2009
New Revision: 40706
URL: https://trac.parrot.org/parrot/changeset/40706

Log:
[pmc] Fix LexPad to use Context PMC

Modified:
   branches/context_pmc3/src/pmc/lexpad.pmc

Modified: branches/context_pmc3/src/pmc/lexpad.pmc
==============================================================================
--- branches/context_pmc3/src/pmc/lexpad.pmc	Sat Aug 22 06:37:40 2009	(r40705)
+++ branches/context_pmc3/src/pmc/lexpad.pmc	Sat Aug 22 06:37:59 2009	(r40706)
@@ -22,13 +22,13 @@
  * LexPad provides a Hash interface for lexical fetch/store
  * needed
  *
- * struct_val ... Parrot_Context *ctx
+ * struct_val ... Context *ctx
  * pmc_val    ... LexInfo
  */
 
 pmclass LexPad provides hash no_ro auto_attrs {
-    ATTR PMC                   *lexinfo;
-    ATTR struct Parrot_Context *ctx;
+    ATTR PMC *lexinfo;
+    ATTR PMC *ctx;
 
     VTABLE void init() {
         Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_INVALID_OPERATION,
@@ -82,7 +82,7 @@
     }
 
     VTABLE void set_pointer(void *ctx) {
-        SET_ATTR_ctx(INTERP, SELF, (struct Parrot_Context *)ctx);
+        SET_ATTR_ctx(INTERP, SELF, (struct PMC *)ctx);
     }
 
     VTABLE INTVAL elements() {
@@ -107,7 +107,7 @@
     VTABLE PMC *get_pmc_keyed_str(STRING *name) {
         PMC              * info;
         Hash             * hash;
-        Parrot_Context   * ctx;
+        PMC              * ctx;
         HashBucket       * b;
         INTVAL            regno;
 
@@ -121,7 +121,7 @@
 
         regno = (INTVAL) b->value;
 
-        return CTX_REG_PMC(ctx, regno);
+        return PMCCTX_REG_PMC(ctx, regno);
     }
 
     VTABLE PMC *get_pmc_keyed(PMC *name) {
@@ -132,7 +132,7 @@
     VTABLE void set_pmc_keyed_str(STRING *name, PMC *value) {
         PMC              * info;
         Hash             * hash;
-        Parrot_Context   * ctx;
+        PMC              * ctx;
         HashBucket       * b;
         INTVAL             regno;
 
@@ -146,7 +146,7 @@
                 "Lexical '%Ss' not found", name);
 
         regno                   = (INTVAL) b->value;
-        CTX_REG_PMC(ctx, regno) = value;
+        PMCCTX_REG_PMC(ctx, regno) = value;
     }
 
     VTABLE void set_pmc_keyed(PMC *name, PMC *value) {