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
|
#ifndef INTERNAL_COMPILERS_H /* -*- C -*- */
#define INTERNAL_COMPILERS_H
/**
* @file
* @brief Internal header absorbing C compipler differences.
* @author \@shyouhei
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
*/
#include "ruby/defines.h" /* for GCC_VERSION_SINCE */
#ifdef _MSC_VER
# define MSC_VERSION_SINCE(_) (_MSC_VER >= _)
# define MSC_VERSION_BEFORE(_) (_MSC_VER < _)
#else
# define MSC_VERSION_SINCE(_) 0
# define MSC_VERSION_BEFORE(_) 0
#endif
#ifndef __has_attribute
# define __has_attribute(...) __has_attribute_##__VA_ARGS__
# /* GCC <= 4 lacks __has_attribute predefined macro, while has attributes
# * themselves. We can simulate the macro like the following: */
# define __has_attribute_aligned GCC_VERSION_SINCE(0, 0, 0)
# define __has_attribute_alloc_size GCC_VERSION_SINCE(4, 3, 0)
# define __has_attribute_artificial GCC_VERSION_SINCE(4, 3, 0)
# define __has_attribute_always_inline GCC_VERSION_SINCE(3, 1, 0)
# define __has_attribute_cdecl GCC_VERSION_SINCE(0, 0, 0)
# define __has_attribute_cold GCC_VERSION_SINCE(4, 3, 0)
# define __has_attribute_const GCC_VERSION_SINCE(2, 6, 0)
# define __has_attribute_deprecated GCC_VERSION_SINCE(3, 1, 0)
# define __has_attribute_dllexport GCC_VERSION_SINCE(0, 0, 0)
# define __has_attribute_dllimport GCC_VERSION_SINCE(0, 0, 0)
# define __has_attribute_error GCC_VERSION_SINCE(4, 3, 0)
# define __has_attribute_format GCC_VERSION_SINCE(0, 0, 0)
# define __has_attribute_hot GCC_VERSION_SINCE(4, 3, 0)
# define __has_attribute_leaf GCC_VERSION_SINCE(4, 6, 0)
# define __has_attribute_malloc GCC_VERSION_SINCE(3, 0, 0)
# define __has_attribute_no_address_safety_analysis GCC_VERSION_SINCE(4, 8, 0)
# define __has_attribute_no_sanitize_address GCC_VERSION_SINCE(4, 8, 0)
# define __has_attribute_no_sanitize_undefined GCC_VERSION_SINCE(4, 9, 0)
# define __has_attribute_noinline GCC_VERSION_SINCE(3, 1, 0)
# define __has_attribute_nonnull GCC_VERSION_SINCE(3, 3, 0)
# define __has_attribute_noreturn GCC_VERSION_SINCE(2, 5, 0)
# define __has_attribute_nothrow GCC_VERSION_SINCE(3, 3, 0)
# define __has_attribute_pure GCC_VERSION_SINCE(2, 96, 0)
# define __has_attribute_returns_nonnull GCC_VERSION_SINCE(4, 9, 0)
# define __has_attribute_returns_twice GCC_VERSION_SINCE(4, 1, 0)
# define __has_attribute_stdcall GCC_VERSION_SINCE(0, 0, 0)
# define __has_attribute_unused GCC_VERSION_SINCE(0, 0, 0)
# define __has_attribute_visibility GCC_VERSION_SINCE(3, 3, 0)
# define __has_attribute_visibility GCC_VERSION_SINCE(3, 3, 0)
# define __has_attribute_warn_unused_result GCC_VERSION_SINCE(3, 4, 0)
# define __has_attribute_warning GCC_VERSION_SINCE(4, 3, 0)
# define __has_attribute_weak GCC_VERSION_SINCE(0, 0, 0)
# /* Note that 0,0,0 might be inaccurate. */
#endif
#ifndef __has_c_attribute
# /* As of writing everything that lacks __has_c_attribute also completely
# * lacks C2x attributes as well. Might change in future? */
# define __has_c_attribute(...) 0
#endif
#ifndef __has_declspec_attribute
# define __has_declspec_attribute(...) __has_declspec_attribute_##__VA_ARGS__
# define __has_declspec_attribute_align MSC_VERSION_SINCE( 800)
# define __has_declspec_attribute_deprecated MSC_VERSION_SINCE(1300)
# define __has_declspec_attribute_dllexport MSC_VERSION_SINCE( 800)
# define __has_declspec_attribute_dllimport MSC_VERSION_SINCE( 800)
# define __has_declspec_attribute_noalias MSC_VERSION_SINCE( 800)
# define __has_declspec_attribute_noinline MSC_VERSION_SINCE(1300)
# define __has_declspec_attribute_noreturn MSC_VERSION_SINCE(1100)
# define __has_declspec_attribute_nothrow MSC_VERSION_SINCE( 800)
# define __has_declspec_attribute_restrict MSC_VERSION_SINCE( 800)
# /* Note that 800 might be inaccurate. */
#endif
#ifndef __has_builtin
# /* :FIXME: Historically GCC has had tons of builtins, but it implemented
# * __has_builtin only since GCC 10. This section can be made more
# * granular. */
# /* https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66970 */
# define __has_builtin(...) GCC_VERSION_SINCE(0, 0, 0)
#endif
#ifndef __has_feature
# define __has_feature(...) 0
#endif
#ifndef __has_extension
# /* Pre-3.0 clang had __has_feature but not __has_extension. */
# define __has_extension __has_feature
#endif
#ifndef __has_warning
# /* We cannot simulate __has_warning like the ones above, because it takes
# * string liteals (we can stringize a macro arugment but there is no such
# * thing like an unquote of strrings). */
# define __has_warning(...) 0
#endif
#ifndef __GNUC__
# define __extension__ /* void */
#endif
#ifndef MAYBE_UNUSED
# define MAYBE_UNUSED(x) x
#endif
#ifndef WARN_UNUSED_RESULT
# define WARN_UNUSED_RESULT(x) x
#endif
#define RB_OBJ_BUILTIN_TYPE(obj) rb_obj_builtin_type(obj)
#define OBJ_BUILTIN_TYPE(obj) RB_OBJ_BUILTIN_TYPE(obj)
#ifdef __GNUC__
#define rb_obj_builtin_type(obj) \
__extension__({ \
VALUE arg_obj = (obj); \
RB_SPECIAL_CONST_P(arg_obj) ? -1 : \
RB_BUILTIN_TYPE(arg_obj); \
})
#else
static inline int
rb_obj_builtin_type(VALUE obj)
{
return RB_SPECIAL_CONST_P(obj) ? -1 :
RB_BUILTIN_TYPE(obj);
}
#endif
/* A macro for defining a flexible array, like: VALUE ary[FLEX_ARY_LEN]; */
#if defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L)
# define FLEX_ARY_LEN /* VALUE ary[]; */
#elif defined(__GNUC__) && !defined(__STRICT_ANSI__)
# define FLEX_ARY_LEN 0 /* VALUE ary[0]; */
#else
# define FLEX_ARY_LEN 1 /* VALUE ary[1]; */
#endif
/*
* For declaring bitfields out of non-unsigned int types:
* struct date {
* BITFIELD(enum months, month, 4);
* ...
* };
*/
#if defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L)
# define BITFIELD(type, name, size) type name : size
#else
# define BITFIELD(type, name, size) unsigned int name : size
#endif
#if defined(USE_UNALIGNED_MEMBER_ACCESS) && USE_UNALIGNED_MEMBER_ACCESS && \
(defined(__clang__) || GCC_VERSION_SINCE(9, 0, 0))
#include "warnings.h"
# define UNALIGNED_MEMBER_ACCESS(expr) __extension__({ \
COMPILER_WARNING_PUSH; \
COMPILER_WARNING_IGNORED(-Waddress-of-packed-member); \
typeof(expr) unaligned_member_access_result = (expr); \
COMPILER_WARNING_POP; \
unaligned_member_access_result; \
})
#else
# define UNALIGNED_MEMBER_ACCESS(expr) expr
#endif
#define UNALIGNED_MEMBER_PTR(ptr, mem) UNALIGNED_MEMBER_ACCESS(&(ptr)->mem)
#undef RB_OBJ_WRITE
#define RB_OBJ_WRITE(a, slot, b) UNALIGNED_MEMBER_ACCESS(rb_obj_write((VALUE)(a), (VALUE *)(slot), (VALUE)(b), __FILE__, __LINE__))
#endif /* INTERNAL_COMPILERS_H */
|