From fc3b1a70c0305f034ca652be221068b5e8068ff3 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 16 Dec 2025 10:59:14 -0700 Subject: [PATCH] embed.fnc: Add string assertions for dump_exec_pos This internal function takes a string argument with beginning and ending positions. It is called all the time with an empty string, --- embed.fnc | 4 ++-- proto.h | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/embed.fnc b/embed.fnc index 0240787262..84f1573a1a 100644 --- a/embed.fnc +++ b/embed.fnc @@ -5940,9 +5940,9 @@ ES |void |debug_start_match \ |SPTR const char *start \ |EPTRge const char *end \ |NN const char *blurb -ES |void |dump_exec_pos |NN const char *locinput \ +ES |void |dump_exec_pos |SPTR const char *locinput \ |NN const regnode *scan \ - |NN const char *loc_regeol \ + |EPTRge const char *loc_regeol \ |NN const char *loc_bostr \ |NN const char *loc_reg_starttry \ |const bool do_utf8 \ diff --git a/proto.h b/proto.h index df7aabaab3..0518ee891c 100644 --- a/proto.h +++ b/proto.h @@ -8917,7 +8917,7 @@ S_unwind_scan_frames(pTHX_ void *p); # define PERL_ARGS_ASSERT_DUMP_EXEC_POS \ assert(locinput); assert(scan); assert(loc_regeol); assert(loc_bostr); \ - assert(loc_reg_starttry) + assert(loc_reg_starttry); assert(locinput <= loc_regeol) # define PERL_ARGS_ASSERT_RE_EXEC_INDENTF \ assert(fmt)