From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 22 Dec 2001 19:58:53 +0000 (+0000)
Subject: Put PerlIO stuff inside EXTERN C
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=582ed04c91818c6c9bf5b51c84f67b7c565925a7;p=p5sagit%2Fp5-mst-13.2.git

Put PerlIO stuff inside EXTERN C

p4raw-id: //depot/perlio@13853
---

diff --git a/embed.pl b/embed.pl
index 20e836f..26758eb 100755
--- a/embed.pl
+++ b/embed.pl
@@ -2354,7 +2354,6 @@ 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
 
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
 Ap	|int	|PerlIO_close		|PerlIO *
@@ -2382,3 +2381,6 @@ Ap	|PerlIO *|PerlIO_stdin
 Ap	|PerlIO *|PerlIO_stdout
 Ap	|PerlIO *|PerlIO_stderr
 #endif /* PERLIO_LAYERS */
+
+END_EXTERN_C
+
diff --git a/proto.h b/proto.h
index ca0c8e5..0706e6c 100644
--- a/proto.h
+++ b/proto.h
@@ -1332,7 +1332,6 @@ 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
 
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
 PERL_CALLCONV int	Perl_PerlIO_close(pTHX_ PerlIO *);
@@ -1360,3 +1359,6 @@ PERL_CALLCONV PerlIO *	Perl_PerlIO_stdin(pTHX);
 PERL_CALLCONV PerlIO *	Perl_PerlIO_stdout(pTHX);
 PERL_CALLCONV PerlIO *	Perl_PerlIO_stderr(pTHX);
 #endif /* PERLIO_LAYERS */
+
+END_EXTERN_C
+