From: Eric Fifer <egf7@columbia.edu>
Date: Thu, 9 Nov 2000 19:26:50 +0000 (+0000)
Subject: Missing dTHXs.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c024d977a3f66deece6fa8197092e1716641d48e;p=p5sagit%2Fp5-mst-13.2.git

Missing dTHXs.

Subject: RE: perl@7595 builds not on cygwin
Message-ID: <000201c04a83$05ef1660$933570c2@fifer>

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

diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs
index e5fc8ae..312f5f8 100644
--- a/ext/Devel/Peek/Peek.xs
+++ b/ext/Devel/Peek/Peek.xs
@@ -140,6 +140,7 @@ struct mstats_buffer
 void
 _fill_mstats(struct mstats_buffer *b, int level)
 {
+    dTHX;
     b->buffer.nfree  = b->buf;
     b->buffer.ntotal = b->buf + _NBUCKETS;
     b->buffer.bucket_mem_size = b->buf + 2*_NBUCKETS;
@@ -151,6 +152,7 @@ _fill_mstats(struct mstats_buffer *b, int level)
 void
 fill_mstats(SV *sv, int level)
 {
+    dTHX;
     int nbuckets;
     struct mstats_buffer buf;
 
@@ -166,6 +168,7 @@ fill_mstats(SV *sv, int level)
 void
 _mstats_to_hv(HV *hv, struct mstats_buffer *b, int level)
 {
+    dTHX;
     SV **svp;
     int type;