summaryrefslogtreecommitdiff
path: root/cop.h
diff options
context:
space:
mode:
authorZefram <zefram@fysh.org>2017-11-29 15:22:49 +0000
committerZefram <zefram@fysh.org>2017-11-29 15:22:49 +0000
commitdf16d5564aa82a94953a0bccfc9917bc140ead02 (patch)
treec28018531c7c7a92d2e134ee4b659c299404f63f /cop.h
parentdf9e1bc13efe0941735d662db5683d62b3851535 (diff)
downloadperl-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.h9
1 files changed, 4 insertions, 5 deletions
diff --git a/cop.h b/cop.h
index 5c66752859..c26fc18fb3 100644
--- a/cop.h
+++ b/cop.h
@@ -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( \