diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2002-10-19 14:10:21 +0000 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2002-10-19 14:10:21 +0000 |
| commit | 3db8f154c4c6e098a5a0bdf7932e8f86fbd2c451 (patch) | |
| tree | 304393fdb48236335e35a83047fba6223e13f602 /cop.h | |
| parent | efc41c8ef9279ab1e5f723c2c73a85333a96e0e2 (diff) | |
| download | perl-3db8f154c4c6e098a5a0bdf7932e8f86fbd2c451.tar.gz | |
Happy chainsaw stories; The removal of the 5005 threads
Still imcomplete. Configure will follow
p4raw-id: //depot/perl@18030
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 8 |
1 files changed, 1 insertions, 7 deletions
@@ -107,9 +107,7 @@ struct block_sub { CV * cv; GV * gv; GV * dfoutgv; -#ifndef USE_5005THREADS AV * savearray; -#endif /* USE_5005THREADS */ AV * argarray; long olddepth; U8 hasargs; @@ -131,15 +129,11 @@ struct block_sub { cx->blk_sub.dfoutgv = PL_defoutgv; \ (void)SvREFCNT_inc(cx->blk_sub.dfoutgv) -#ifdef USE_5005THREADS -# define POP_SAVEARRAY() NOOP -#else -# define POP_SAVEARRAY() \ +#define POP_SAVEARRAY() \ STMT_START { \ SvREFCNT_dec(GvAV(PL_defgv)); \ GvAV(PL_defgv) = cx->blk_sub.savearray; \ } STMT_END -#endif /* USE_5005THREADS */ /* junk in @_ spells trouble when cloning CVs and in pp_caller(), so don't * leave any (a fast av_clear(ary), basically) */ |