From 7340a77173f95a81dc18665dfca437da3de391c8 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Tue, 28 Dec 1999 21:10:37 +0000 Subject: [PATCH] Windows build tweaks p4raw-id: //depot/perl@4734 --- INTERN.h | 6 +++--- sv.c | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 63 insertions(+), 3 deletions(-) diff --git a/INTERN.h b/INTERN.h index c2407f2b..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)) -- 2.7.4