diff options
author | Zefram <zefram@fysh.org> | 2017-11-29 15:22:49 +0000 |
---|---|---|
committer | Zefram <zefram@fysh.org> | 2017-11-29 15:22:49 +0000 |
commit | df16d5564aa82a94953a0bccfc9917bc140ead02 (patch) | |
tree | c28018531c7c7a92d2e134ee4b659c299404f63f /cop.h | |
parent | df9e1bc13efe0941735d662db5683d62b3851535 (diff) | |
download | perl-df16d5564aa82a94953a0bccfc9917bc140ead02.tar.gz |
revise block_givwhen for sole use by "when"
This context frame type doesn't need to cater for "given" any more.
Diffstat (limited to 'cop.h')
-rw-r--r-- | cop.h | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -721,10 +721,9 @@ struct block_loop { -/* given/when context */ -struct block_givwhen { +/* when context */ +struct block_when { OP *leave_op; - SV *defsv_save; /* the original $_ */ }; @@ -748,7 +747,7 @@ struct block { struct block_format blku_format; struct block_eval blku_eval; struct block_loop blku_loop; - struct block_givwhen blku_givwhen; + struct block_when blku_when; } blk_u; }; #define blk_oldsp cx_u.cx_blk.blku_oldsp @@ -764,7 +763,7 @@ struct block { #define blk_format cx_u.cx_blk.blk_u.blku_format #define blk_eval cx_u.cx_blk.blk_u.blku_eval #define blk_loop cx_u.cx_blk.blk_u.blku_loop -#define blk_givwhen cx_u.cx_blk.blk_u.blku_givwhen +#define blk_when cx_u.cx_blk.blk_u.blku_when #define CX_DEBUG(cx, action) \ DEBUG_l( \ |