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

[chromatic at svn.parrot.org]

Author: chromatic
Date: Tue Feb 16 20:02:39 2010
New Revision: 44042
URL: https://trac.parrot.org/parrot/changeset/44042

Log:
[src] Changed the (static, thus no deprecation necessary) parseflags() to use
the proper enumeration type for selecting the default runcore.  This will let
us switch to the fast core when we get annotations working properly there.

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

Modified: trunk/compilers/imcc/main.c
==============================================================================
--- trunk/compilers/imcc/main.c	Tue Feb 16 19:32:48 2010	(r44041)
+++ trunk/compilers/imcc/main.c	Tue Feb 16 20:02:39 2010	(r44042)
@@ -178,7 +178,8 @@
 PARROT_WARN_UNUSED_RESULT
 PARROT_CAN_RETURN_NULL
 int
-imcc_handle_flag(PARROT_INTERP, struct longopt_opt_info *opt, INTVAL *core)
+imcc_handle_flag(PARROT_INTERP, struct longopt_opt_info *opt,
+    Parrot_Run_core_t *core)
 {
     PARROT_ASSERT(opt);
     PARROT_ASSERT(core);

Modified: trunk/include/parrot/imcc.h
==============================================================================
--- trunk/include/parrot/imcc.h	Tue Feb 16 19:32:48 2010	(r44041)
+++ trunk/include/parrot/imcc.h	Tue Feb 16 20:02:39 2010	(r44042)
@@ -1,5 +1,5 @@
 /*
- * Copyright (C) 2007-2008, Parrot Foundation.
+ * Copyright (C) 2007-2010, Parrot Foundation.
  * $Id$
  */
 
@@ -8,7 +8,7 @@
 
 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, INTVAL *core);
+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, char **argv);
 
 #endif /* PARROT_IMCC_H_GUARD */

Modified: trunk/src/embed.c
==============================================================================
--- trunk/src/embed.c	Tue Feb 16 19:32:48 2010	(r44041)
+++ trunk/src/embed.c	Tue Feb 16 20:02:39 2010	(r44042)
@@ -1,5 +1,5 @@
 /*
-Copyright (C) 2001-2009, Parrot Foundation.
+Copyright (C) 2001-2010, Parrot Foundation.
 $Id$
 
 =head1 NAME

Modified: trunk/src/main.c
==============================================================================
--- trunk/src/main.c	Tue Feb 16 19:32:48 2010	(r44041)
+++ trunk/src/main.c	Tue Feb 16 20:02:39 2010	(r44042)
@@ -49,7 +49,7 @@
 static const char * parseflags(PARROT_INTERP,
     ARGIN(int *argc),
     ARGIN(char **argv[]),
-    ARGIN(INTVAL *core),
+    ARGIN(Parrot_Run_core_t *core),
     ARGIN(Parrot_trace_flags *trace))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2)
@@ -104,7 +104,7 @@
     Interp     *interp;
     int         status;
 
-    INTVAL             core  = 0;
+    Parrot_Run_core_t  core  = PARROT_SLOW_CORE;
     Parrot_trace_flags trace = PARROT_NO_TRACE;
 
     /* internationalization setup */
@@ -412,7 +412,7 @@
 static const char *
 parseflags(PARROT_INTERP,
         ARGIN(int *argc), ARGIN(char **argv[]),
-        ARGIN(INTVAL *core), ARGIN(Parrot_trace_flags *trace))
+        ARGIN(Parrot_Run_core_t *core), ARGIN(Parrot_trace_flags *trace))
 {
     ASSERT_ARGS(parseflags)
     struct longopt_opt_info opt  = LONGOPT_OPT_INFO_INIT;