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
|
/*-
* MirBSD ISO C compiler toolkit (macros for mbsdint.h and others)
*
* © mirabilos Ⓕ CC0 or The MirOS Licence (MirBSD)
*/
#ifndef SYSKERN_MBSDCC_H
#define SYSKERN_MBSDCC_H "$MirOS: src/bin/mksh/mbsdcc.h,v 1.11 2025/02/11 03:56:07 tg Exp $"
/*
* Note: this header uses the SIZE_MAX (or similar) definitions
* from <basetsd.h> or <limits.h> if present, so either include
* these before this header or include "mbsdint.h", which fixes
* up the corresponding definition.
*
* Place the inclusion of this after <sys/cdefs.h> or something
* that pulls it, for example <sys/types.h>.
*
* Furthermore, either include <stdlib.h> for abort(3), or pro‐
* vide an mbccABEND macro (preferred).
*/
#if !defined(_KERNEL) && !defined(_STANDALONE)
#include <stddef.h>
#else
#include <sys/stddef.h>
#endif
/* mbccABEND should be provided by the user, called by mbsd*.h only */
#ifndef mbccABEND
#define mbccABEND(reasonstr) abort()
#endif
/* monkey-patch known-bad offsetof versions */
#if (defined(__KLIBC__) || defined(__dietlibc__)) && \
((defined(__GNUC__) && (__GNUC__ > 3)) || defined(__NWCC__))
#undef offsetof
#define offsetof(struc,memb) __builtin_offsetof(struc, memb)
#endif
/* should be defined by <sys/cdefs.h> already */
#ifndef __predict_true
#if defined(__GNUC__) && (__GNUC__ >= 3) /* 2.96, but keep it simple here */
#define __predict_true(exp) __builtin_expect(!!(exp), 1)
#define __predict_false(exp) __builtin_expect(!!(exp), 0)
#else
#define __predict_true(exp) (!!(exp))
#define __predict_false(exp) (!!(exp))
#endif /* !GCC 3.x */
#endif /* ndef(__predict_true) */
/* mbsdint.h replaces this with mbiSIZE_MAX */
#undef mbccSIZE_MAX
#if defined(SIZE_MAX)
#define mbccSIZE_MAX ((size_t)(SIZE_MAX)
#elif defined(SIZE_T_MAX)
#define mbccSIZE_MAX ((size_t)(SIZE_T_MAX)
#elif defined(MAXSIZE_T)
#define mbccSIZE_MAX ((size_t)(MAXSIZE_T)
#else
#define mbccSIZE_MAX ((size_t)~(size_t)0)
#endif
#ifdef __cplusplus
#define mbcextern extern "C"
/* for headers (BSD __BEGIN_DECLS/__END_DECLS) */
#define mbcextern_beg extern "C" {
#define mbcextern_end }
#else
#define mbcextern extern
#define mbcextern_beg
#define mbcextern_end
#endif
/* compiler warning pragmas, NOP for other compilers */
#ifdef _MSC_VER
/* push, suppress space-separated listed warning numbers */
#define mbmscWd(d) __pragma(warning(push)) \
__pragma(warning(disable: d))
/* suppress for only the next line */
#define mbmscWs(d) __pragma(warning(suppress: d))
/* pop from mbmscWd */
#define mbmscWpop __pragma(warning(pop))
#else
#define mbmscWd(d)
#define mbmscWs(d)
#define mbmscWpop
#endif
/* in-expression compile-time check evaluating to 0 */
#ifdef __cplusplus
template<bool> struct mbccChkExpr_sa;
template<> struct mbccChkExpr_sa<true> { typedef int Type; };
#define mbccChkExpr(test) (static_cast<mbccChkExpr_sa<!!(0+(test))>::Type>(0))
#else
#define mbccChkExpr(test) mbmscWs(4116) \
(sizeof(struct { unsigned int (mbccChkExpr):((0+(test)) ? 1 : -1); }) * 0)
#endif
/* ensure value x is a constant expression */
#ifdef __cplusplus
template<bool,bool> struct mbccCEX_sa;
template<> struct mbccCEX_sa<true,false> { typedef int Type; };
template<> struct mbccCEX_sa<false,true> { typedef int Type; };
#define mbccCEX(x) (static_cast<mbccCEX_sa<!!(0+(x)), !(0+(x))>::Type>(0) + (x))
#else
#define mbccCEX(x) mbmscWs(4116) \
(sizeof(struct { unsigned int (mbccCEX):(((0+(x)) && 1) + 1); }) * 0 + (x))
#endif
/* flexible array member */
#if defined(MBSDCC_H_NO_FAM)
#define mbccFAMslot(type,memb) type memb[1] mbmscWs(4820)
#elif defined(__cplusplus)
#ifdef __cpp_flexible_array_members
#define mbccFAMslot(type,memb) type memb[]
#elif defined(__GNUC__) || defined(__clang__) || defined(_MSC_VER)
#define mbccFAMslot(type,memb) type memb[0] mbmscWs(4200 4820)
#else
#define mbccFAMslot(type,memb) type memb[1] mbmscWs(4820)
#endif
#elif (defined(__STDC_VERSION__) && ((__STDC_VERSION__) >= 199901L))
#define mbccFAMslot(type,memb) type memb[]
#elif defined(__GNUC__)
#define mbccFAMslot(type,memb) type memb[0] mbmscWs(4200 4820)
#else
#define mbccFAMslot(type,memb) type memb[1] mbmscWs(4820) /* SOL */
#endif
#define mbccFAMsz_i(t,memb,sz) /*private*/ (size_t)(offsetof(t, memb) + (size_t)sz)
/* compile-time constant */
#define mbccFAMSZ(struc,memb,sz) ((size_t)( \
mbccChkExpr(mbccSIZE_MAX - sizeof(struc) > mbccCEX((size_t)(sz))) + \
(mbccFAMsz_i(struc, memb, (sz)) > sizeof(struc) ? \
mbccFAMsz_i(struc, memb, (sz)) : sizeof(struc))))
/* run-time */
#define mbccFAMsz(struc,memb,sz) ((size_t)( \
!(mbccSIZE_MAX - sizeof(struc) > (size_t)(sz)) ? \
(mbccABEND("mbccFAMsz: " mbccS(sz) " too large for " mbccS(struc) "." mbccS(memb)), 0) : \
(mbccFAMsz_i(struc, memb, (sz)) > sizeof(struc) ? \
mbccFAMsz_i(struc, memb, (sz)) : sizeof(struc))))
/* example:
*
* struct s {
* int type;
* mbccFAMslot(char, label); // like char label[…];
* };
* struct t {
* int count;
* mbccFAMslot(time_t, value);
* };
* union fixed_s {
* struct s s;
* char storage[mbccFAMSZ(struct s, label, 28)];
* };
* struct s *sp = malloc(mbccFAMsz(struct s, label, strlen(labelvar) + 1U));
* struct t *tp = malloc(mbccFAMsz(struct t, value, sizeof(time_t[cnt])));
* tp->count = cnt;
* struct s *np = malloc(mbccFAMSZ(struct s, label, sizeof("myname")));
* memcpy(np->label, "myname", sizeof("myname"));
* static union fixed_s preallocated;
* preallocated.s.label[0] = '\0';
* somefunc((struct s *)&preallocated);
*/
/* field sizeof */
#if defined(__cplusplus)
/* TODO: add better way on CFrustFrust once it has one */
#define mbccFSZ(struc,memb) (sizeof(((struc *)0)->memb))
#elif (defined(__STDC_VERSION__) && ((__STDC_VERSION__) >= 199901L))
#define mbccFSZ(struc,memb) (sizeof(((struc){0}).memb))
#else
#define mbccFSZ(struc,memb) (sizeof(((struc *)0)->memb))
#endif
/* stringification with expansion */
#define mbccS(x) #x
#define mbccS2(x) mbccS(x)
/* compile-time assertions */
#undef mbccCTA
#if defined(__WATCOMC__) && !defined(__WATCOM_CPLUSPLUS__)
/* “Comparison result always 0” */
#define mbccCTA_wb _Pragma("warning 124 5")
/*XXX no pop so set to visible info */
#define mbccCTA_we _Pragma("warning 124 4")
#else
#define mbccCTA_wb /* nothing */
#define mbccCTA_we /* nothing */
#endif
#if defined(__cplusplus)
#ifdef __cpp_static_assert
#define mbccCTA(fldn,cond) static_assert(cond, mbccS(fldn))
#endif
#elif (defined(__STDC_VERSION__) && ((__STDC_VERSION__) >= 202311L))
#define mbccCTA(fldn,cond) static_assert(cond, mbccS(fldn))
#elif (defined(__STDC_VERSION__) && ((__STDC_VERSION__) >= 201112L))
#define mbccCTA(fldn,cond) _Static_assert(cond, mbccS(fldn))
#elif defined(__GNUC__) && \
((__GNUC__ > 4) || (__GNUC__ == 4 && __GNUC_MINOR__ >= 6))
#define mbccCTA(fldn,cond) __extension__ _Static_assert(cond, mbccS(fldn))
#endif
#ifndef mbccCTA
/* single assertion for macros (with fldn prefixed, cond parenthesised) */
#define mbccCTA(fldn,cond) unsigned int fldn:(cond ? 1 : -1)
/* begin/end assertion block */
#define mbCTA_BEG(name) struct ctassert_ ## name { mbccCTA_wb \
int _ctabeg /* plus user semicolon */
#define mbCTA_END(name) int _ctaend; \
}; \
struct ctassert2 ## name { \
char t[sizeof(struct ctassert_ ## name) > 1U ? 1 : -1]; \
mbccCTA_we } /* semicolon provided by user */
#else
/* nothing, but syntax-check equally to manual compile-time assert macro */
#define mbCTA_BEG(name) struct ctassert_ ## name { mbccCTA_wb \
char t[2]; \
} /* semicolon provided by user */
#define mbCTA_END(name) struct ctassert2 ## name { \
char t[sizeof(struct ctassert_ ## name) > 1U ? 1 : -1]; \
mbccCTA_we } /* semicolon provided by user */
#endif
/* single assertion */
#define mbCTA(name,cond) mbccCTA(cta_ ## name, (cond))
/* nil pointer constant */
#if (defined(__cplusplus) && (__cplusplus >= 201103L)) || \
(defined(__STDC_VERSION__) && ((__STDC_VERSION__) >= 202311L))
#define mbnil nullptr
#elif defined(__GNUG__)
#define mbnil __null
#elif defined(__cplusplus)
#define mbnil (size_t)0UL /* wtf, why? */
#else
#define mbnil (void *)0UL
#endif
/* præfix to avoid -Wunused-result when it really cannot be helped */
#ifdef _FORTIFY_SOURCE
/* workaround via https://stackoverflow.com/a/64407070/2171120 */
#define SHIKATANAI (void)!
#else
#define SHIKATANAI (void)
#endif
#endif /* !SYSKERN_MBSDCC_H */
|
