This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
afeb2107128cea3a12a3f6ff704f98166a3fdbb5
[perl5.git] / packsizetables.c
1 /* -*- buffer-read-only: t -*-
2    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
3    This file is built by regen/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: */