Some low-hanging -Wunreachable-code fruits.

[perl5.git] / packsizetables.c

diff --git a/packsizetables.c b/packsizetables.c
index 7d33a46..1eeae13 100644 (file)
--- a/packsizetables.c
+++ b/packsizetables.c
@@ -1,5 +1,8 @@
-/* These tables are regenerated by genpacksizetables.pl (and then hand pasted
-   in).  You're unlikely ever to need to regenerate them.  */
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+   This file is built by regen/genpacksizetables.pl from its data.
+   Any changes made here will be lost!
+ */
 
 #if TYPE_IS_SHRIEKING != 0x100
    ++++shriek offset should be 256
@@ -31,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,
@@ -56,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,
@@ -85,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,
@@ -154,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,
@@ -183,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,
@@ -210,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,
@@ -230,20 +209,14 @@ 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
 };
 #endif
+
+/* ex: set ro: */