[svn:parrot] r40642 - in branches/pluggable_runcore: include/parrot src/runcore

cotto at svn.parrot.org cotto at svn.parrot.org
Tue Aug 18 22:40:26 UTC 2009


Author: cotto
Date: Tue Aug 18 22:40:26 2009
New Revision: 40642
URL: https://trac.parrot.org/parrot/changeset/40642

Log:
[profiling] fix some compiler warnings

Modified:
   branches/pluggable_runcore/include/parrot/runcore_api.h
   branches/pluggable_runcore/src/runcore/cores.c

Modified: branches/pluggable_runcore/include/parrot/runcore_api.h
==============================================================================
--- branches/pluggable_runcore/include/parrot/runcore_api.h	Tue Aug 18 22:39:00 2009	(r40641)
+++ branches/pluggable_runcore/include/parrot/runcore_api.h	Tue Aug 18 22:40:26 2009	(r40642)
@@ -20,10 +20,14 @@
 
 #  define DO_OP(PC, INTERP) ((PC) = (((INTERP)->op_func_table)[*(PC)])((PC), (INTERP)))
 
-typedef opcode_t * (*runcore_runops_fn_type)(PARROT_INTERP, ARGIN(Parrot_runcore_t *), ARGIN(opcode_t *pc));
+typedef opcode_t * (*runcore_runops_fn_type) (PARROT_INTERP, ARGIN(Parrot_runcore_t *), ARGIN(opcode_t *pc));
 typedef       void (*runcore_destroy_fn_type)(PARROT_INTERP, ARGIN(Parrot_runcore_t *));
 typedef     void * (*runcore_prepare_fn_type)(PARROT_INTERP, ARGIN(Parrot_runcore_t *));
 
+typedef runcore_runops_fn_type  Parrot_runcore_runops_fn_t;
+typedef runcore_destroy_fn_type Parrot_runcore_destroy_fn_t;
+typedef runcore_prepare_fn_type Parrot_runcore_prepare_fn_t;
+
 struct runcore_t {
     STRING                  *name;
     oplib_init_f             opinit;
@@ -34,12 +38,12 @@
 };
 
 struct profiling_runcore_t {
-    STRING                  *name;
-    oplib_init_f             opinit;
-    runcore_runops_fn_type   runops;
-    runcore_destroy_fn_type  destroy;
-    runcore_prepare_fn_type  prepare_run;
-    INTVAL                   flags;
+    STRING                      *name;
+    oplib_init_f                 opinit;
+    Parrot_runcore_runops_fn_t   runops;
+    Parrot_runcore_destroy_fn_t  destroy;
+    Parrot_runcore_prepare_fn_t  prepare_run;
+    INTVAL                       flags;
 
     /* end of common members */
     FILE                    *prof_fd;

Modified: branches/pluggable_runcore/src/runcore/cores.c
==============================================================================
--- branches/pluggable_runcore/src/runcore/cores.c	Tue Aug 18 22:39:00 2009	(r40641)
+++ branches/pluggable_runcore/src/runcore/cores.c	Tue Aug 18 22:40:26 2009	(r40642)
@@ -770,7 +770,7 @@
                                  mem_allocate_typed(Parrot_profiling_runcore_t);
     coredata->name             = CONST_STRING(interp, "profiling");
     coredata->opinit           = PARROT_CORE_OPLIB_INIT;
-    coredata->runops           = init_profiling_core;
+    coredata->runops           = (Parrot_runcore_runops_fn_t) init_profiling_core;
     coredata->destroy          = NULL;
     coredata->prepare_run      = NULL;
 
@@ -1038,8 +1038,8 @@
 {
     ASSERT_ARGS(init_profiling_core)
 
-    runcore->runops  = runops_profiling_core;
-    runcore->destroy = destroy_profiling_core;
+    runcore->runops  = (Parrot_runcore_runops_fn_t)  runops_profiling_core;
+    runcore->destroy = (Parrot_runcore_destroy_fn_t) destroy_profiling_core;
 
     runcore->level = 0;
     runcore->time_size = 32;


More information about the parrot-commits mailing list