cvs commit: parrot/src interpreter.c
Jens Rieks
On Tuesday 09 March 2004 04:24, Josh Wilmes wrote:
> cvsuser 04/03/08 19:24:12
>
> Modified: src interpreter.c
> Log:
> Missing function/data casts.
>
> Revision Changes Path
> 1.279 +3 -3 parrot/src/interpreter.c
>
> Index: interpreter.c
> ===================================================================
> RCS file: /cvs/public/parrot/src/interpreter.c,v
> retrieving revision 1.278
> retrieving revision 1.279
> diff -u -w -r1.278 -r1.279
> --- interpreter.c 6 Mar 2004 14:26:08 -0000 1.278
> +++ interpreter.c 9 Mar 2004 03:24:12 -0000 1.279
> @@ -1,7 +1,7 @@
> /*
>
> ###########################################################################
>##### Copyright: 2001-2003 The Perl Foundation. All Rights Reserved. -$Id:
> interpreter.c,v 1.278 2004/03/06 14:26:08 leo Exp $
> +$Id: interpreter.c,v 1.279 2004/03/09 03:24:12 josh Exp $
>
> ###########################################################################
>#####
>
> =head1 NAME
> @@ -1520,7 +1520,7 @@
> interpreter->evc_func_table = mem_sys_allocate(sizeof(void *) *
> n); for (i = 0; i < n; ++i)
> interpreter->evc_func_table[i] = (op_func_t)
> - ((void**)lib->op_func_table)[CORE_OPS_check_events__];
> +
> DTOFPTR(((void**)lib->op_func_table)[CORE_OPS_check_events__]); }
What is that supposed to do? It seems to be something platform specific..?
--> http://tinderbox.perl.org/tinderbox/bdshowbuild.cgi?tree=parrot
> }
>
> @@ -2243,7 +2243,7 @@
> if ((int)interpreter->run_core == cg_lib->core_type) {
> for (i = n_old; i < n_tot; ++i)
> interpreter->evc_func_table[i] =
> - (op_func_t)ops_addr[CORE_OPS_check_events__];
> + (op_func_t)DTOFPTR(ops_addr[CORE_OPS_check_events__]);
> interpreter->save_func_table = (void *) ops_addr;
> }
> /*
jens
Josh Wilmes
--Josh