From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 16 Oct 2006 04:41:30 +0000 (+0000)
Subject: Fix change 28770 to cope with the strange 32 bit bool type on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1be1929dbc8e82fba55d16fe8957fa13461e7c58;p=p5sagit%2Fp5-mst-13.2.git

Fix change 28770 to cope with the strange 32 bit bool type on VMS.
(I should have seen this one coming - the two structures weren't
textually identical)

p4raw-id: //depot/perl@29024
---

diff --git a/cop.h b/cop.h
index effdbf3..e9d786f 100644
--- 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;