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.
authorNicholas Clark <nick@ccl4.org>
Mon, 16 Oct 2006 04:41:30 +0000 (04:41 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 16 Oct 2006 04:41:30 +0000 (04:41 +0000)
(I should have seen this one coming - the two structures weren't
textually identical)

p4raw-id: //depot/perl@29024

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;