> Hi,
> 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
