[svn:parrot] r45450 - trunk/src/runcore

[petdance at svn.parrot.org]

Author: petdance
Date: Thu Apr  8 14:57:49 2010
New Revision: 45450
URL: https://trac.parrot.org/parrot/changeset/45450

Log:
Comment out code only used with computed GOTO

Modified:
   trunk/src/runcore/main.c

Modified: trunk/src/runcore/main.c
==============================================================================
--- trunk/src/runcore/main.c	Thu Apr  8 14:44:46 2010	(r45449)
+++ trunk/src/runcore/main.c	Thu Apr  8 14:57:49 2010	(r45450)
@@ -397,13 +397,15 @@
 Parrot_runcore_destroy(PARROT_INTERP)
 {
     ASSERT_ARGS(Parrot_runcore_destroy)
+#ifdef HAVE_COMPUTED_GOTO
     op_lib_t         *cg_lib;
+#endif
     size_t            num_cores = interp->num_cores;
     size_t            i;
 
     for (i = 0; i < num_cores; ++i) {
-        Parrot_runcore_t        *core    = interp->cores[i];
-        runcore_destroy_fn_type  destroy = core->destroy;
+        Parrot_runcore_t * const core = interp->cores[i];
+        const runcore_destroy_fn_type destroy = core->destroy;
 
         if (destroy)
             (*destroy)(interp, core);
@@ -577,6 +579,8 @@
 
 */
 
+#ifdef HAVE_COMPUTED_GOTO
+
 static void
 dynop_register_xx(PARROT_INTERP,
         size_t n_old, size_t n_new, oplib_init_f init_func)
@@ -677,6 +681,8 @@
     init_func(interp, (long) ops_addr);
 }
 
+#endif
+
 
 /*