Jarkko Hietaniemi <[EMAIL PROTECTED]> writes:
>On Tue, Aug 29, 2000 at 01:46:17AM -0000, [EMAIL PROTECTED] wrote:
>>
>> This is a build failure report for perl from [EMAIL PROTECTED],
>> generated with the help of perlbug 1.32 running under perl v5.7.0.
>
>Now I tracked this one down (change #6891). The hunt mainly consisted
>of debugging the following charming line :-)
>
> SV *perinterp_sv = * Perl_hv_fetch(((PerlInterpreter
>*)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0) )) ) ) ,
>(*Perl_Imodglobal_ptr(((PerlInterpreter
>*)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0) )) ) ) )) ,
>"Storable(" "0.703" ")" , sizeof("Storable(" "0.703" ")" )-1 , (1) ) ;
>stcxt_t * cxt = ( stcxt_t * )(perinterp_sv && (( perinterp_sv )->sv_flags &
>0x00010000 ) ? ( stcxt_t * )(unsigned long )( ((XPVIV*) ( perinterp_sv
>)->sv_any )->xiv_iv ) : ((void *)0) ) ; ( cxt = ( stcxt_t
>*)Perl_safesysmalloc ((size_t )(( 1 )*sizeof( stcxt_t )))), (__extension__
>(__builtin_constant_p ( ( 1 )*sizeof( stcxt_t ) ) && ( ( 1 )*sizeof( stcxt_t
>) ) <= 16 ? (( ( 1 )*sizeof( stcxt_t ) ) == 1 ? ({ void *__s = (
>(char*)( cxt ) ); *((__uint8_t *) __s) = (__uint8_t) 0 ; __s; }) :
>({ void *__s = ( (char*)( cxt ) ); union { unsigned int __ui;
>unsigned short int __usi; unsigned char __uc; } *__u = __s; __uint8_t __!
>c = (__uint8_t) ( 0 ); switch ((unsigned int) ( ( 1 )*sizeof( stcxt_t )
> )) { case 15: __u->__ui = __c * 0x01010101; __u = __extension__
>(void *)((char *) __u + 4); case 11: __u->__ui = __c * 0x01010101; __u =
>__extension__ (void *)((char *) __u + 4); case 7: __u->__ui = __c * 0x01010101; __u
>= __extension__ (void *)((char *) __u + 4); case 3: __u->__usi = (unsigned short int)
>__c * 0x0101; __u = __extension__ (void *)((char *) __u + 2); __u->__uc = (unsigned
>char) __c; break; case 14: __u->__ui = __c * 0x01010101; __u =
>__extension__ (void *)((char *) __u + 4); case 10: __u->__ui = __c *
>0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 6: __u->__ui = __c
>* 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 2: __u->__usi =
>(unsigned short int) __c * 0x0101; break; case 13: __u->__ui = __c *
>0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 9: __u->__ui = __c
>* 0x01010101; __u = __extension__ (void *)((char *) __u + 4); c!
>ase 5: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u +
>4); case 1: __u->__uc = (unsigned char) __c; break; case 16: __u->__ui
>= __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 12:
>__u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case
>8: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4);
>case 4: __u->__ui = __c * 0x01010101; case 0: break; } __s; }) ) :
>(__builtin_constant_p ( 0 ) && ( 0 ) == '\0' ? ({ void *__s = ( (char*)( cxt ) );
>__builtin_memset ( __s , '\0', ( 1 )*sizeof( stcxt_t ) ) ; __s; }) :
>memset ( (char*)( cxt ) , 0 , ( 1 )*sizeof( stcxt_t ) )))) ;
>Perl_sv_setiv(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0)
>)) ) ) , perinterp_sv , ( IV )(unsigned long )( cxt ) ) ;
--
Nick Ing-Simmons
