This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Missing DO_BO_PACK_PC and DO_BO_UNPACK_PC for the 5.8.x case
authorNicholas Clark <nick@ccl4.org>
Sat, 17 Sep 2005 18:53:39 +0000 (18:53 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 17 Sep 2005 18:53:39 +0000 (18:53 +0000)
(and the don't know the pointer size case)

p4raw-id: //depot/perl@25445

pp_pack.c

index 784c852..479782e 100644 (file)
--- 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) && \