X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=handy.h;h=19a593408ed924e9ab3b18ecc0bdbc64bf5f2ece;hb=91451e42347a75e822ac69341556a66aff081878;hp=bb95814075b956eb404d968d1191c0c8a8cc737a;hpb=27d5b266d3ace9bd49a167d34f7350f3768d1326;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/handy.h b/handy.h
index bb95814..19a5934 100644
--- a/handy.h
+++ b/handy.h
@@ -609,9 +609,9 @@ hopefully catches attempts to access uninitialized memory.
 
 #else
 
-#define MEM_WRAP_CHECK(n,t) 0
-#define MEM_WRAP_CHECK_1(n,t,a) 0
-#define MEM_WRAP_CHECK_2(n,t,a,b) 0
+#define MEM_WRAP_CHECK(n,t)
+#define MEM_WRAP_CHECK_1(n,t,a)
+#define MEM_WRAP_CHECK_2(n,t,a,b)
 
 #define New(x,v,n,t)	(v = (t*)safemalloc((MEM_SIZE)((n)*sizeof(t))))
 #define Newc(x,v,n,t,c)	(v = (c*)safemalloc((MEM_SIZE)((n)*sizeof(t))))
@@ -665,3 +665,19 @@ hopefully catches attempts to access uninitialized memory.
 # endif
 #endif
 
+/* convenience debug macros */
+#ifdef USE_ITHREADS
+#define pTHX_FORMAT  "Perl interpreter: 0x%p"
+#define pTHX__FORMAT ", Perl interpreter: 0x%p"
+#define pTHX_VALUE_   (unsigned long)my_perl,
+#define pTHX_VALUE    (unsigned long)my_perl
+#define pTHX__VALUE_ ,(unsigned long)my_perl,
+#define pTHX__VALUE  ,(unsigned long)my_perl
+#else
+#define pTHX_FORMAT 
+#define pTHX__FORMAT
+#define pTHX_VALUE_ 
+#define pTHX_VALUE
+#define pTHX__VALUE_ 
+#define pTHX__VALUE
+#endif /* USE_ITHREADS */