Change 30079 by [EMAIL PROTECTED] on 2007/01/30 17:39:58
Subject: [PATCH] one more iteration on PerlIO_teardown prototype
From: [EMAIL PROTECTED] (Jarkko Hietaniemi)
Date: Tue, 30 Jan 2007 04:20:21 +0200 (EET)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/perl.h#761 edit
... //depot/perl/perliol.h#44 edit
Differences ...
==== //depot/perl/perl.h#761 (text) ====
Index: perl/perl.h
--- perl/perl.h#760~30044~ 2007-01-27 14:49:10.000000000 -0800
+++ perl/perl.h 2007-01-30 09:39:58.000000000 -0800
@@ -3922,7 +3922,7 @@
#endif
#ifdef USE_PERLIO
-PERL_EXPORT_C void PerlIO_teardown(pTHX);
+EXTERN_C void PerlIO_teardown(pTHX);
# ifdef USE_ITHREADS
# define PERLIO_INIT MUTEX_INIT(&PL_perlio_mutex)
# define PERLIO_TERM \
==== //depot/perl/perliol.h#44 (text) ====
Index: perl/perliol.h
--- perl/perliol.h#43~29060~ 2006-10-20 03:20:18.000000000 -0700
+++ perl/perliol.h 2007-01-30 09:39:58.000000000 -0800
@@ -167,7 +167,10 @@
PERL_EXPORT_C void PerlIO_list_free(pTHX_ PerlIO_list_t *list);
PERL_EXPORT_C void PerlIO_list_push(pTHX_ PerlIO_list_t *list, PerlIO_funcs
*funcs, SV *arg);
PERL_EXPORT_C void PerlIO_list_free(pTHX_ PerlIO_list_t *list);
-PERL_EXPORT_C void PerlIO_teardown(pTHX);
+
+/* PerlIO_teardown doesn't need exporting, but the EXTERN_C is needed
+ * for compiling as C++. Must also match with what perl.h says. */
+EXTERN_C void PerlIO_teardown(pTHX);
/*--------------------------------------------------------------------------------------*/
/* Generic, or stub layer functions */
End of Patch.
