make Perl_... and my_re_op_compile sigs match

[perl5.git] / mathoms.c

diff --git a/mathoms.c b/mathoms.c
index eb64c77..b3c79e8 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -41,9 +41,7 @@
 /* Not all of these have prototypes elsewhere, so do this to get
  * non-mangled names.
  */
-#ifdef __cplusplus
-extern "C" {
-#endif
+START_EXTERN_C
 
 PERL_CALLCONV OP * Perl_ref(pTHX_ OP *o, I32 type);
 PERL_CALLCONV void Perl_sv_unref(pTHX_ SV *sv);
@@ -1204,9 +1202,7 @@ Perl_to_utf8_upper(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp)
     return _to_utf8_upper_flags(p, ustrp, lenp, FALSE, NULL);
 }
 
-#ifdef __cplusplus
-}
-#endif
+END_EXTERN_C
 
 #endif /* NO_MATHOMS */
 
@@ -1214,8 +1210,8 @@ Perl_to_utf8_upper(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp)
  * Local variables:
  * c-indentation-style: bsd
  * c-basic-offset: 4
- * indent-tabs-mode: t
+ * indent-tabs-mode: nil
  * End:
  *
- * ex: set ts=8 sts=4 sw=4 noet:
+ * ex: set ts=8 sts=4 sw=4 et:
  */