Skip to content

Commit

Permalink
Merge 20b3432 into fbc4132
Browse files Browse the repository at this point in the history
  • Loading branch information
khwilliamson committed Jul 27, 2021
2 parents fbc4132 + 20b3432 commit 527b011
Show file tree
Hide file tree
Showing 9 changed files with 479 additions and 105 deletions.
8 changes: 8 additions & 0 deletions embed.fnc
Expand Up @@ -1141,6 +1141,14 @@ ATdmoR |bool |is_utf8_invariant_string|NN const U8* const s \
ATidRp |bool |is_utf8_invariant_string_loc|NN const U8* const s \
|STRLEN len \
|NULLOK const U8 ** ep
CTiRp |unsigned|single_1bit_pos32|U32 word
CTiRp |unsigned|lsbit_pos32|U32 word
CTiRp |unsigned|msbit_pos32|U32 word
#ifdef U64TYPE /* HAS_QUAD undefined outside of core */
CTiRp |unsigned|single_1bit_pos64|U64 word
CTiRp |unsigned|lsbit_pos64|U64 word
CTiRp |unsigned|msbit_pos64|U64 word
#endif
#ifndef EBCDIC
CTiRp |unsigned int|variant_byte_number|PERL_UINTMAX_T word
#endif
Expand Down
8 changes: 8 additions & 0 deletions embed.h
Expand Up @@ -302,6 +302,7 @@
#define load_module Perl_load_module
#endif
#define looks_like_number(a) Perl_looks_like_number(aTHX_ a)
#define lsbit_pos32 Perl_lsbit_pos32
#define magic_dump(a) Perl_magic_dump(aTHX_ a)
#define markstack_grow() Perl_markstack_grow(aTHX)
#ifndef MULTIPLICITY
Expand All @@ -325,6 +326,7 @@
#define mortal_getenv Perl_mortal_getenv
#define mro_get_linear_isa(a) Perl_mro_get_linear_isa(aTHX_ a)
#define mro_method_changed_in(a) Perl_mro_method_changed_in(aTHX_ a)
#define msbit_pos32 Perl_msbit_pos32
#define my_atof(a) Perl_my_atof(aTHX_ a)
#define my_atof3(a,b,c) Perl_my_atof3(aTHX_ a,b,c)
#define my_dirfd Perl_my_dirfd
Expand Down Expand Up @@ -561,6 +563,7 @@
#define set_context Perl_set_context
#define setdefout(a) Perl_setdefout(aTHX_ a)
#define share_hek(a,b,c) Perl_share_hek(aTHX_ a,b,c)
#define single_1bit_pos32 Perl_single_1bit_pos32
#define sortsv(a,b,c) Perl_sortsv(aTHX_ a,b,c)
#define sortsv_flags(a,b,c,d) Perl_sortsv_flags(aTHX_ a,b,c,d)
#define stack_grow(a,b,c) Perl_stack_grow(aTHX_ a,b,c)
Expand Down Expand Up @@ -869,6 +872,11 @@
#if defined(PERL_USE_3ARG_SIGHANDLER)
#define csighandler Perl_csighandler
#endif
#if defined(U64TYPE) /* HAS_QUAD undefined outside of core */
#define lsbit_pos64 Perl_lsbit_pos64
#define msbit_pos64 Perl_msbit_pos64
#define single_1bit_pos64 Perl_single_1bit_pos64
#endif
#if defined(UNLINK_ALL_VERSIONS)
#define unlnk(a) Perl_unlnk(aTHX_ a)
#endif
Expand Down
2 changes: 2 additions & 0 deletions globvar.sym
Expand Up @@ -12,6 +12,8 @@ PL_c9_utf8_dfa_tab
PL_charclass
PL_check
PL_core_reg_engine
PL_deBruijn_bitpos_tab32
PL_deBruijn_bitpos_tab64
PL_EXACTFish_bitmask
PL_EXACT_REQ8_bitmask
PL_extended_utf8_dfa_tab
Expand Down

0 comments on commit 527b011

Please sign in to comment.