mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
64ec438b5b
Improving readability by converting some macros into inline functions. Also improved support for recent x86_64 processors, which have better instructions for the purposes.
247 lines
11 KiB
C
247 lines
11 KiB
C
#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(...) __has_builtin_##__VA_ARGS__
|
|
# define __has_builtin____builtin_bswap16 GCC_VERSION_SINCE(4, 8, 0) /* http://gcc.gnu.org/bugzilla/show_bug.cgi?id=52624 */
|
|
# define __has_builtin____builtin_bswap32 GCC_VERSION_SINCE(3, 6, 0)
|
|
# define __has_builtin____builtin_bswap64 GCC_VERSION_SINCE(3, 6, 0)
|
|
# define __has_builtin____builtin_clz GCC_VERSION_SINCE(3, 6, 0)
|
|
# define __has_builtin____builtin_clzl GCC_VERSION_SINCE(3, 6, 0)
|
|
# define __has_builtin____builtin_clzll GCC_VERSION_SINCE(3, 6, 0)
|
|
# define __has_builtin____builtin_ctz GCC_VERSION_SINCE(3, 6, 0)
|
|
# define __has_builtin____builtin_ctzl GCC_VERSION_SINCE(3, 6, 0)
|
|
# define __has_builtin____builtin_ctzll GCC_VERSION_SINCE(3, 6, 0)
|
|
# define __has_builtin____builtin_mul_overflow GCC_VERSION_SINCE(5, 0, 0)
|
|
# define __has_builtin____builtin_mul_overflow_p GCC_VERSION_SINCE(7, 0, 0)
|
|
# define __has_builtin____builtin_popcount GCC_VERSION_SINCE(3, 6, 0)
|
|
# define __has_builtin____builtin_popcountl GCC_VERSION_SINCE(3, 6, 0)
|
|
# define __has_builtin____builtin_popcountll GCC_VERSION_SINCE(3, 6, 0)
|
|
# /* Take config.h definition when available */
|
|
# ifdef HAVE_BUILTIN____BUILTIN_BSWAP16
|
|
# undef __has_builtin____builtin_bswap16
|
|
# define __has_builtin____builtin_bswap16 HAVE_BUILTIN____BUILTIN_BSWAP16
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_BSWAP32
|
|
# undef __has_builtin____builtin_bswap32
|
|
# define __has_builtin____builtin_bswap16 HAVE_BUILTIN____BUILTIN_BSWAP32
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_BSWAP64
|
|
# undef __has_builtin____builtin_bswap64
|
|
# define __has_builtin____builtin_bswap64 HAVE_BUILTIN____BUILTIN_BSWAP64
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_CLZ
|
|
# undef __has_builtin____builtin_clz
|
|
# define __has_builtin____builtin_clz HAVE_BUILTIN____BUILTIN_CLZ
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_CLZL
|
|
# undef __has_builtin____builtin_clzl
|
|
# define __has_builtin____builtin_clzl HAVE_BUILTIN____BUILTIN_CLZL
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_CLZLL
|
|
# undef __has_builtin____builtin_clzll
|
|
# define __has_builtin____builtin_clzll HAVE_BUILTIN____BUILTIN_CLZLL
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_CTZ
|
|
# undef __has_builtin____builtin_ctz
|
|
# define __has_builtin____builtin_ctz HAVE_BUILTIN____BUILTIN_CTZ
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_CTZL
|
|
# undef __has_builtin____builtin_ctzl
|
|
# define __has_builtin____builtin_ctzl HAVE_BUILTIN____BUILTIN_CTZL
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_CTZLL
|
|
# undef __has_builtin____builtin_ctzll
|
|
# define __has_builtin____builtin_ctzll HAVE_BUILTIN____BUILTIN_CTZLL
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_MUL_OVERFLOW
|
|
# undef __has_builtin____builtin_mul_overflow
|
|
# define __has_builtin____builtin_mul_overflow HAVE_BUILTIN____BUILTIN_MUL_OVERFLOW
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_MUL_OVERFLOW_P
|
|
# undef __has_builtin____builtin_mul_overflow_p
|
|
# define __has_builtin____builtin_mul_overflow_p HAVE_BUILTIN____BUILTIN_MUL_OVERFLOW_P
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_POPCOUNT
|
|
# undef __has_builtin____builtin_popcount
|
|
# define __has_builtin____builtin_popcount HAVE_BUILTIN____BUILTIN_POPCOUNT
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_POPCOUNTL
|
|
# undef __has_builtin____builtin_popcountl
|
|
# define __has_builtin____builtin_popcountl HAVE_BUILTIN____BUILTIN_POPCOUNTL
|
|
# endif
|
|
# ifdef HAVE_BUILTIN____BUILTIN_POPCOUNTLL
|
|
# undef __has_builtin____builtin_popcountll
|
|
# define __has_builtin____builtin_popcountll HAVE_BUILTIN____BUILTIN_POPCOUNTLL
|
|
# endif
|
|
#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 */
|