[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