Enclose the new symbols in START_EXTERN_C and END_EXTERN_C

for the benefit of C++ compilers, as suggested by Guruprasad.

p4raw-id: //depot/perl@10928

diff --git a/embed.pl b/embed.pl
index 4a9176f..9ad4767 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -2600,6 +2600,9 @@ s |void   |xstat          |int
 #if defined(PERL_OBJECT)
 };
 #endif
+
+START_EXTERN_C
+
 Apd    |void   |sv_setsv_flags |SV* dsv|SV* ssv|I32 flags
 Apd    |void   |sv_catpvn_flags|SV* sv|const char* ptr|STRLEN len|I32 flags
 Apd    |void   |sv_catsv_flags |SV* dsv|SV* ssv|I32 flags
@@ -2607,3 +2610,6 @@ Apd       |STRLEN |sv_utf8_upgrade_flags|SV *sv|I32 flags
 Apd    |char*  |sv_pvn_force_flags|SV* sv|STRLEN* lp|I32 flags
 Apd    |char*  |sv_2pv_flags   |SV* sv|STRLEN* lp|I32 flags
 Ap     |char*  |my_atof2       |const char *s|NV* value
+
+END_EXTERN_C
+

diff --git a/proto.h b/proto.h
index 411dcb3..2d6e432 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1321,6 +1321,9 @@ STATIC void       S_xstat(pTHX_ int);
 #if defined(PERL_OBJECT)
 };
 #endif
+
+START_EXTERN_C
+
 PERL_CALLCONV void     Perl_sv_setsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags);
 PERL_CALLCONV void     Perl_sv_catpvn_flags(pTHX_ SV* sv, const char* ptr, STRLEN len, I32 flags);
 PERL_CALLCONV void     Perl_sv_catsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags);
@@ -1328,3 +1331,6 @@ PERL_CALLCONV STRLEN      Perl_sv_utf8_upgrade_flags(pTHX_ SV *sv, I32 flags);
 PERL_CALLCONV char*    Perl_sv_pvn_force_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags);
 PERL_CALLCONV char*    Perl_sv_2pv_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags);
 PERL_CALLCONV char*    Perl_my_atof2(pTHX_ const char *s, NV* value);
+
+END_EXTERN_C
+