Change 34969 by [EMAIL PROTECTED] on 2008/12/01 13:20:27
In Perl_ss_dup(), case SAVEt_FREEPV can be rolled into case
SAVEt_DELETE for a space optimisation.
Affected files ...
... //depot/perl/sv.c#1582 edit
Differences ...
==== //depot/perl/sv.c#1582 (text) ====
Index: perl/sv.c
--- perl/sv.c#1581~34967~ 2008-12-01 03:54:42.000000000 -0800
+++ perl/sv.c 2008-12-01 05:20:27.000000000 -0800
@@ -11254,15 +11254,13 @@
else
TOPPTR(nss,ix) = NULL;
break;
- case SAVEt_FREEPV:
- c = (char*)POPPTR(ss,ix);
- TOPPTR(nss,ix) = pv_dup_inc(c);
- break;
case SAVEt_DELETE:
hv = (const HV *)POPPTR(ss,ix);
TOPPTR(nss,ix) = hv_dup_inc(hv, param);
i = POPINT(ss,ix);
TOPINT(nss,ix) = i;
+ /* Fall through */
+ case SAVEt_FREEPV:
c = (char*)POPPTR(ss,ix);
TOPPTR(nss,ix) = pv_dup_inc(c);
break;
End of Patch.
