[svn:parrot] r46904 - in trunk: compilers/imcc include/parrot src

[plobsing at svn.parrot.org]

Author: plobsing
Date: Sun May 23 02:56:01 2010
New Revision: 46904
URL: https://trac.parrot.org/parrot/changeset/46904

Log:
kill imcc_initialize()

Modified:
   trunk/compilers/imcc/main.c
   trunk/include/parrot/imcc.h
   trunk/src/main.c

Modified: trunk/compilers/imcc/main.c
==============================================================================
--- trunk/compilers/imcc/main.c	Sun May 23 02:02:22 2010	(r46903)
+++ trunk/compilers/imcc/main.c	Sun May 23 02:56:01 2010	(r46904)
@@ -413,38 +413,6 @@
 
 /*
 
-=item C<void imcc_initialize(PARROT_INTERP)>
-
-Initialise interpreter and set optimisation level.
-
-=cut
-
-*/
-
-void
-imcc_initialize(PARROT_INTERP)
-{
-    yyscan_t yyscanner;
-
-    yylex_init_extra(interp, &yyscanner);
-
-    Parrot_block_GC_mark(interp);
-    Parrot_block_GC_sweep(interp);
-
-    /* Default optimization level is zero; see optimizer.c, imc.h */
-    if (!IMCC_INFO(interp)->optimizer_level) {
-#if 1
-        IMCC_INFO(interp)->optimizer_level = 0;
-#else
-        /* won't even make with this: something with Data::Dumper and
-         * set_i_p_i*/
-        IMCC_INFO(interp)->optimizer_level = OPT_PRE;
-#endif
-    }
-}
-
-/*
-
 =item C<static void imcc_run_pbc(PARROT_INTERP, int obj_file, const char
 *output_file, int argc, const char **argv)>
 
@@ -678,6 +646,10 @@
     yyscan_t           yyscanner;
     const char * const output_file = interp->output_file;
 
+    /* PMCs in IMCC_INFO won't get marked */
+    Parrot_block_GC_mark(interp);
+    Parrot_block_GC_sweep(interp);
+
     yylex_init_extra(interp, &yyscanner);
 
     /* Figure out what kind of source file we have -- if we have one */

Modified: trunk/include/parrot/imcc.h
==============================================================================
--- trunk/include/parrot/imcc.h	Sun May 23 02:02:22 2010	(r46903)
+++ trunk/include/parrot/imcc.h	Sun May 23 02:56:01 2010	(r46904)
@@ -6,7 +6,6 @@
 #ifndef PARROT_IMCC_H_GUARD
 #define PARROT_IMCC_H_GUARD
 
-PARROT_EXPORT void imcc_initialize(PARROT_INTERP);
 PARROT_EXPORT void imcc_start_handling_flags(PARROT_INTERP);
 PARROT_EXPORT int imcc_handle_flag(PARROT_INTERP, struct longopt_opt_info *opt, Parrot_Run_core_t *core);
 PARROT_EXPORT int imcc_run(PARROT_INTERP, const char *sourcefile, int argc, const char **argv);

Modified: trunk/src/main.c
==============================================================================
--- trunk/src/main.c	Sun May 23 02:02:22 2010	(r46903)
+++ trunk/src/main.c	Sun May 23 02:56:01 2010	(r46904)
@@ -129,7 +129,6 @@
 
     /* Now initialize interpreter */
     initialize_interpreter(interp, (void*)&stacktop);
-    imcc_initialize(interp);
 
     /* Parse flags */
     sourcefile = parseflags(interp, &argc, &argv, &core, &trace);