From 128e8167dcdd0091242ba8e29bb716abeb5fe027 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 24 Nov 2001 21:45:32 +0000 Subject: The debug_pag needs to be visible at all times because of the re extension. p4raw-id: //depot/perl@13246 --- perl.h | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'perl.h') diff --git a/perl.h b/perl.h index 762ffdaf82..7c51e93f43 100644 --- a/perl.h +++ b/perl.h @@ -3114,17 +3114,16 @@ enum { /* pass one of these to get_vtbl */ #define RsPARA(sv) (SvPOK(sv) && ! SvCUR(sv)) #define RsRECORD(sv) (SvROK(sv) && (SvIV(SvRV(sv)) > 0)) -#ifdef DEBUGGING -/* A struct for keeping various DEBUGGING related stuff +/* A struct for keeping various DEBUGGING related stuff, * neatly packed. Currently only scratch variables for - * constructing debug output are included. */ + * constructing debug output are included. Needed always, + * not just when DEBUGGING, though, because of the re extension. c*/ struct perl_debug_pad { SV pad[3]; }; #define PERL_DEBUG_PAD(i) &(PL_debug_pad.pad[i]) #define PERL_DEBUG_PAD_ZERO(i) (sv_setpvn(PERL_DEBUG_PAD(i), "", 0), PERL_DEBUG_PAD(i)) -#endif /* Enable variables which are pointers to functions */ typedef void (CPERLscope(*peep_t))(pTHX_ OP* o); -- cgit v1.2.1