From: Steve Hay <SteveHay@planit.com>
Date: Mon, 7 Aug 2006 10:24:39 +0000 (+0000)
Subject: Provide a BGET_svtype, required by #28667
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=103a10514868618165742e26004f4b21f10d36df;p=p5sagit%2Fp5-mst-13.2.git

Provide a BGET_svtype, required by #28667

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

diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h
index addae62..fd2c4f6 100644
--- a/ext/ByteLoader/bytecode.h
+++ b/ext/ByteLoader/bytecode.h
@@ -28,6 +28,7 @@ typedef char *pvindex;
 #define BGET_IV(arg)		BGET_OR_CROAK(arg, IV)
 #define BGET_PADOFFSET(arg)	BGET_OR_CROAK(arg, PADOFFSET)
 #define BGET_long(arg)		BGET_OR_CROAK(arg, long)
+#define BGET_svtype(arg)	BGET_OR_CROAK(arg, svtype)
 
 #define BGET_OR_CROAK(arg, type) STMT_START {				\
 	if (BGET_FREAD(&arg, sizeof(type), 1) < 1) {			\