Steal code from maint, and use PERL_ARENA_ROOTS_SIZE to size the arena

arrays, rather than SVt_LAST, so that SVt_LAST can truthfully remain
the number of genuine SV types, unclouded by implementation details.

p4raw-id: //depot/perl@27251

1 files changed, 2 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index 88d3cf89df..09a27d5bc0 100644
--- a/sv.h
+++ b/sv.h
@@ -75,6 +75,8 @@ typedef enum {
 #define HE_SVSLOT	SVt_NULL
 #endif
 
+#define PERL_ARENA_ROOTS_SIZE	(SVt_LAST)
+
 /* typedefs to eliminate some typing */
 typedef struct he HE;
 typedef struct hek HEK;