From a25abddce2beacd697f218d5625b22c4e344ee10 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Fri, 27 May 2011 11:01:16 -0600 Subject: Change inversion lists to SVs The inversion list is an opaque object, currently implemented as an SV. Even if it ends up being an HV in the future, Nicholas is of the opinion that it should be presented to the world as an SV*. --- embed.fnc | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) (limited to 'embed.fnc') diff --git a/embed.fnc b/embed.fnc index cc55c2ab70..1057bfc93c 100644 --- a/embed.fnc +++ b/embed.fnc @@ -983,8 +983,8 @@ Ap |SV* |regclass_swash |NULLOK const regexp *prog \ |NN const struct regnode *node|bool doinit \ |NULLOK SV **listsvp|NULLOK SV **altsvp #ifdef PERL_IN_REGCOMP_C -EMi |U8 |set_regclass_bit|NN struct RExC_state_t* pRExC_state|NN regnode* node|const U8 value|NN HV** invlist_ptr|NN AV** alternate_ptr -EMs |U8 |set_regclass_bit_fold|NN struct RExC_state_t *pRExC_state|NN regnode* node|const U8 value|NN HV** invlist_ptr|NN AV** alternate_ptr +EMi |U8 |set_regclass_bit|NN struct RExC_state_t* pRExC_state|NN regnode* node|const U8 value|NN SV** invlist_ptr|NN AV** alternate_ptr +EMs |U8 |set_regclass_bit_fold|NN struct RExC_state_t *pRExC_state|NN regnode* node|const U8 value|NN SV** invlist_ptr|NN AV** alternate_ptr EMs |void |add_alternate |NN AV** alternate_ptr|NN U8* string|STRLEN len #endif Ap |I32 |pregexec |NN REGEXP * const prog|NN char* stringarg \ @@ -1301,22 +1301,22 @@ ApR |NV |str_to_version |NN SV *sv Ap |SV* |swash_init |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none Ap |UV |swash_fetch |NN SV *swash|NN const U8 *ptr|bool do_utf8 EXMpR |HV* |_swash_inversion_hash |NN SV* const swash -EXMpR |HV* |_new_invlist |IV initial_size -EXMpR |HV* |_swash_to_invlist |NN SV* const swash -EXMp |void |_append_range_to_invlist |NN HV* const invlist|const UV start|const UV end +EXMpR |SV* |_new_invlist |IV initial_size +EXMpR |SV* |_swash_to_invlist |NN SV* const swash +EXMp |void |_append_range_to_invlist |NN SV* const invlist|const UV start|const UV end #ifdef PERL_IN_REGCOMP_C -EiMR |HV* |add_cp_to_invlist |NULLOK HV* invlist|const UV cp -EsMR |HV* |add_range_to_invlist |NULLOK HV* invlist|const UV start|const UV end -EiMR |UV* |invlist_array |NN HV* const invlist -EiM |void |invlist_destroy |NN HV* const invlist -EsM |void |invlist_extend |NN HV* const invlist|const UV len -EsMR |HV* |invlist_intersection |NN HV* const a|NN HV* const b -EiMR |UV |invlist_len |NN HV* const invlist -EiMR |UV |invlist_max |NN HV* const invlist -EiM |void |invlist_set_len |NN HV* const invlist|const UV len -EiM |void |invlist_set_max |NN HV* const invlist|const UV max -EiM |void |invlist_trim |NN HV* const invlist -EsMR |HV* |invlist_union |NN HV* const a|NN HV* const b +EiMR |SV* |add_cp_to_invlist |NULLOK SV* invlist|const UV cp +EsMR |SV* |add_range_to_invlist |NULLOK SV* invlist|const UV start|const UV end +EiMR |UV* |invlist_array |NN SV* const invlist +EiM |void |invlist_destroy |NN SV* const invlist +EsM |void |invlist_extend |NN SV* const invlist|const UV len +EsMR |SV* |invlist_intersection |NN SV* const a|NN SV* const b +EiMR |UV |invlist_len |NN SV* const invlist +EiMR |UV |invlist_max |NN SV* const invlist +EiM |void |invlist_set_len |NN SV* const invlist|const UV len +EiM |void |invlist_set_max |NN SV* const invlist|const UV max +EiM |void |invlist_trim |NN SV* const invlist +EsMR |SV* |invlist_union |NN SV* const a|NN SV* const b #endif Ap |void |taint_env Ap |void |taint_proper |NULLOK const char* f|NN const char *const s -- cgit v1.2.1