On Mon, Jul 04, 2005 at 12:19:28AM +0300, Jarkko Hietaniemi wrote: > Just rotate the bits 90 degrees clockwise, shake well, and look against > a strong light. Oh, right, there are no bits to rotate. Try these bits.
Under a full moon while standing with one trouser leg rolled up?? The patch dies horribly on a threaded build :-( `sh cflags "optimize='-g'" globals.o` globals.c CCCMD = cc -DPERL_CORE -c -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm -g -Wall In file included from globals.c:35: perl.h:4177: error: syntax error before "my_perl" > --- perl.h.dist 2005-07-03 11:09:01.000000000 +0300 > +++ perl.h 2005-07-03 11:20:46.000000000 +0300 > @@ -4050,8 +4050,10 @@ > > #ifdef DOINIT > # define MGVTBL_SET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var = {a,b,c,d,e,f,g} > +# define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var > = {(int (*)(aTHX_ SV *, MAGIC *))a,b,c,d,e,f,g} /* Like MGVTBL_SET but with > the get magic having a const MG* */ > #else > # define MGVTBL_SET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var > +# define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var > #endif > > MGVTBL_SET( > @@ -4172,7 +4174,7 @@ > NULL > ); > > -MGVTBL_SET( > +MGVTBL_SET_CONST_MAGIC_GET( > PL_vtbl_arylen, > MEMBER_TO_FPTR(Perl_magic_getarylen), > MEMBER_TO_FPTR(Perl_magic_setarylen), -- A walk of a thousand miles begins with a single step... then continues for another 1,999,999 or so.