From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 17 Sep 2005 18:53:39 +0000 (+0000)
Subject: Missing DO_BO_PACK_PC and DO_BO_UNPACK_PC for the 5.8.x case
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=45f723e18cecdd96fecb0ec8aac8d7af7437f6f7;p=p5sagit%2Fp5-mst-13.2.git

Missing DO_BO_PACK_PC and DO_BO_UNPACK_PC for the 5.8.x case
(and the don't know the pointer size case)

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

diff --git a/pp_pack.c b/pp_pack.c
index 784c852..479782e 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -240,6 +240,8 @@ S_mul128(pTHX_ SV *sv, U8 m)
 # define DO_BO_PACK_N(var, type)
 # define DO_BO_UNPACK_P(var)
 # define DO_BO_PACK_P(var)
+# define DO_BO_UNPACK_PC(var)
+# define DO_BO_PACK_PC(var)
 
 #else /* PERL_PACK_CAN_BYTEORDER */
 
@@ -323,6 +325,8 @@ S_mul128(pTHX_ SV *sv, U8 m)
 # else
 #  define DO_BO_UNPACK_P(var)	BO_CANT_DOIT(unpack, pointer)
 #  define DO_BO_PACK_P(var)	BO_CANT_DOIT(pack, pointer)
+#  define DO_BO_UNPACK_PC(var)	BO_CANT_DOIT(unpack, pointer)
+#  define DO_BO_PACK_PC(var)	BO_CANT_DOIT(pack, pointer)
 # endif
 
 # if defined(my_htolen) && defined(my_letohn) && \