From f8d6b208e81d58521baa3465632e807863a9648b Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Sat, 20 Jun 1998 17:45:03 -0400 Subject: Avoid temporaries on recursion Message-Id: <199806210145.VAA21629@monk.mps.ohio-state.edu> p4raw-id: //depot/perl@1187 --- pp_hot.c | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index 0133085722..dd5ef14e8a 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -1778,9 +1778,19 @@ PP(pp_leavesub) TAINT_NOT; if (gimme == G_SCALAR) { MARK = newsp + 1; - if (MARK <= SP) - *MARK = SvTEMP(TOPs) ? TOPs : sv_mortalcopy(TOPs); - else { + if (MARK <= SP) { + if (cxsub.cv && CvDEPTH(cxsub.cv) > 1) { + if (SvTEMP(TOPs)) { + *MARK = SvREFCNT_inc(TOPs); + FREETMPS; + sv_2mortal(*MARK); + } else { + FREETMPS; + *MARK = sv_mortalcopy(TOPs); + } + } else + *MARK = SvTEMP(TOPs) ? TOPs : sv_mortalcopy(TOPs); + } else { MEXTEND(MARK, 0); *MARK = &sv_undef; } -- cgit v1.2.1