Skip to content
Browse files

avoid defining the same global functions in multiple objects

This caused -Uusedl builds to fail
  • Loading branch information...
1 parent 0fd3c67 commit 3c234b35e38131ab43732c73a916f4adff580d8c @tonycoz tonycoz committed Jul 24, 2011
Showing with 6 additions and 1 deletion.
  1. +6 −1 regcomp.c
View
7 regcomp.c
@@ -6129,7 +6129,6 @@ Perl__append_range_to_invlist(pTHX_ SV* const invlist, const UV start, const UV
invlist_set_len(invlist, len - 1);
}
}
-#endif
void
Perl__invlist_union(pTHX_ SV* const a, SV* const b, SV** output)
@@ -6490,6 +6489,8 @@ Perl__invlist_intersection(pTHX_ SV* const a, SV* const b, SV** i)
return;
}
+#endif
+
STATIC SV*
S_add_range_to_invlist(pTHX_ SV* invlist, const UV start, const UV end)
{
@@ -6537,6 +6538,7 @@ S_add_cp_to_invlist(pTHX_ SV* invlist, const UV cp) {
return add_range_to_invlist(invlist, cp, cp);
}
+#ifndef PERL_IN_XSUB_RE
void
Perl__invlist_invert(pTHX_ SV* const invlist)
{
@@ -6564,6 +6566,7 @@ Perl__invlist_invert(pTHX_ SV* const invlist)
(*len_pos)++;
}
}
+#endif
PERL_STATIC_INLINE SV*
S_invlist_clone(pTHX_ SV* const invlist)
@@ -6580,6 +6583,7 @@ S_invlist_clone(pTHX_ SV* const invlist)
return new_invlist;
}
+#ifndef PERL_IN_XSUB_RE
void
Perl__invlist_subtract(pTHX_ SV* const a, SV* const b, SV** result)
{
@@ -6610,6 +6614,7 @@ Perl__invlist_subtract(pTHX_ SV* const a, SV* const b, SV** result)
return;
}
+#endif
PERL_STATIC_INLINE UV*
S_get_invlist_iter_addr(pTHX_ SV* invlist)

0 comments on commit 3c234b3

Please sign in to comment.
Something went wrong with that request. Please try again.