From: Andy Lester <andy@petdance.com>
Date: Sun, 2 Jul 2006 12:24:45 +0000 (-0500)
Subject: Clean up mathoms.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b5445a235ee10c776f6e43ea6f8fbf44177ff2e8;p=p5sagit%2Fp5-mst-13.2.git

Clean up mathoms.c
Message-ID: <20060702172445.GA20521@petdance.com>

p4raw-id: //depot/perl@28468
---

diff --git a/mathoms.c b/mathoms.c
index 206bcfb..72639dc 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -29,6 +29,43 @@
 #define PERL_IN_MATHOMS_C
 #include "perl.h"
 
+OP * Perl_ref(pTHX_ OP *o, I32 type);
+void Perl_sv_unref(pTHX_ SV *sv);
+void Perl_sv_taint(pTHX_ SV *sv);
+IV Perl_sv_2iv(pTHX_ register SV *sv);
+UV Perl_sv_2uv(pTHX_ register SV *sv);
+char * Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp);
+char * Perl_sv_2pv_nolen(pTHX_ register SV *sv);
+char * Perl_sv_2pvbyte_nolen(pTHX_ register SV *sv);
+char * Perl_sv_2pvutf8_nolen(pTHX_ register SV *sv);
+void Perl_sv_force_normal(pTHX_ register SV *sv);
+void Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr);
+void Perl_sv_catpvn(pTHX_ SV *dsv, const char* sstr, STRLEN slen);
+void Perl_sv_catpvn_mg(pTHX_ register SV *sv, register const char *ptr, register STRLEN len);
+void Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr);
+void Perl_sv_catsv_mg(pTHX_ SV *dsv, register SV *ssv);
+char * Perl_sv_pv(pTHX_ SV *sv);
+char * Perl_sv_pvn_force(pTHX_ SV *sv, STRLEN *lp);
+char * Perl_sv_pvbyte(pTHX_ SV *sv);
+char * Perl_sv_pvutf8(pTHX_ SV *sv);
+STRLEN Perl_sv_utf8_upgrade(pTHX_ register SV *sv);
+NV Perl_huge(void);
+void Perl_gv_fullname3(pTHX_ SV *sv, const GV *gv, const char *prefix);
+void Perl_gv_efullname3(pTHX_ SV *sv, const GV *gv, const char *prefix);
+GV * Perl_gv_fetchmethod(pTHX_ HV *stash, const char *name);
+HE * Perl_hv_iternext(pTHX_ HV *hv);
+void Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how);
+bool Perl_do_open(pTHX_ GV *gv, register const char *name, I32 len, int as_raw,
+		int rawmode, int rawperm, PerlIO *supplied_fp);
+bool Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp);
+bool Perl_do_exec(pTHX_ const char *cmd);
+U8 * Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv);
+bool Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **ep);
+void Perl_sv_nolocking(pTHX_ SV *sv);
+void Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len);
+void Perl_sv_usepvn(pTHX_ SV *sv, char *ptr, STRLEN len);
+
+
 /* ref() is now a macro using Perl_doref;
  * this version provided for binary compatibility only.
  */
@@ -109,7 +146,7 @@ use the macro wrapper C<SvPV_nolen(sv)> instead.
 char *
 Perl_sv_2pv_nolen(pTHX_ register SV *sv)
 {
-    return sv_2pv(sv, 0);
+    return sv_2pv(sv, NULL);
 }
 
 /*
@@ -126,7 +163,7 @@ Usually accessed via the C<SvPVbyte_nolen> macro.
 char *
 Perl_sv_2pvbyte_nolen(pTHX_ register SV *sv)
 {
-    return sv_2pvbyte(sv, 0);
+    return sv_2pvbyte(sv, NULL);
 }
 
 /*
@@ -143,7 +180,7 @@ Usually accessed via the C<SvPVutf8_nolen> macro.
 char *
 Perl_sv_2pvutf8_nolen(pTHX_ register SV *sv)
 {
-    return sv_2pvutf8(sv, 0);
+    return sv_2pvutf8(sv, NULL);
 }
 
 /*
@@ -321,7 +358,7 @@ Perl_sv_pv(pTHX_ SV *sv)
     if (SvPOK(sv))
         return SvPVX(sv);
 
-    return sv_2pv(sv, 0);
+    return sv_2pv(sv, NULL);
 }
 
 /* sv_pvn_force() is now a macro using Perl_sv_pvn_force_flags();
@@ -341,7 +378,7 @@ Perl_sv_pvn_force(pTHX_ SV *sv, STRLEN *lp)
 char *
 Perl_sv_pvbyte(pTHX_ SV *sv)
 {
-    sv_utf8_downgrade(sv,0);
+    sv_utf8_downgrade(sv, FALSE);
     return sv_pv(sv);
 }
 
@@ -362,7 +399,7 @@ instead.
 char *
 Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *lp)
 {
-    sv_utf8_downgrade(sv,0);
+    sv_utf8_downgrade(sv, FALSE);
     return sv_pvn(sv,lp);
 }