[svn:parrot] r41914 - branches/pcc_reapply/src/pmc

[chromatic at svn.parrot.org]

Author: chromatic
Date: Sun Oct 18 00:32:12 2009
New Revision: 41914
URL: https://trac.parrot.org/parrot/changeset/41914

Log:
[PMC] Removed current_results attribute from Continuation and RetContinuation,
as it's unused now.

Modified:
   branches/pcc_reapply/src/pmc/continuation.pmc
   branches/pcc_reapply/src/pmc/retcontinuation.pmc

Modified: branches/pcc_reapply/src/pmc/continuation.pmc
==============================================================================
--- branches/pcc_reapply/src/pmc/continuation.pmc	Sat Oct 17 23:25:37 2009	(r41913)
+++ branches/pcc_reapply/src/pmc/continuation.pmc	Sun Oct 18 00:32:12 2009	(r41914)
@@ -50,8 +50,6 @@
     ATTR PMC               *to_ctx;          /* pointer to dest context */
     /* a Continuation keeps the from_ctx alive */
     ATTR PMC               *from_ctx;        /* sub, this cont is returning from */
-    ATTR opcode_t          *current_results; /* ptr into code with get_results opcode
-                                                full continuation only */
     ATTR int                runloop_id;      /* id of the creating runloop. */
     ATTR int                invoked;         /* flag when a handler has been invoked. */
 /*
@@ -72,7 +70,6 @@
         attrs->runloop_id = 0;
         attrs->seg        = interp->code;
         attrs->address    = NULL;
-        attrs->current_results = Parrot_pcc_get_results(interp, attrs->to_ctx);
 
         PObj_custom_mark_SET(SELF);
 
@@ -96,7 +93,6 @@
         attrs->runloop_id = 0;
         attrs->seg        = theirs->seg;
         attrs->address    = theirs->address;
-        attrs->current_results = Parrot_pcc_get_results(interp, attrs->to_ctx);
 
         PObj_custom_mark_SET(SELF);
 
@@ -182,13 +178,6 @@
 
         cc->address    = pos;
         cc->runloop_id = INTERP->current_runloop_id;
-
-        cc->current_results = (cc->seg
-            && (pos >= cc->seg->base.data)
-            && (pos < (cc->seg->base.data + cc->seg->base.size)
-            && (*pos == PARROT_OP_get_results_pc))) ?
-                pos :
-                (opcode_t *)NULL;
     }
 
 /*

Modified: branches/pcc_reapply/src/pmc/retcontinuation.pmc
==============================================================================
--- branches/pcc_reapply/src/pmc/retcontinuation.pmc	Sat Oct 17 23:25:37 2009	(r41913)
+++ branches/pcc_reapply/src/pmc/retcontinuation.pmc	Sun Oct 18 00:32:12 2009	(r41914)
@@ -42,9 +42,7 @@
         attrs->from_ctx        = CURRENT_CONTEXT(interp);    /* filled in during a call */
         attrs->runloop_id      = 0;
         attrs->seg             = interp->code;
-        attrs->current_results = NULL;
         attrs->address         = NULL;
-
     }