This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Eliminate the definitions for DO_BO_PACK_P and DO_BO_UNPACK_P.
authorNicholas Clark <nick@ccl4.org>
Fri, 3 May 2013 15:06:01 +0000 (17:06 +0200)
committerNicholas Clark <nick@ccl4.org>
Mon, 20 May 2013 19:19:42 +0000 (21:19 +0200)
Commit 07409e015252427f in April 2005 replaced all the uses of these two
macros with DO_BO_PACK_PC and DO_BO_UNPACK_PC.

pp_pack.c

index fe81ca7..e9969d5 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -300,30 +300,20 @@ S_mul128(pTHX_ SV *sv, U8 m)
          } STMT_END
 
 # if PTRSIZE == INTSIZE
-#  define DO_BO_UNPACK_P(var)  DO_BO_UNPACK_PTR(var, i, int, void)
-#  define DO_BO_PACK_P(var)    DO_BO_PACK_PTR(var, i, int, void)
 #  define DO_BO_UNPACK_PC(var) DO_BO_UNPACK_PTR(var, i, int, char)
 #  define DO_BO_PACK_PC(var)   DO_BO_PACK_PTR(var, i, int, char)
 # elif PTRSIZE == LONGSIZE
 #  if LONGSIZE < IVSIZE && IVSIZE == 8
-#   define DO_BO_UNPACK_P(var) DO_BO_UNPACK_PTR(var, 64, IV, void)
-#   define DO_BO_PACK_P(var)   DO_BO_PACK_PTR(var, 64, IV, void)
 #   define DO_BO_UNPACK_PC(var)        DO_BO_UNPACK_PTR(var, 64, IV, char)
 #   define DO_BO_PACK_PC(var)  DO_BO_PACK_PTR(var, 64, IV, char)
 #  else
-#   define DO_BO_UNPACK_P(var) DO_BO_UNPACK_PTR(var, l, IV, void)
-#   define DO_BO_PACK_P(var)   DO_BO_PACK_PTR(var, l, IV, void)
 #   define DO_BO_UNPACK_PC(var)        DO_BO_UNPACK_PTR(var, l, IV, char)
 #   define DO_BO_PACK_PC(var)  DO_BO_PACK_PTR(var, l, IV, char)
 #  endif
 # elif PTRSIZE == IVSIZE
-#  define DO_BO_UNPACK_P(var)  DO_BO_UNPACK_PTR(var, l, IV, void)
-#  define DO_BO_PACK_P(var)    DO_BO_PACK_PTR(var, l, IV, void)
 #  define DO_BO_UNPACK_PC(var) DO_BO_UNPACK_PTR(var, l, IV, char)
 #  define DO_BO_PACK_PC(var)   DO_BO_PACK_PTR(var, l, IV, char)
 # 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