[svn:parrot] r45842 - in branches/runcore_purge: compilers/imcc include/parrot lib/Parrot lib/Parrot/OpTrans src src/call

cotto at svn.parrot.org cotto at svn.parrot.org
Wed Apr 21 06:17:35 UTC 2010


Author: cotto
Date: Wed Apr 21 06:17:35 2010
New Revision: 45842
URL: https://trac.parrot.org/parrot/changeset/45842

Log:
[runcore] remove some flags and dependent code

Modified:
   branches/runcore_purge/compilers/imcc/main.c
   branches/runcore_purge/include/parrot/runcore_api.h
   branches/runcore_purge/lib/Parrot/OpTrans.pm
   branches/runcore_purge/lib/Parrot/OpTrans/C.pm
   branches/runcore_purge/src/call/pcc.c
   branches/runcore_purge/src/packfile.c

Modified: branches/runcore_purge/compilers/imcc/main.c
==============================================================================
--- branches/runcore_purge/compilers/imcc/main.c	Wed Apr 21 05:43:16 2010	(r45841)
+++ branches/runcore_purge/compilers/imcc/main.c	Wed Apr 21 06:17:35 2010	(r45842)
@@ -407,12 +407,6 @@
     if (opt_level & OPT_SUB)
         opt_desc[i++] = 'c';
 
-    if (PARROT_RUNCORE_JIT_OPS_TEST(interp->run_core))
-        opt_desc[i++] = 'j';
-
-    if (PARROT_RUNCORE_PREDEREF_OPS_TEST(interp->run_core))
-        opt_desc[i++] = 't';
-
     opt_desc[i] = '\0';
     return;
 }

Modified: branches/runcore_purge/include/parrot/runcore_api.h
==============================================================================
--- branches/runcore_purge/include/parrot/runcore_api.h	Wed Apr 21 05:43:16 2010	(r45841)
+++ branches/runcore_purge/include/parrot/runcore_api.h	Wed Apr 21 06:17:35 2010	(r45842)
@@ -39,9 +39,6 @@
     RUNCORE_REENTRANT_FLAG    = 1 << 0,
     RUNCORE_FUNC_TABLE_FLAG   = 1 << 1,
     RUNCORE_EVENT_CHECK_FLAG  = 1 << 2,
-    RUNCORE_PREDEREF_OPS_FLAG = 1 << 3,
-    RUNCORE_CGOTO_OPS_FLAG    = 1 << 4,
-    RUNCORE_JIT_OPS_FLAG      = 1 << 5
 } Parrot_runcore_flags;
 
 
@@ -60,21 +57,6 @@
 #define PARROT_RUNCORE_EVENT_CHECK_SET(runcore) \
     Runcore_flag_SET(runcore, RUNCORE_EVENT_CHECK_FLAG)
 
-#define PARROT_RUNCORE_PREDEREF_OPS_TEST(runcore) \
-    Runcore_flag_TEST(runcore, RUNCORE_PREDEREF_OPS_FLAG)
-#define PARROT_RUNCORE_PREDEREF_OPS_SET(runcore) \
-    Runcore_flag_SET(runcore, RUNCORE_PREDEREF_OPS_FLAG)
-
-#define PARROT_RUNCORE_CGOTO_OPS_TEST(runcore) \
-    Runcore_flag_TEST(runcore, RUNCORE_CGOTO_OPS_FLAG)
-#define PARROT_RUNCORE_CGOTO_OPS_SET(runcore) \
-    Runcore_flag_SET(runcore, RUNCORE_CGOTO_OPS_FLAG)
-
-#define PARROT_RUNCORE_JIT_OPS_TEST(runcore) \
-    Runcore_flag_TEST(runcore, RUNCORE_JIT_OPS_FLAG)
-#define PARROT_RUNCORE_JIT_OPS_SET(runcore) \
-    Runcore_flag_SET(runcore, RUNCORE_JIT_OPS_FLAG)
-
 /* HEADERIZER BEGIN: src/runcore/main.c */
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 

Modified: branches/runcore_purge/lib/Parrot/OpTrans.pm
==============================================================================
--- branches/runcore_purge/lib/Parrot/OpTrans.pm	Wed Apr 21 05:43:16 2010	(r45841)
+++ branches/runcore_purge/lib/Parrot/OpTrans.pm	Wed Apr 21 06:17:35 2010	(r45842)
@@ -85,11 +85,6 @@
     die ref($self) . " doesn't have core_type()";
 }
 
-=item C<core_prefix()>
-
-Implemented in subclasses to return a short prefix indicating the core
-type used to individuate core function names.
-
 =item C<run_core_func_decl($base)>
 
 Optionally implemented in subclasses to return the C code for the run

Modified: branches/runcore_purge/lib/Parrot/OpTrans/C.pm
==============================================================================
--- branches/runcore_purge/lib/Parrot/OpTrans/C.pm	Wed Apr 21 05:43:16 2010	(r45841)
+++ branches/runcore_purge/lib/Parrot/OpTrans/C.pm	Wed Apr 21 06:17:35 2010	(r45842)
@@ -33,16 +33,6 @@
     return 'PARROT_FUNCTION_CORE';
 }
 
-=item C<core_prefix()>
-
-Returns an empty string.
-
-=cut
-
-sub core_prefix {
-    return "";
-}
-
 =item C<defines()>
 
 Returns the C C<#define> macros for register access etc.

Modified: branches/runcore_purge/src/call/pcc.c
==============================================================================
--- branches/runcore_purge/src/call/pcc.c	Wed Apr 21 05:43:16 2010	(r45841)
+++ branches/runcore_purge/src/call/pcc.c	Wed Apr 21 06:17:35 2010	(r45842)
@@ -356,9 +356,6 @@
         Parrot_runcore_t *old_core = interp->run_core;
         const opcode_t offset = dest - interp->code->base.data;
 
-        if (PARROT_RUNCORE_PREDEREF_OPS_TEST(interp->run_core))
-            Parrot_runcore_switch(interp, CONST_STRING(interp, "slow"));
-
         runops(interp, offset);
         Interp_core_SET(interp, old_core);
     }

Modified: branches/runcore_purge/src/packfile.c
==============================================================================
--- branches/runcore_purge/src/packfile.c	Wed Apr 21 05:43:16 2010	(r45841)
+++ branches/runcore_purge/src/packfile.c	Wed Apr 21 06:17:35 2010	(r45842)
@@ -684,12 +684,6 @@
     Parrot_runcore_t *old_core = interp->run_core;
     PMC              *retval   = PMCNULL;
 
-    /* turn off JIT and prederef - both would act on the whole
-     * PackFile which probably isn't worth the effort */
-    if (PARROT_RUNCORE_JIT_OPS_TEST(interp->run_core)
-    ||  PARROT_RUNCORE_PREDEREF_OPS_TEST(interp->run_core))
-        Parrot_runcore_switch(interp, CONST_STRING(interp, "fast"));
-
     Parrot_pcc_set_constants(interp, CURRENT_CONTEXT(interp),
             interp->code->const_table->constants);
 


More information about the parrot-commits mailing list