diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-09-03 15:34:20 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-04 13:23:17 +0000 |
| commit | b8f55b69fbd0df7045f7d14d66b22d94744f42c5 (patch) | |
| tree | c2817ea4610fac1417bcfc43093cf54c0b306e97 /cop.h | |
| parent | f531d6eefef19d477e3a272a6e2b1422427ebde0 (diff) | |
| download | perl-b8f55b69fbd0df7045f7d14d66b22d94744f42c5.tar.gz | |
fix coredump after 64k-deep recursion
Subject: Re: debugging coredump with -DD
Message-Id: <200209031334.g83DYLN09709@crypt.compulink.co.uk>
p4raw-id: //depot/perl@17835
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -111,7 +111,7 @@ struct block_sub { AV * savearray; #endif /* USE_5005THREADS */ AV * argarray; - U16 olddepth; + long olddepth; U8 hasargs; U8 lval; /* XXX merge lval and hasargs? */ SV ** oldcurpad; @@ -119,7 +119,7 @@ struct block_sub { #define PUSHSUB(cx) \ cx->blk_sub.cv = cv; \ - cx->blk_sub.olddepth = (U16)CvDEPTH(cv); \ + cx->blk_sub.olddepth = CvDEPTH(cv); \ cx->blk_sub.hasargs = hasargs; \ cx->blk_sub.lval = PL_op->op_private & \ (OPpLVAL_INTRO|OPpENTERSUB_INARGS); |