[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