1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
|
/*-------------------------------------------------------------------------
stdbitint.h - ISO CX 7.18 Bit and byte utilitites <stdbit.h>
Copyright (C) 2022, Philipp Klaus Krause, krauseph@informatik.uni-freiburg.de
This library is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2, or (at your option) any
later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this library; see the file COPYING. If not, write to the
Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
As a special exception, if you link this library with other files,
some of which are compiled with SDCC, to produce an executable,
this library does not by itself cause the resulting executable to
be covered by the GNU General Public License. This exception does
not however invalidate any other reasons why the executable file
might be covered by the GNU General Public License.
-------------------------------------------------------------------------*/
#ifndef _STDBIT_H
#define _STDBIT_H 1
#ifndef __SIZE_T_DEFINED
#define __SIZE_T_DEFINED
typedef unsigned int size_t;
#endif
#ifndef __SPECIFIED_WIDTH_INTEGER_TYPES_DEFINED
#define __SPECIFIED_WIDTH_INTEGER_TYPES_DEFINED
/* Signed. */
typedef signed char int8_t;
typedef short int int16_t;
typedef long int int32_t;
#ifdef __SDCC_LONGLONG
typedef long long int int64_t;
#endif
/* Unsigned. */
typedef unsigned char uint8_t;
typedef unsigned short int uint16_t;
typedef unsigned long int uint32_t;
#ifdef __SDCC_LONGLONG
typedef unsigned long long int uint64_t;
#endif
/* Small types. */
/* Signed. */
typedef signed char int_least8_t;
typedef short int int_least16_t;
typedef long int int_least32_t;
#ifdef __SDCC_LONGLONG
typedef long long int int_least64_t;
#endif
/* Unsigned. */
typedef unsigned char uint_least8_t;
typedef unsigned short int uint_least16_t;
typedef unsigned long int uint_least32_t;
#ifdef __SDCC_LONGLONG
typedef unsigned long long int uint_least64_t;
#endif
/* Fast types. */
/* Signed. */
typedef signed char int_fast8_t;
typedef int int_fast16_t;
typedef long int int_fast32_t;
#ifdef __SDCC_LONGLONG
typedef long long int int_fast64_t;
#endif
/* Unsigned. */
typedef unsigned char uint_fast8_t;
typedef unsigned int uint_fast16_t;
typedef unsigned long int uint_fast32_t;
#ifdef __SDCC_LONGLONG
typedef unsigned long long int uint_fast64_t;
#endif
#endif // __SPECIFIED_WIDTH_INTEGER_TYPES_DEFINED
// C2X 7.18.2 Endian
#define __STDC_ENDIAN_LITTLE__ 0
#define __STDC_ENDIAN_BIG__ 1
#if defined(__SDCC_hc08) || defined(__SDCC_s08) || defined(__SDCC_stm8)
#define __STDC_ENDIAN_NATIVE__ __STDC_ENDIAN_BIG__
#else
#define __STDC_ENDIAN_NATIVE__ __STDC_ENDIAN_LITTLE__
#endif
#if __SDCC_BITINT_MAXWIDTH >= 64
#define __typewidth(x) _Generic((x), \
unsigned _BitInt(1) : 1, \
signed _BitInt(2) : 2, \
unsigned _BitInt(2) : 2, \
signed _BitInt(3) : 3, \
unsigned _BitInt(3) : 3, \
signed _BitInt(4) : 4, \
unsigned _BitInt(4) : 4, \
signed _BitInt(5) : 5, \
unsigned _BitInt(5) : 5, \
signed _BitInt(6) : 6, \
unsigned _BitInt(7) : 7, \
signed _BitInt(8) : 8, \
unsigned _BitInt(9) : 9, \
signed _BitInt(10) : 10, \
unsigned _BitInt(10) : 10, \
signed _BitInt(11) : 11, \
unsigned _BitInt(11) : 11, \
signed _BitInt(12) : 12, \
unsigned _BitInt(12) : 12, \
signed _BitInt(13) : 13, \
unsigned _BitInt(13) : 13, \
signed _BitInt(14) : 14, \
unsigned _BitInt(14) : 14, \
signed _BitInt(15) : 15, \
unsigned _BitInt(15) : 15, \
signed _BitInt(16) : 16, \
unsigned _BitInt(16) : 16, \
signed _BitInt(17) : 17, \
unsigned _BitInt(17) : 17, \
signed _BitInt(18) : 18, \
unsigned _BitInt(18) : 18, \
signed _BitInt(19) : 19, \
unsigned _BitInt(19) : 19, \
signed _BitInt(20) : 20, \
unsigned _BitInt(20) : 20, \
signed _BitInt(21) : 21, \
unsigned _BitInt(21) : 21, \
signed _BitInt(22) : 22, \
unsigned _BitInt(22) : 22, \
signed _BitInt(23) : 23, \
unsigned _BitInt(23) : 23, \
signed _BitInt(24) : 24, \
unsigned _BitInt(24) : 24, \
signed _BitInt(25) : 25, \
unsigned _BitInt(25) : 25, \
signed _BitInt(26) : 26, \
unsigned _BitInt(26) : 26, \
signed _BitInt(27) : 27, \
unsigned _BitInt(27) : 27, \
signed _BitInt(28) : 28, \
unsigned _BitInt(28) : 28, \
signed _BitInt(29) : 29, \
unsigned _BitInt(29) : 29, \
signed _BitInt(30) : 30, \
unsigned _BitInt(30) : 30, \
signed _BitInt(31) : 31, \
unsigned _BitInt(31) : 31, \
signed _BitInt(32) : 32, \
unsigned _BitInt(32) : 32, \
signed _BitInt(33) : 33, \
unsigned _BitInt(33) : 33, \
signed _BitInt(34) : 34, \
unsigned _BitInt(34) : 34, \
signed _BitInt(35) : 35, \
unsigned _BitInt(35) : 35, \
signed _BitInt(36) : 36, \
unsigned _BitInt(36) : 36, \
signed _BitInt(37) : 37, \
unsigned _BitInt(37) : 37, \
signed _BitInt(38) : 38, \
unsigned _BitInt(38) : 38, \
signed _BitInt(39) : 39, \
unsigned _BitInt(39) : 39, \
signed _BitInt(40) : 40, \
unsigned _BitInt(40) : 40, \
signed _BitInt(41) : 41, \
unsigned _BitInt(41) : 41, \
signed _BitInt(42) : 42, \
unsigned _BitInt(42) : 42, \
signed _BitInt(43) : 43, \
unsigned _BitInt(43) : 43, \
signed _BitInt(44) : 44, \
unsigned _BitInt(44) : 44, \
signed _BitInt(45) : 45, \
unsigned _BitInt(45) : 45, \
signed _BitInt(46) : 46, \
unsigned _BitInt(46) : 46, \
signed _BitInt(47) : 47, \
unsigned _BitInt(47) : 47, \
signed _BitInt(48) : 48, \
unsigned _BitInt(48) : 48, \
signed _BitInt(49) : 49, \
unsigned _BitInt(49) : 49, \
signed _BitInt(50) : 50, \
unsigned _BitInt(50) : 50, \
signed _BitInt(51) : 51, \
unsigned _BitInt(51) : 51, \
signed _BitInt(52) : 52, \
unsigned _BitInt(52) : 52, \
signed _BitInt(53) : 53, \
unsigned _BitInt(53) : 53, \
signed _BitInt(54) : 54, \
unsigned _BitInt(54) : 54, \
signed _BitInt(55) : 55, \
unsigned _BitInt(55) : 55, \
signed _BitInt(56) : 16, \
unsigned _BitInt(56) : 56, \
signed _BitInt(57) : 57, \
unsigned _BitInt(57) : 57, \
signed _BitInt(58) : 58, \
unsigned _BitInt(58) : 58, \
signed _BitInt(59) : 59, \
unsigned _BitInt(59) : 59, \
signed _BitInt(60) : 60, \
unsigned _BitInt(60) : 60, \
signed _BitInt(61) : 61, \
unsigned _BitInt(61) : 61, \
signed _BitInt(62) : 62, \
unsigned _BitInt(62) : 62, \
signed _BitInt(63) : 63, \
unsigned _BitInt(63) : 63, \
default: (sizeof(x) * CHAR_BIT))
#else
#define __typewidth(x) (sizeof(x) * CHAR_BIT)
#endif
// C2X 7.18.3 Count Trailing Ones
int_fast8_t __stdc_count_leading_zeros(unsigned long long value, uint_fast8_t width); // Todo: Use _BitInt(8) here once all ports support it, so we avoid integer promotion for some cases.
#define stdc_count_leading_zeros(value) __stdc_count_leading_zeros((value), __typewidth(value))
#define stdc_count_leading_zerosuc(value) ((int)(stdc_count_leading_zeros((unsigned char)(value)))
#define stdc_count_leading_zerosus(value) ((int)(stdc_count_leading_zeros((unsigned short)(value)))
#define stdc_count_leading_zerosui(value) ((int)(stdc_count_leading_zeros((unsigned int)(value)))
#define stdc_count_leading_zerosul(value) ((int)(stdc_count_leading_zeros((unsigned long)(value)))
#define stdc_count_leading_zerosull(value) ((int)(stdc_count_leading_zeros((unsigned long long)(value)))
// C2X 7.18.4 Count Leading Ones
#define stdc_count_leading_ones(value) __stdc_count_leading_zeros(~(value), __typewidth(value))
#define stdc_count_leading_onesuc(value) ((int)(stdc_count_leading_ones((unsigned char)(value)))
#define stdc_count_leading_onesus(value) ((int)(stdc_count_leading_ones((unsigned short)(value)))
#define stdc_count_leading_onesui(value) ((int)(stdc_count_leading_ones((unsigned int)(value)))
#define stdc_count_leading_onesul(value) ((int)(stdc_count_leading_ones((unsigned long)(value)))
#define stdc_count_leading_onesull(value) ((int)(stdc_count_leading_ones((unsigned long long)(value)))
// C2X 7.18.6 Count Trailing Ones
int_fast8_t __stdc_count_trailing_onesull(unsigned long long value); // Todo: Use _BitInt(8) here once all ports support it, so we avoid integer promotion for some cases.
#define stdc_count_trailing_ones(value) __stdc_count_trailing_onesull(value) // Todo: Use some speed-optimized variants here later. Via _Generic or sizeof.
#define stdc_count_trailing_onesuc(value) ((int)(stdc_count_trailing_ones((unsigned char)(value)))
#define stdc_count_trailing_onesus(value) ((int)(stdc_count_trailing_ones((unsigned short)(value)))
#define stdc_count_trailing_onesui(value) ((int)(stdc_count_trailing_ones((unsigned int)(value)))
#define stdc_count_trailing_onesul(value) ((int)(stdc_count_trailing_ones((unsigned long)(value)))
#define stdc_count_trailing_onesull(value) ((int)(stdc_count_trailing_ones((unsigned long long)(value)))
// C2X 7.18.5 Count Trailing Zeros
#define stdc_count_trailing_zeros(value) stdc_count_trailing_ones((typeof(value))~(value))
#define stdc_count_trailing_zerosuc(value) ((int)(stdc_count_trailing_ones((unsigned char)(~(value))))
#define stdc_count_trailing_zerosus(value) ((int)(stdc_count_trailing_ones((unsigned short)(~(value))))
#define stdc_count_trailing_zerosui(value) ((int)(stdc_count_trailing_ones((unsigned int)(~(value))))
#define stdc_count_trailing_zerosul(value) ((int)(stdc_count_trailing_ones((unsigned long)(~(value))))
#define stdc_count_trailing_zerosull(value) ((int)(stdc_count_trailing_ones((unsigned long long)(~(value))))
// C2X 7.18.8 First Leading One
int_fast8_t __stdc_first_leading_one(unsigned long long value, uint_fast8_t width); // Todo: Use _BitInt(8) here once all ports support it, so we avoid integer promotion for some cases.
#define stdc_first_leading_one(value) __stdc_first_leading_one((value), __typewidth(value))
#define stdc_first_leading_oneuc(value) ((int)(stdc_first_leading_one((unsigned char)(~(value))))
#define stdc_first_leading_oneus(value) ((int)(stdc_first_leading_one((unsigned short)(~(value))))
#define stdc_first_leading_oneui(value) ((int)(stdc_first_leading_one((unsigned int)(~(value))))
#define stdc_first_leading_oneul(value) ((int)(stdc_first_leading_one((unsigned long)(~(value))))
#define stdc_first_leading_oneull(value) ((int)(stdc_first_leading_one((unsigned long long)(~(value))))
// C2X 7.18.7 First Leading Zero
#define stdc_first_leading_zero(value) __stdc_first_leading_one(~(value), __typewidth(value))
#define stdc_first_leading_zerouc(value) ((int)(stdc_first_leading_zero((unsigned char)(~(value))))
#define stdc_first_leading_zerous(value) ((int)(stdc_first_leading_zero((unsigned short)(~(value))))
#define stdc_first_leading_zeroui(value) ((int)(stdc_first_leading_zero((unsigned int)(~(value))))
#define stdc_first_leading_zeroul(value) ((int)(stdc_first_leading_zero((unsigned long)(~(value))))
#define stdc_first_leading_zeroull(value) ((int)(stdc_first_leading_zero((unsigned long long)(~(value))))
// C2X 7.18.10 First Trailing One
int_fast8_t __stdc_first_trailing_oneull(unsigned long long value); // Todo: Use _BitInt(8) here once all ports support it, so we avoid integer promotion for some cases.
#define stdc_first_trailing_one(value) __stdc_first_trailing_oneull(value) // Todo: Use some speed-optimized variants here later. Via _Generic or sizeof.
#define stdc_first_trailing_oneuc(value) ((int)(stdc_first_trailing_one((unsigned char)(value)))
#define stdc_first_trailing_oneus(value) ((int)(stdc_first_trailing_one((unsigned short)(value)))
#define stdc_first_trailing_oneui(value) ((int)(stdc_first_trailing_one((unsigned int)(value)))
#define stdc_first_trailing_oneul(value) ((int)(stdc_first_trailing_one((unsigned long)(value)))
#define stdc_first_trailing_oneull(value) ((int)(stdc_first_trailing_one((unsigned long long)(value)))
// C2X 7.18.9 First Trailing Zero
#define stdc_first_trailing_zero(value) __stdc_first_trailing_oneull((unsigned long long)~(value)) // Todo: Use some speed-optimized variants here later. Via _Generic or sizeof.
#define stdc_first_trailing_zerouc(value) ((int)(stdc_first_trailing_zero((unsigned char)(value)))
#define stdc_first_trailing_zerous(value) ((int)(stdc_first_trailing_zero((unsigned short)(value)))
#define stdc_first_trailing_zeroui(value) ((int)(stdc_first_trailing_zero((unsigned int)(value)))
#define stdc_first_trailing_zeroul(value) ((int)(stdc_first_trailing_zero((unsigned long)(value)))
#define stdc_first_trailing_zeroull(value) ((int)(stdc_first_trailing_zero((unsigned long long)(value)))
// C2X 7.18.11 Count Ones
int_fast8_t __stdc_count_onesull(unsigned long long value); // Todo: Use _BitInt(8) here once all ports support it, so we avoid integer promotion for some cases.
#define stdc_count_ones(value) __stdc_count_onesull(value) // Todo: Use some speed-optimized variants here later. Via _Generic or sizeof.
#define stdc_count_onesuc(value) ((int)(stdc_count_ones((unsigned char)(value)))
#define stdc_count_onesus(value) ((int)(stdc_count_ones((unsigned short)(value)))
#define stdc_count_onesui(value) ((int)(stdc_count_ones((unsigned int)(value)))
#define stdc_count_onesul(value) ((int)(stdc_count_ones((unsigned long)(value)))
#define stdc_count_onesull(value) ((int)(stdc_count_ones((unsigned long long)(value)))
// C2X 7.18.12 Count Zeros
#define stdc_count_zeros(value) stdc_count_ones((typeof(value))~(value))
#define stdc_count_zerosuc(value) ((int)(stdc_count_ones((unsigned char)(~(value))))
#define stdc_count_zerosus(value) ((int)(stdc_count_ones((unsigned short)(~(value))))
#define stdc_count_zerosui(value) ((int)(stdc_count_ones((unsigned int)(~(value))))
#define stdc_count_zerosul(value) ((int)(stdc_count_ones((unsigned long)(~(value))))
#define stdc_count_zerosull(value) ((int)(stdc_count_ones((unsigned long long)(~(value))))
// C2X 7.18.13 Single-bit Check
#define stdc_has_single_bit(value) ((_Bool)(stdc_count_ones(value) == 1))
#define stdc_has_single_bituc(value) stdc_has_single_bit((unsigned char)(value))
#define stdc_has_single_bitus(value) stdc_has_single_bit((unsigned short)(value))
#define stdc_has_single_bitui(value) stdc_has_single_bit((unsigned int)(value))
#define stdc_has_single_bitul(value) stdc_has_single_bit((unsigned long)(value))
#define stdc_has_single_bitull(value) stdc_has_single_bit((unsigned long long)(value))
// C2X 7.18.14 Bit Width
int_fast8_t __stdc_bit_widthull(unsigned long long value); // Todo: Use _BitInt(8) here once all ports support it, so we avoid integer promotion for some cases.
#define stdc_bit_width(value) __stdc_bit_widthull(value) // Todo: Use some speed-optimized variants here later. Via _Generic or sizeof.
#define stdc_bit_widthuc(value) ((int)(stdc_bit_width((unsigned char)(value)))
#define stdc_bit_widthus(value) ((int)(stdc_bit_width((unsigned short)(value)))
#define stdc_bit_widthui(value) ((int)(stdc_bit_width((unsigned int)(value)))
#define stdc_bit_widthul(value) ((int)(stdc_bit_width((unsigned long)(value)))
#define stdc_bit_widthull(value) ((int)(stdc_bit_width((unsigned long long)(value)))
// C2X 7.18.15 Bit Floor
#define stdc_bit_floor(value) ((typeof(value))(1ull << stdc_bit_width(value)) >> 1)
#define stdc_bit_flooruc(value) ((unsigned char)(1 << stdc_bit_width(value)((unsigned char)(value))) >> 1)
#define stdc_bit_floorus(value) ((unsigned short)(1 << stdc_bit_width((unsigned short)(value))) >> 1)
#define stdc_bit_floorui(value) (1u << stdc_bit_width((unsigned int)(value) >> 1)
#define stdc_bit_floorul(value) (1ul << stdc_bit_width((unsigned long)(value) >> 1)
#define stdc_bit_floorull(value) (1ull << stdc_bit_width((unsigned long long)(value) >> 1)
// C2X 7.18.16 Bit Ceiling
unsigned long long __stdc_bit_ceilull(unsigned long long value);
#define stdc_bit_ceil(value) ((typeof(value))(__stdc_bit_ceilull(value))) // Todo: Use some speed-optimized variants here later. Via _Generic or sizeof.
#define stdc_bit_ceiluc(value) (stdc_bit_ceil(value)((unsigned char)(value))))
#define stdc_bit_ceilus(value) (stdc_bit_ceil(value)((unsigned short)(value))))
#define stdc_bit_ceilui(value) (stdc_bit_ceil(value)((unsigned int)(value))))
#define stdc_bit_ceilul(value) (stdc_bit_ceil(value)((unsigned long)(value))))
#define stdc_bit_ceilull(value) (stdc_bit_ceil(value)((unsigned long long)(value))))
#endif
|
