Integrate:

Integrate:
[ 24886]
Move freeing the old body after the creating of the new body.

[ 24887]
Missing aTHX_ (noticed by Jim Cromie)

[ 24888]
Collect a little more information about the body we're getting rid of

[ 24890]
Change 24886 was buggy - should be taking (and passing in) the
address of the arena.

[ 24891]
Fix compiling with -DPURIFY
p4raw-link: @24891 on //depot/perl: ee6954bb20647862c5a8f6710573686a12cee572
p4raw-link: @24890 on //depot/perl: 9a085840b61c988c67da62e325f4b1facaf9783d
p4raw-link: @24888 on //depot/perl: 4cbc76b1bf09108493ca657fbc5ed7ed7b09fdbc
p4raw-link: @24887 on //depot/perl: 921edb34b59f6bb5c639b930faa40035c9aaf154
p4raw-link: @24886 on //depot/perl: 878cc751e3aaff2b67e55cac027ae924e4b04fbd

p4raw-id: //depot/maint-5.8/perl@27150
p4raw-integrated: from //depot/perl@24890 'edit in' sv.c (@24888..)