From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 17 Nov 2005 14:36:39 +0000 (+0000)
Subject: Move the location of the definition of the arena slot used for pte
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=028b03eea0e63d07351ac2ccc7021fcbf275ea04;p=p5sagit%2Fp5-mst-13.2.git

Move the location of the definition of the arena slot used for pte
into sv.h, to keep it in one central place.
Change it to use SVt_RV. (Having SVt_IV for real use will be useful.
SVt_RV has no body, and doesn't pretend to have one, so it is spare.)

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

diff --git a/sv.c b/sv.c
index e611ba3..286b2e1 100644
--- a/sv.c
+++ b/sv.c
@@ -1112,7 +1112,6 @@ Perl_report_uninit(pTHX_ SV* uninit_sv)
   of the unused body-slots for PTEs, then use it in those (2) PTE
   contexts below (line ~10k)
 */
-#define PTE_SVSLOT	SVt_IV
 
 STATIC void *
 S_more_bodies (pTHX_ size_t size, svtype sv_type)
diff --git a/sv.h b/sv.h
index c9cf0fe..a40d3b5 100644
--- a/sv.h
+++ b/sv.h
@@ -63,6 +63,9 @@ typedef enum {
 	SVt_LAST	/* keep last in enum. used to size arrays */
 } svtype;
 
+#ifdef PERL_IN_SV_C
+#define PTE_SVSLOT	SVt_RV
+#endif
 
 /* typedefs to eliminate some typing */
 typedef struct he HE;