This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Remove never used struct element
authorKarl Williamson <khw@cpan.org>
Sat, 29 Feb 2020 16:02:15 +0000 (09:02 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 29 Feb 2020 16:06:46 +0000 (09:06 -0700)
Noted in
https://github.com/Perl/perl5/pull/17580#issuecomment-592957998
this #define has never been set, and the element hence has never been
used.

regcomp.c

index 65a8598..50f823f 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -197,10 +197,6 @@ struct RExC_state_t {
     U32         frame_count;
     AV         *warn_text;
     HV         *unlexed_names;
-#ifdef ADD_TO_REGEXEC
-    char       *starttry;              /* -Dr: where regtry was called. */
-#define RExC_starttry  (pRExC_state->starttry)
-#endif
     SV         *runtime_code_qr;       /* qr with the runtime code blocks */
 #ifdef DEBUGGING
     const char  *lastparse;