Change 27395 by [EMAIL PROTECTED] on 2006/03/06 21:28:10
sv_2iv and sv_2uv can go in mathoms.c now.
Affected files ...
... //depot/maint-5.8/perl/mathoms.c#10 edit
... //depot/maint-5.8/perl/sv.c#241 edit
Differences ...
==== //depot/maint-5.8/perl/mathoms.c#10 (text) ====
Index: perl/mathoms.c
--- perl/mathoms.c#9~27318~ 2006-02-24 09:07:53.000000000 -0800
+++ perl/mathoms.c 2006-03-06 13:28:10.000000000 -0800
@@ -70,7 +70,6 @@
sv_magic((sv), Nullsv, PERL_MAGIC_taint, Nullch, 0);
}
-#if 0
/* sv_2iv() is now a macro using Perl_sv_2iv_flags();
* this function provided for binary compatibility only
*/
@@ -90,7 +89,6 @@
{
return sv_2uv_flags(sv, SV_GMAGIC);
}
-#endif
/* sv_2pv() is now a macro using Perl_sv_2pv_flags();
* this function provided for binary compatibility only
==== //depot/maint-5.8/perl/sv.c#241 (text) ====
Index: perl/sv.c
--- perl/sv.c#240~27394~ 2006-03-06 13:11:18.000000000 -0800
+++ perl/sv.c 2006-03-06 13:28:10.000000000 -0800
@@ -1624,16 +1624,6 @@
}
#endif /* !NV_PRESERVES_UV*/
-/* sv_2iv() is now a macro using Perl_sv_2iv_flags();
- * this function provided for binary compatibility only
- */
-
-IV
-Perl_sv_2iv(pTHX_ register SV *sv)
-{
- return sv_2iv_flags(sv, SV_GMAGIC);
-}
-
STATIC bool
S_sv_2iuv_common(pTHX_ SV *sv) {
if (SvNOKp(sv)) {
@@ -1935,16 +1925,6 @@
return SvIsUV(sv) ? (IV)SvUVX(sv) : SvIVX(sv);
}
-/* sv_2uv() is now a macro using Perl_sv_2uv_flags();
- * this function provided for binary compatibility only
- */
-
-UV
-Perl_sv_2uv(pTHX_ register SV *sv)
-{
- return sv_2uv_flags(sv, SV_GMAGIC);
-}
-
/*
=for apidoc sv_2uv_flags
End of Patch.
