packsizetables.c

   1 /* -*- buffer-read-only: t -*-
   2    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
   3    This file is built by genpacksizetables.pl from its data.
   4    Any changes made here will be lost!
   5  */
   6
   7 #if TYPE_IS_SHRIEKING != 0x100
   8    ++++shriek offset should be 256
   9 #endif
  10
  11 typedef U8 packprops_t;
  12 #if 'J'-'I' == 1
  13 /* ASCII */
  14 STATIC const packprops_t packprops[512] = {
  15     /* normal */
  16     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  17     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  18     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  19     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  20     0, 0, 0,
  21     /* C */ sizeof(unsigned char),
  22 #if defined(HAS_LONG_DOUBLE) && defined(USE_LONG_DOUBLE)
  23     /* D */ LONG_DOUBLESIZE,
  24 #else
  25     0,
  26 #endif
  27     0,
  28     /* F */ NVSIZE,
  29     0, 0,
  30     /* I */ sizeof(unsigned int),
  31     /* J */ UVSIZE,
  32     0,
  33     /* L */ SIZE32,
  34     0,
  35     /* N */ SIZE32,
  36     0, 0,
  37 #if defined(HAS_QUAD)
  38     /* Q */ sizeof(Uquad_t),
  39 #else
  40     0,
  41 #endif
  42     0,
  43     /* S */ SIZE16,
  44     0,
  45     /* U */ sizeof(char) | PACK_SIZE_UNPREDICTABLE,
  46     /* V */ SIZE32,
  47     /* W */ sizeof(unsigned char) | PACK_SIZE_UNPREDICTABLE,
  48     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  49     /* c */ sizeof(char),
  50     /* d */ sizeof(double),
  51     0,
  52     /* f */ sizeof(float),
  53     0, 0,
  54     /* i */ sizeof(int),
  55     /* j */ IVSIZE,
  56     0,
  57     /* l */ SIZE32,
  58     0,
  59     /* n */ SIZE16,
  60     0,
  61     /* p */ sizeof(char *) | PACK_SIZE_CANNOT_CSUM,
  62 #if defined(HAS_QUAD)
  63     /* q */ sizeof(Quad_t),
  64 #else
  65     0,
  66 #endif
  67     0,
  68     /* s */ SIZE16,
  69     0, 0,
  70     /* v */ SIZE16,
  71     /* w */ sizeof(char) | PACK_SIZE_UNPREDICTABLE | PACK_SIZE_CANNOT_CSUM,
  72     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  73     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  74     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  75     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  76     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  77     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  78     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  79     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  80     0, 0, 0, 0, 0, 0, 0, 0,
  81     /* shrieking */
  82     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  83     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  84     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  85     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  86     0, 0, 0, 0, 0, 0, 0, 0, 0,
  87     /* I */ sizeof(unsigned int),
  88     0, 0,
  89     /* L */ sizeof(unsigned long),
  90     0,
  91 #if defined(PERL_PACK_CAN_SHRIEKSIGN)
  92     /* N */ SIZE32,
  93 #else
  94     0,
  95 #endif
  96     0, 0, 0, 0,
  97     /* S */ sizeof(unsigned short),
  98     0, 0,
  99 #if defined(PERL_PACK_CAN_SHRIEKSIGN)
 100     /* V */ SIZE32,
 101 #else
 102     0,
 103 #endif
 104     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 105     0, 0,
 106     /* i */ sizeof(int),
 107     0, 0,
 108     /* l */ sizeof(long),
 109     0,
 110 #if defined(PERL_PACK_CAN_SHRIEKSIGN)
 111     /* n */ SIZE16,
 112 #else
 113     0,
 114 #endif
 115     0, 0, 0, 0,
 116     /* s */ sizeof(short),
 117     0, 0,
 118 #if defined(PERL_PACK_CAN_SHRIEKSIGN)
 119     /* v */ SIZE16,
 120 #else
 121     0,
 122 #endif
 123     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 124     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 125     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 126     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 127     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 128     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 129     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 130     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 131     0, 0, 0, 0, 0, 0, 0, 0, 0
 132 };
 133 #else
 134 /* EBCDIC (or bust) */
 135 STATIC const packprops_t packprops[512] = {
 136     /* normal */
 137     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 138     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 139     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 140     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 141     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 142     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 143     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 144     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 145     0, 0, 0,
 146     /* c */ sizeof(char),
 147     /* d */ sizeof(double),
 148     0,
 149     /* f */ sizeof(float),
 150     0, 0,
 151     /* i */ sizeof(int),
 152     0, 0, 0, 0, 0, 0, 0,
 153     /* j */ IVSIZE,
 154     0,
 155     /* l */ SIZE32,
 156     0,
 157     /* n */ SIZE16,
 158     0,
 159     /* p */ sizeof(char *) | PACK_SIZE_CANNOT_CSUM,
 160 #if defined(HAS_QUAD)
 161     /* q */ sizeof(Quad_t),
 162 #else
 163     0,
 164 #endif
 165     0, 0, 0, 0, 0, 0, 0, 0, 0,
 166     /* s */ SIZE16,
 167     0, 0,
 168     /* v */ SIZE16,
 169     /* w */ sizeof(char) | PACK_SIZE_UNPREDICTABLE | PACK_SIZE_CANNOT_CSUM,
 170     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 171     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 172     /* C */ sizeof(unsigned char),
 173 #if defined(HAS_LONG_DOUBLE) && defined(USE_LONG_DOUBLE)
 174     /* D */ LONG_DOUBLESIZE,
 175 #else
 176     0,
 177 #endif
 178     0,
 179     /* F */ NVSIZE,
 180     0, 0,
 181     /* I */ sizeof(unsigned int),
 182     0, 0, 0, 0, 0, 0, 0,
 183     /* J */ UVSIZE,
 184     0,
 185     /* L */ SIZE32,
 186     0,
 187     /* N */ SIZE32,
 188     0, 0,
 189 #if defined(HAS_QUAD)
 190     /* Q */ sizeof(Uquad_t),
 191 #else
 192     0,
 193 #endif
 194     0, 0, 0, 0, 0, 0, 0, 0, 0,
 195     /* S */ SIZE16,
 196     0,
 197     /* U */ sizeof(char) | PACK_SIZE_UNPREDICTABLE,
 198     /* V */ SIZE32,
 199     /* W */ sizeof(unsigned char) | PACK_SIZE_UNPREDICTABLE,
 200     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 201     0, 0, 0, 0, 0, 0, 0, 0, 0,
 202     /* shrieking */
 203     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 204     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 205     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 206     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 207     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 208     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 209     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 210     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 211     0, 0, 0, 0, 0, 0, 0, 0, 0,
 212     /* i */ sizeof(int),
 213     0, 0, 0, 0, 0, 0, 0, 0, 0,
 214     /* l */ sizeof(long),
 215     0,
 216 #if defined(PERL_PACK_CAN_SHRIEKSIGN)
 217     /* n */ SIZE16,
 218 #else
 219     0,
 220 #endif
 221     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 222     /* s */ sizeof(short),
 223     0, 0,
 224 #if defined(PERL_PACK_CAN_SHRIEKSIGN)
 225     /* v */ SIZE16,
 226 #else
 227     0,
 228 #endif
 229     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 230     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 231     0, 0, 0,
 232     /* I */ sizeof(unsigned int),
 233     0, 0, 0, 0, 0, 0, 0, 0, 0,
 234     /* L */ sizeof(unsigned long),
 235     0,
 236 #if defined(PERL_PACK_CAN_SHRIEKSIGN)
 237     /* N */ SIZE32,
 238 #else
 239     0,
 240 #endif
 241     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 242     /* S */ sizeof(unsigned short),
 243     0, 0,
 244 #if defined(PERL_PACK_CAN_SHRIEKSIGN)
 245     /* V */ SIZE32,
 246 #else
 247     0,
 248 #endif
 249     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 250     0, 0, 0, 0, 0, 0, 0, 0, 0, 0
 251 };
 252 #endif
 253
 254 /* ex: set ro: */