summaryrefslogtreecommitdiff
path: root/sv_inline.h
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2022-07-01 21:24:54 -0600
committerKarl Williamson <khw@cpan.org>2022-07-01 21:31:31 -0600
commit409173239aadc465992374048dfa7b54441ce82e (patch)
treef49b0edcb111656ff0293d8fa19e7557c1e7105f /sv_inline.h
parent6e37db9b2eefdb70c52184da55586fe1cae6cffc (diff)
downloadperl-409173239aadc465992374048dfa7b54441ce82e.tar.gz
Fix compilation errors in netbsd/solaris
These were introduced by 1ef9039bccbfe64f47f201b6cfb7d6d23e0b08a7. The compilers in question die if something that is "forced to be inlined' cannot be. So, change to merely request inlining. Also change the order of definition to try to avoid forward references to make it easier to inline.
Diffstat (limited to 'sv_inline.h')
-rw-r--r--sv_inline.h48
1 files changed, 24 insertions, 24 deletions
diff --git a/sv_inline.h b/sv_inline.h
index e0615e4a29..c92bff366a 100644
--- a/sv_inline.h
+++ b/sv_inline.h
@@ -850,6 +850,30 @@ S_sv_or_pv_pos_u2b(pTHX_ SV *sv, const char *pv, STRLEN pos, STRLEN *lenp)
#endif
PERL_STATIC_INLINE char *
+Perl_sv_pvutf8n_force_wrapper(pTHX_ SV * const sv, STRLEN * const lp, const U32 dummy)
+{
+ /* This is just so can be passed to Perl_SvPV_helper() as a function
+ * pointer with the same signature as all the other such pointers, and
+ * having hence an unused parameter */
+ PERL_ARGS_ASSERT_SV_PVUTF8N_FORCE_WRAPPER;
+ PERL_UNUSED_ARG(dummy);
+
+ return sv_pvutf8n_force(sv, lp);
+}
+
+PERL_STATIC_INLINE char *
+Perl_sv_pvbyten_force_wrapper(pTHX_ SV * const sv, STRLEN * const lp, const U32 dummy)
+{
+ /* This is just so can be passed to Perl_SvPV_helper() as a function
+ * pointer with the same signature as all the other such pointers, and
+ * having hence an unused parameter */
+ PERL_ARGS_ASSERT_SV_PVBYTEN_FORCE_WRAPPER;
+ PERL_UNUSED_ARG(dummy);
+
+ return sv_pvbyten_force(sv, lp);
+}
+
+PERL_STATIC_INLINE char *
Perl_SvPV_helper(pTHX_
SV * const sv,
STRLEN * const lp,
@@ -904,30 +928,6 @@ Perl_SvPV_helper(pTHX_
return non_trivial(aTHX_ sv, lp, (flags|return_flags));
}
-PERL_STATIC_INLINE char *
-Perl_sv_pvutf8n_force_wrapper(pTHX_ SV * const sv, STRLEN * const lp, const U32 dummy)
-{
- /* This is just so can be passed to Perl_SvPV_helper() as a function
- * pointer with the same signature as all the other such pointers, and
- * having hence an unused parameter */
- PERL_ARGS_ASSERT_SV_PVUTF8N_FORCE_WRAPPER;
- PERL_UNUSED_ARG(dummy);
-
- return sv_pvutf8n_force(sv, lp);
-}
-
-PERL_STATIC_INLINE char *
-Perl_sv_pvbyten_force_wrapper(pTHX_ SV * const sv, STRLEN * const lp, const U32 dummy)
-{
- /* This is just so can be passed to Perl_SvPV_helper() as a function
- * pointer with the same signature as all the other such pointers, and
- * having hence an unused parameter */
- PERL_ARGS_ASSERT_SV_PVBYTEN_FORCE_WRAPPER;
- PERL_UNUSED_ARG(dummy);
-
- return sv_pvbyten_force(sv, lp);
-}
-
/*
* ex: set ts=8 sts=4 sw=4 et:
*/