This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix change 28770 to cope with the strange 32 bit bool type on VMS.
[perl5.git] / cop.h
diff --git a/cop.h b/cop.h
index effdbf3..e9d786f 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -497,6 +497,7 @@ struct block_givwhen {
 struct block {
     U16                blku_type;      /* what kind of context this is */
     U8         blku_gimme;     /* is this block running in list context? */
+    U8         blku_spare;     /* Padding to match with struct subst */
     I32                blku_oldsp;     /* stack pointer to copy stuff down to */
     COP *      blku_oldcop;    /* old curcop pointer */
     I32                blku_oldmarksp; /* mark stack index */
@@ -556,8 +557,8 @@ struct block {
 /* substitution context */
 struct subst {
     U16                sbu_type;       /* what kind of context this is */
-    bool       sbu_once;
-    bool       sbu_rxtainted;
+    U8         sbu_once;       /* Actually both booleans, but U8 to matches */
+    U8         sbu_rxtainted;  /* struct block */
     I32                sbu_iters;
     I32                sbu_maxiters;
     I32                sbu_rflags;