Change 34502 by [EMAIL PROTECTED] on 2008/10/17 19:09:06
Perl_save_padsv() can move to mathoms.c for 5.8.9, as there were no
mathoms in 5.8.8.
Affected files ...
... //depot/maint-5.8/perl/mathoms.c#35 edit
... //depot/maint-5.8/perl/scope.c#74 edit
Differences ...
==== //depot/maint-5.8/perl/mathoms.c#35 (text) ====
Index: perl/mathoms.c
--- perl/mathoms.c#34~33420~ 2008-03-03 10:29:06.000000000 -0800
+++ perl/mathoms.c 2008-10-17 12:09:06.000000000 -0700
@@ -1384,6 +1384,18 @@
PERL_UNUSED_ARG(utf8);
return FALSE;
}
+
+void
+Perl_save_padsv(pTHX_ PADOFFSET off)
+{
+ SSCHECK(4);
+ ASSERT_CURPAD_ACTIVE("save_padsv");
+ SSPUSHPTR(PL_curpad[off]);
+ SSPUSHPTR(PL_comppad);
+ SSPUSHLONG((long)off);
+ SSPUSHINT(SAVEt_PADSV);
+}
+
#endif /* NO_MATHOMS */
/*
==== //depot/maint-5.8/perl/scope.c#74 (text) ====
Index: perl/scope.c
--- perl/scope.c#73~34501~ 2008-10-17 09:58:16.000000000 -0700
+++ perl/scope.c 2008-10-17 12:09:06.000000000 -0700
@@ -1166,21 +1166,6 @@
#endif /* DEBUGGING */
}
-/* This is rendered a mathom by the integration of change 33078. However, until
- we have versioned mathom logic in mathoms.c, we can't move it there for
- 5.10.1, as other code in production may have linked to it. */
-
-void
-Perl_save_padsv(pTHX_ PADOFFSET off)
-{
- SSCHECK(4);
- ASSERT_CURPAD_ACTIVE("save_padsv");
- SSPUSHPTR(PL_curpad[off]);
- SSPUSHPTR(PL_comppad);
- SSPUSHLONG((long)off);
- SSPUSHINT(SAVEt_PADSV);
-}
-
/*
* Local variables:
* c-indentation-style: bsd
End of Patch.
