diff options
author | Eric Fifer <egf7@columbia.edu> | 2000-11-09 19:26:50 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-09 19:46:31 +0000 |
commit | c024d977a3f66deece6fa8197092e1716641d48e (patch) | |
tree | 93cd4b19a8fbc30b2e2789162d75b2868fbfd4fc | |
parent | f760b1c18c7e150be941a1001c2a063a7aa0386b (diff) | |
download | perl-c024d977a3f66deece6fa8197092e1716641d48e.tar.gz |
Missing dTHXs.
Subject: RE: perl@7595 builds not on cygwin
Message-ID: <000201c04a83$05ef1660$933570c2@fifer>
p4raw-id: //depot/perl@7629
-rw-r--r-- | ext/Devel/Peek/Peek.xs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs index e5fc8ae2c9..312f5f84ba 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; |