[ID 20001027.003] 5.7.0 Patch 7215 followup: Compilingext/Devel/Peek.xs fails

Hi,

patch 7215 introduced lots of debuging MSTATS code to
ext/Devel/Peek.xs, which fails to compile because of
undefined references to 'my_perl':

cc -c  -D_REENTRANT -DSOCKS -I/usr/local/include -I/opt/socks5/include -I/usr/local/BerkeleyDB.3.1/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -xarch=v9 -g -xarch=v9    -DVERSION=\"1.00_01\"  -DXS_VERSION=\"1.00_01\" -KPIC -I../../..  Peek.c
"Peek.xs", line 148: undefined symbol: my_perl
"Peek.xs", line 148: warning: improper pointer/integer combination: arg #1
"Peek.xs", line 159: undefined symbol: my_perl
"Peek.xs", line 159: warning: improper pointer/integer combination: arg #1
"Peek.xs", line 172: undefined symbol: my_perl
"Peek.xs", line 172: warning: improper pointer/integer combination: arg #1
"Peek.xs", line 173: warning: improper pointer/integer combination: arg #1


In order to be able to compile perl 5.7.0 though, I've
disabled this as follows:
*** ./ext/Devel/Peek/Peek.xs.FCS        Fri Oct 27 11:47:39 2000
--- ./ext/Devel/Peek/Peek.xs    Fri Oct 27 11:48:30 2000
***************
*** 125,132 ****
        PerlIO_printf(Perl_debug_log, "%s: perl not compiled with DEBUGGING_MSTATS\n",str);
  #endif

! #if defined(PERL_DEBUGGING_MSTATS) || defined(DEBUGGING_MSTATS) \
!       || (defined(MYMALLOC) && !defined(PLAIN_MALLOC))

  /* Very coarse overestimate, 2-per-power-of-2, one more to determine NBUCKETS. */
  #  define _NBUCKETS (2*8*IVSIZE+1)
--- 125,131 ----
        PerlIO_printf(Perl_debug_log, "%s: perl not compiled with DEBUGGING_MSTATS\n",str);
  #endif

! #if 0

  /* Very coarse overestimate, 2-per-power-of-2, one more to determine NBUCKETS. */
  #  define _NBUCKETS (2*8*IVSIZE+1)


which sure doen's match the authors itentions ;-)

Best regards
-- Jens

--------------------------------------------------------------------------------
     /
 +##+|##+   STRAWBERRY                     Jens Hamisch
+v#+v v##+  EDV-Systeme GmbH               Managing director
/ v    v\v
| . .  . |  Brauneckweg 2                  Car (Voice):  (+49 172) 81 04 162
|     .  |  D-82549 Koenigsdorf            Voice:        (+49 8179) 9305-50
 | .     |                                 Fax:          (+49 8179) 9305-38
 \   .  /   Tel./Fax: (+49 8179) 9305-50   Email:        jens@Strawberry.COM
  \____/    Strawberry@Strawberry.COM      

• [ID 20001027.003] 5.7.0 Patch 7215 followup: Compilingext/Devel/Peek.xs fails by Jens Hamisch
• Re: [ID 20001027.003] 5.7.0 Patch 7215 followup: Compiling ext/Devel/Peek.xs fails by Jarkko Hietaniemi