From b40895ae558e0aff0c347785dafeaaff40a01801 Mon Sep 17 00:00:00 2001 From: "Paul \"LeoNerd\" Evans" Date: Wed, 7 Dec 2022 13:01:28 +0000 Subject: Define the concept of a suspended compcv --- pad.h | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'pad.h') diff --git a/pad.h b/pad.h index f3e494324d..7f4a82c948 100644 --- a/pad.h +++ b/pad.h @@ -526,6 +526,18 @@ instead of a string/length pair. #define pad_findmy_pvs(name,flags) \ Perl_pad_findmy_pvn(aTHX_ STR_WITH_LEN(name), flags) +struct suspended_compcv +{ + CV *compcv; + STRLEN padix, constpadix; + STRLEN comppad_name_fill; + STRLEN min_intro_pending, max_intro_pending; + bool cv_has_eval, pad_reset_pending; +}; + +#define resume_compcv_final(buffer) Perl_resume_compcv(aTHX_ buffer, false) +#define resume_compcv_and_save(buffer) Perl_resume_compcv(aTHX_ buffer, true) + /* * ex: set ts=8 sts=4 sw=4 et: */ -- cgit v1.2.1