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.
