This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Some low-hanging -Wunreachable-code fruits.
[perl5.git] / packsizetables.c
index afeb210..1eeae13 100644 (file)
@@ -34,7 +34,7 @@ STATIC const packprops_t packprops[512] = {
     0,
     /* N */ SIZE32,
     0, 0,
-#if defined(HAS_QUAD)
+#if IVSIZE >= 8
     /* Q */ sizeof(Uquad_t),
 #else
     0,
@@ -59,7 +59,7 @@ STATIC const packprops_t packprops[512] = {
     /* n */ SIZE16,
     0,
     /* p */ sizeof(char *) | PACK_SIZE_CANNOT_CSUM,
-#if defined(HAS_QUAD)
+#if IVSIZE >= 8
     /* q */ sizeof(Quad_t),
 #else
     0,
@@ -88,38 +88,22 @@ STATIC const packprops_t packprops[512] = {
     0, 0,
     /* L */ sizeof(unsigned long),
     0,
-#if defined(PERL_PACK_CAN_SHRIEKSIGN)
     /* N */ SIZE32,
-#else
-    0,
-#endif
     0, 0, 0, 0,
     /* S */ sizeof(unsigned short),
     0, 0,
-#if defined(PERL_PACK_CAN_SHRIEKSIGN)
     /* V */ SIZE32,
-#else
-    0,
-#endif
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
     0, 0,
     /* i */ sizeof(int),
     0, 0,
     /* l */ sizeof(long),
     0,
-#if defined(PERL_PACK_CAN_SHRIEKSIGN)
     /* n */ SIZE16,
-#else
-    0,
-#endif
     0, 0, 0, 0,
     /* s */ sizeof(short),
     0, 0,
-#if defined(PERL_PACK_CAN_SHRIEKSIGN)
     /* v */ SIZE16,
-#else
-    0,
-#endif
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
@@ -157,7 +141,7 @@ STATIC const packprops_t packprops[512] = {
     /* n */ SIZE16,
     0,
     /* p */ sizeof(char *) | PACK_SIZE_CANNOT_CSUM,
-#if defined(HAS_QUAD)
+#if IVSIZE >= 8
     /* q */ sizeof(Quad_t),
 #else
     0,
@@ -186,7 +170,7 @@ STATIC const packprops_t packprops[512] = {
     0,
     /* N */ SIZE32,
     0, 0,
-#if defined(HAS_QUAD)
+#if IVSIZE >= 8
     /* Q */ sizeof(Uquad_t),
 #else
     0,
@@ -213,19 +197,11 @@ STATIC const packprops_t packprops[512] = {
     0, 0, 0, 0, 0, 0, 0, 0, 0,
     /* l */ sizeof(long),
     0,
-#if defined(PERL_PACK_CAN_SHRIEKSIGN)
     /* n */ SIZE16,
-#else
-    0,
-#endif
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
     /* s */ sizeof(short),
     0, 0,
-#if defined(PERL_PACK_CAN_SHRIEKSIGN)
     /* v */ SIZE16,
-#else
-    0,
-#endif
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
     0, 0, 0,
@@ -233,19 +209,11 @@ STATIC const packprops_t packprops[512] = {
     0, 0, 0, 0, 0, 0, 0, 0, 0,
     /* L */ sizeof(unsigned long),
     0,
-#if defined(PERL_PACK_CAN_SHRIEKSIGN)
     /* N */ SIZE32,
-#else
-    0,
-#endif
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
     /* S */ sizeof(unsigned short),
     0, 0,
-#if defined(PERL_PACK_CAN_SHRIEKSIGN)
     /* V */ SIZE32,
-#else
-    0,
-#endif
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0
 };