diff options
| author | Karl Williamson <khw@cpan.org> | 2018-08-15 15:22:03 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-08-20 12:44:25 -0600 |
| commit | 3d74616334d940df3e648ff7f770055ccdc8ef4e (patch) | |
| tree | ba163a16e3b992d08f46270c053ff369ac4dd5b1 /embed.fnc | |
| parent | 0fc466a3aa56ce982618130d8081815999d72a50 (diff) | |
| download | perl-3d74616334d940df3e648ff7f770055ccdc8ef4e.tar.gz | |
Make sv_setsv_flags accept an inversion list src
Inversion lists are a type of SV, but aren't really convertible to other
types, nor has there been a need to. But it makes things more
convenient for a future commit to allow one to just clobber whatever is
in an SV and replace it with an inversion list.
Even after this commit, there are restrictions to what the SV can have
that gets clobbered. But this is a step towards more generality
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1740,7 +1740,7 @@ EXMpR |SV* |_add_range_to_invlist |NULLOK SV* invlist|UV start|UV end EXMpR |SV* |_setup_canned_invlist|const STRLEN size|const UV element0|NN UV** other_elements_ptr EXMpn |void |_invlist_populate_swatch |NN SV* const invlist|const UV start|const UV end|NN U8* swatch #endif -#if defined(PERL_IN_REGCOMP_C) +#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_SV_C) EMpX |SV* |invlist_clone |NN SV* const invlist|NULLOK SV* newlist #endif #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C) || defined(PERL_IN_TOKE_C) |