diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-10 20:42:40 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-10 20:42:40 +0000 |
| commit | c76ac1ee16c5c9591d8ffad5a0651b7f81738b68 (patch) | |
| tree | 26af37f6b40806cfedd24504ae354c5b90d4c471 /pp_hot.c | |
| parent | a99ba4038e8029c0d033ef497d3a0f8653f0d570 (diff) | |
| download | perl-c76ac1ee16c5c9591d8ffad5a0651b7f81738b68.tar.gz | |
revert SAVEDESTRUCTOR() to accepting void(*)(void*) for source
compatibility; introduce SAVEDESTRUCTOR_X() that accepts
void(*)(pTHX_ void*)
p4raw-id: //depot/perl@4339
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2299,7 +2299,7 @@ try_autoload: DEBUG_S(PerlIO_printf(Perl_debug_log, "%p: pp_entersub lock %p\n", thr, sv);) MUTEX_UNLOCK(MgMUTEXP(mg)); - SAVEDESTRUCTOR(Perl_unlock_condpair, sv); + SAVEDESTRUCTOR_X(Perl_unlock_condpair, sv); } MUTEX_LOCK(CvMUTEXP(cv)); } @@ -2344,7 +2344,7 @@ try_autoload: CvOWNER(cv) = thr; SvREFCNT_inc(cv); if (CvDEPTH(cv) == 0) - SAVEDESTRUCTOR(unset_cvowner, (void*) cv); + SAVEDESTRUCTOR_X(unset_cvowner, (void*) cv); } else { /* (2) => grab ownership of cv. (3) => make clone */ @@ -2382,7 +2382,7 @@ try_autoload: DEBUG_S(if (CvDEPTH(cv) != 0) PerlIO_printf(Perl_debug_log, "depth %ld != 0\n", CvDEPTH(cv));); - SAVEDESTRUCTOR(unset_cvowner, (void*) cv); + SAVEDESTRUCTOR_X(unset_cvowner, (void*) cv); } } #endif /* USE_THREADS */ |