This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Always define sTHX as 0 when not using mem debug header
authorFather Chrysostomos <sprout@cpan.org>
Fri, 17 Jan 2014 14:11:02 +0000 (06:11 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 17 Jan 2014 14:11:02 +0000 (06:11 -0800)
I broke the threaded build in b001a0d149 by assuming that sTHX was
always set to 0 when memory debug headers were not in use.  That is
an easy assumption to make, so this commit makes that assumption true.
(And there is no reason it cannot be made true.  There is no need for
sTHX to be set under PERL_IMPLICIT_CONTEXT but not PERL_TRACK_MEMPOOL,
where sTHX was not even used before b001a0d149.)

perl.h

diff --git a/perl.h b/perl.h
index ee167db..26902eb 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -4034,7 +4034,7 @@ struct perl_memory_debug_header {
 
 #endif
 
-#if defined (PERL_IMPLICIT_CONTEXT) || defined (PERL_DEBUG_READONLY_COW)
+#if defined (PERL_TRACK_MEMPOOL) || defined (PERL_DEBUG_READONLY_COW)
 
 #  define sTHX (sizeof(struct perl_memory_debug_header) + \
        (MEM_ALIGNBYTES - sizeof(struct perl_memory_debug_header) \