From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 4 Feb 2006 13:00:06 +0000 (+0000)
Subject: Tweak arena sets to avoid assignment between different pointers.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=398c677ba439a487b1d8fcbfc8e113be6d0e501a;p=p5sagit%2Fp5-mst-13.2.git

Tweak arena sets to avoid assignment between different pointers.

p4raw-id: //depot/perl@27080
---

diff --git a/sv.c b/sv.c
index 3aa3e5b..2c9a593 100644
--- a/sv.c
+++ b/sv.c
@@ -575,15 +575,10 @@ Perl_sv_clean_all(pTHX)
 */
 #define ARENASETS 1
 
-union arena {
-    double alignthis;	/* maybe too big, NV instead ? */
-    unsigned char data[PERL_ARENA_SIZE];
-};
-
 struct arena_desc {
-    union arena* arena;		/* the raw storage */
-    size_t        size;		/* its size ~4k typ */
-    int           unit_type;	/* useful for arena audits */
+    char       *arena;		/* the raw storage, allocated aligned */
+    size_t      size;		/* its size ~4k typ */
+    int         unit_type;	/* useful for arena audits */
     /* info for sv-heads (eventually)
        int count, flags;
     */