More consting, and putting stuff in embed.fnc

Message-ID: <20051205194613.GB7791@petdance.com>

p4raw-id: //depot/perl@26281

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 464c436722..94ada282b7 100644
--- a/sv.c
+++ b/sv.c
@@ -357,7 +357,7 @@ and split it into a list of free SVs.
 void
 Perl_sv_add_arena(pTHX_ char *ptr, U32 size, U32 flags)
 {
-    SV* sva = (SV*)ptr;
+    SV* const sva = (SV*)ptr;
     register SV* sv;
     register SV* svend;