This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Replace code with fcn that does the same thing
authorKarl Williamson <khw@cpan.org>
Wed, 15 Aug 2018 19:49:55 +0000 (13:49 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 20 Aug 2018 18:44:25 +0000 (12:44 -0600)
This makes one less place that has to know certain details.  Since the
function is inline, there should be no change in the compiled code

regcomp.c

index 31fc6b4..ca0c7af 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8770,7 +8770,7 @@ Perl__new_invlist(pTHX_ IV initial_size)
     invlist_set_len(new_list, 0, 0);
 
     /* Force iterinit() to be used to get iteration to work */
-    *get_invlist_iter_addr(new_list) = (STRLEN) UV_MAX;
+    invlist_iterfinish(new_list);
 
     *get_invlist_previous_index_addr(new_list) = 0;