From 6e512bc2beef5b8b17502db7edf50b5984776318 Mon Sep 17 00:00:00 2001 From: Tomasz Konojacki Date: Fri, 4 Jun 2021 22:05:04 +0200 Subject: replace all instances of PERL_IMPLICIT_CONTEXT with MULTIPLICITY Since the removal of PERL_OBJECT (acfe0abcedaf592fb4b9cb69ce3468308ae99d91) PERL_IMPLICIT_CONTEXT and MULTIPLICITY have been synonymous and they're being used interchangeably. To simplify the code, this commit replaces all instances of PERL_IMPLICIT_CONTEXT with MULTIPLICITY. PERL_IMPLICIT_CONTEXT will stay defined for compatibility with XS modules. --- sv.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'sv.c') diff --git a/sv.c b/sv.c index e0dd6140f9..3c69dece01 100644 --- a/sv.c +++ b/sv.c @@ -9532,7 +9532,7 @@ Perl_newSVpv_share(pTHX_ const char *src, U32 hash) return newSVpvn_share(src, strlen(src), hash); } -#if defined(PERL_IMPLICIT_CONTEXT) +#if defined(MULTIPLICITY) /* pTHX_ magic can't cope with varargs, so this is a no-context * version of the main function, (which may itself be aliased to us). @@ -10736,7 +10736,7 @@ Perl_sv_setpviv_mg(pTHX_ SV *const sv, const IV iv) #endif /* NO_MATHOMS */ -#if defined(PERL_IMPLICIT_CONTEXT) +#if defined(MULTIPLICITY) /* pTHX_ magic can't cope with varargs, so this is a no-context * version of the main function, (which may itself be aliased to us). @@ -10853,7 +10853,7 @@ Perl_sv_vsetpvf_mg(pTHX_ SV *const sv, const char *const pat, va_list *const arg SvSETMAGIC(sv); } -#if defined(PERL_IMPLICIT_CONTEXT) +#if defined(MULTIPLICITY) /* pTHX_ magic can't cope with varargs, so this is a no-context * version of the main function, (which may itself be aliased to us). -- cgit v1.2.1