new_body_type doesn't need to subtract the offset, that's what

[p5sagit/p5-mst-13.2.git] / mathoms.c

diff --git a/mathoms.c b/mathoms.c
index d3713f5..3f541f6 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -29,8 +29,6 @@
 #define PERL_IN_MATHOMS_C
 #include "perl.h"
 
-void Perl_mathoms(void) {}
-
 /* ref() is now a macro using Perl_doref;
  * this version provided for binary compatibility only.
  */
@@ -67,7 +65,7 @@ Taint an SV. Use C<SvTAINTED_on> instead.
 void
 Perl_sv_taint(pTHX_ SV *sv)
 {
-    sv_magic((sv), Nullsv, PERL_MAGIC_taint, Nullch, 0);
+    sv_magic((sv), NULL, PERL_MAGIC_taint, NULL, 0);
 }
 
 /* sv_2iv() is now a macro using Perl_sv_2iv_flags();
@@ -437,10 +435,11 @@ Perl_printf_nocontext(const char *format, ...)
 NV
 Perl_huge(void)
 {
-#   if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
+#  if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
     return HUGE_VALL;
-#   endif
+#  else
     return HUGE_VAL;
+#  endif
 }
 #endif
 
@@ -493,7 +492,7 @@ Perl_hv_iternext(pTHX_ HV *hv)
 void
 Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how)
 {
-    sv_magic((SV*)hv, (SV*)gv, how, Nullch, 0);
+    sv_magic((SV*)hv, (SV*)gv, how, NULL, 0);
 }
 
 #if 0 /* use the macro from hv.h instead */