develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34292 - branches/remove_pic/src

From:
coke
Date:
December 23, 2008 13:23
Subject:
[svn:parrot] r34292 - branches/remove_pic/src
Message ID:
20081223212347.A781ACBA12@x12.develooper.com
Author: coke
Date: Tue Dec 23 13:23:46 2008
New Revision: 34292

Modified:
   branches/remove_pic/src/interpreter.c

Log:
eliminate some PIC that otherwise borks 'make testC'



Modified: branches/remove_pic/src/interpreter.c
==============================================================================
--- branches/remove_pic/src/interpreter.c	(original)
+++ branches/remove_pic/src/interpreter.c	Tue Dec 23 13:23:46 2008
@@ -274,8 +274,6 @@
 
     opinfo = &interp->op_info_table[*pc];
 
-    /* first arguments - PIC needs it */
-
     /* check for RT#58044 */
     PARROT_ASSERT(CONTEXT(interp)->n_regs_used);
 
@@ -286,7 +284,6 @@
         case PARROT_SWITCH_JIT_CORE:
         case PARROT_CGP_CORE:
         case PARROT_CGP_JIT_CORE:
-            parrot_PIC_prederef(interp, *pc, pc_prederef, type);
             break;
         default:
             Parrot_ex_throw_from_c_args(interp, NULL, 1,
@@ -513,19 +510,11 @@
 
             ADD_OP_VAR_PART(interp, interp->code, pc, n);
 
-            /* count ops that need a PIC */
-            if (parrot_PIC_op_is_cached(*pc))
-                n_pics++;
-
             pc += n;
             i  += n;
         }
 
         interp->code->prederef.code = temp;
-
-        /* allocate pic store, which starts from 1 */
-        if (n_pics)
-            parrot_PIC_alloc_store(interp->code, n_pics + 1);
     }
 }
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About