From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 9 Dec 2005 03:39:17 +0000 (+0000)
Subject: Fixes compile errors introduce with change #26301 when compiling
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4cd187473b5443b84bf0c23f377f8bd4a0a1424;p=p5sagit%2Fp5-mst-13.2.git

Fixes compile errors introduce with change #26301 when compiling
with ithreads and DEBUGGING.
p4raw-link: @26301 on //depot/perl: 7bf61b542bce8caca5f166daaf28742d80217049

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

diff --git a/sv.c b/sv.c
index e89e5e3..f367654 100644
--- a/sv.c
+++ b/sv.c
@@ -9048,7 +9048,7 @@ Perl_ptr_table_new(pTHX)
 /* map an existing pointer using a table */
 
 STATIC PTR_TBL_ENT_t *
-S_ptr_table_find(PTR_TBL_t *tbl, const void *sv) {
+S_ptr_table_find(pTHX_ PTR_TBL_t *tbl, const void *sv) {
     PTR_TBL_ENT_t *tblent;
     const UV hash = PTR_TABLE_HASH(sv);
     assert(tbl);
@@ -9063,7 +9063,7 @@ S_ptr_table_find(PTR_TBL_t *tbl, const void *sv) {
 void *
 Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, const void *sv)
 {
-    PTR_TBL_ENT_t const *const tblent = S_ptr_table_find(tbl, sv);
+    PTR_TBL_ENT_t const *const tblent = S_ptr_table_find(aTHX_ tbl, sv);
     return tblent ? tblent->newval : (void *) 0;
 }
 
@@ -9072,7 +9072,7 @@ Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, const void *sv)
 void
 Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, const void *oldsv, void *newsv)
 {
-    PTR_TBL_ENT_t *tblent = S_ptr_table_find(tbl, oldsv);
+    PTR_TBL_ENT_t *tblent = S_ptr_table_find(aTHX_ tbl, oldsv);
 
     if (tblent) {
 	tblent->newval = newsv;