From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 28 Dec 1999 21:10:37 +0000 (+0000)
Subject: Windows build tweaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7340a77173f95a81dc18665dfca437da3de391c8;p=p5sagit%2Fp5-mst-13.2.git

Windows build tweaks

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

diff --git a/INTERN.h b/INTERN.h
index c2407f2..ee2959c 100644
--- a/INTERN.h
+++ b/INTERN.h
@@ -27,11 +27,11 @@
 #  define EXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly
 #  define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly
 #else
-#ifdef WIN32
+#if defined(WIN32) && defined(__MINGW32__)
 #  define EXT		__declspec(dllexport)
-#  define dEXT		__declspec(dllexport)
+#  define dEXT
 #  define EXTCONST	__declspec(dllexport) const
-#  define dEXTCONST	__declspec(dllexport) const
+#  define dEXTCONST	const
 #else
 #ifdef __cplusplus
 #  define EXT
diff --git a/sv.c b/sv.c
index 36f88c7..918769b 100644
--- a/sv.c
+++ b/sv.c
@@ -2258,6 +2258,30 @@ Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp)
     }
 }
 
+char *
+Perl_sv_2pvbyte_nolen(pTHX_ register SV *sv)
+{
+    return sv_2pv_nolen(sv);
+}
+
+char *
+Perl_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp)
+{
+    return sv_2pv(sv,lp);
+}
+
+char *
+Perl_sv_2pvutf8_nolen(pTHX_ register SV *sv)
+{
+    return sv_2pv_nolen(sv);
+}
+
+char *
+Perl_sv_2pvutf8(pTHX_ register SV *sv, STRLEN *lp)
+{
+    return sv_2pv(sv,lp);
+}
+ 
 /* This function is only called on magical items */
 bool
 Perl_sv_2bool(pTHX_ register SV *sv)
@@ -4672,6 +4696,42 @@ Perl_sv_pvn_force(pTHX_ SV *sv, STRLEN *lp)
 }
 
 char *
+Perl_sv_pvbyte(pTHX_ SV *sv)
+{
+    return sv_pv(sv);
+}
+
+char *
+Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *lp)
+{
+    return sv_pvn(sv,lp);
+}
+
+char *
+Perl_sv_pvbyten_force(pTHX_ SV *sv, STRLEN *lp)
+{
+    return sv_pvn_force(sv,lp);
+}
+
+char *
+Perl_sv_pvutf8(pTHX_ SV *sv)
+{
+    return sv_pv(sv);
+}
+
+char *
+Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *lp)
+{
+    return sv_pvn(sv,lp);
+}
+
+char *
+Perl_sv_pvutf8n_force(pTHX_ SV *sv, STRLEN *lp)
+{
+    return sv_pvn_force(sv,lp);
+}
+
+char *
 Perl_sv_reftype(pTHX_ SV *sv, int ob)
 {
     if (ob && SvOBJECT(sv))