mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
4ff3f20540
According to MSVC manual (*1), cl.exe can skip including a header file when that: - contains #pragma once, or - starts with #ifndef, or - starts with #if ! defined. GCC has a similar trick (*2), but it acts more stricter (e. g. there must be _no tokens_ outside of #ifndef...#endif). Sun C lacked #pragma once for a looong time. Oracle Developer Studio 12.5 finally implemented it, but we cannot assume such recent version. This changeset modifies header files so that each of them include strictly one #ifndef...#endif. I believe this is the most portable way to trigger compiler optimizations. [Bug #16770] *1: https://docs.microsoft.com/en-us/cpp/preprocessor/once *2: https://gcc.gnu.org/onlinedocs/cppinternals/Guard-Macros.html
205 lines
6.3 KiB
C++
205 lines
6.3 KiB
C++
#ifndef RUBY3_SPECIAL_CONSTS_H /*-*-C++-*-vi:se ft=cpp:*/
|
|
#define RUBY3_SPECIAL_CONSTS_H
|
|
/**
|
|
* @file
|
|
* @author Ruby developers <ruby-core@ruby-lang.org>
|
|
* @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.
|
|
* @warning Symbols prefixed with either `RUBY3` or `ruby3` are
|
|
* implementation details. Don't take them as canon. They could
|
|
* rapidly appear then vanish. The name (path) of this header file
|
|
* is also an implementation detail. Do not expect it to persist
|
|
* at the place it is now. Developers are free to move it anywhere
|
|
* anytime at will.
|
|
* @note To ruby-core: remember that this header can be possibly
|
|
* recursively included from extension libraries written in C++.
|
|
* Do not expect for instance `__VA_ARGS__` is always available.
|
|
* We assume C99 for ruby itself but we don't assume languages of
|
|
* extension libraries. They could be written in C++98.
|
|
* @brief Defines enum ::ruby_special_consts.
|
|
* @see Sasada, K., "A Lighweight Representation of Floting-Point
|
|
* Numbers on Ruby Interpreter", in proceedings of 10th JSSST
|
|
* SIGPPL Workshop on Programming and Programming Languages
|
|
* (PPL2008), pp. 9-16, 2008.
|
|
*/
|
|
#include "ruby/3/attr/artificial.h"
|
|
#include "ruby/3/attr/const.h"
|
|
#include "ruby/3/attr/constexpr.h"
|
|
#include "ruby/3/attr/enum_extensibility.h"
|
|
#include "ruby/3/stdbool.h"
|
|
#include "ruby/3/value.h"
|
|
|
|
#if defined(USE_FLONUM)
|
|
# /* Take that. */
|
|
#elif SIZEOF_VALUE >= SIZEOF_DOUBLE
|
|
# define USE_FLONUM 1
|
|
#else
|
|
# define USE_FLONUM 0
|
|
#endif
|
|
|
|
#define RTEST RB_TEST
|
|
|
|
#define FIXNUM_P RB_FIXNUM_P
|
|
#define IMMEDIATE_P RB_IMMEDIATE_P
|
|
#define NIL_P RB_NIL_P
|
|
#define SPECIAL_CONST_P RB_SPECIAL_CONST_P
|
|
#define STATIC_SYM_P RB_STATIC_SYM_P
|
|
|
|
#define Qfalse RUBY_Qfalse
|
|
#define Qnil RUBY_Qnil
|
|
#define Qtrue RUBY_Qtrue
|
|
#define Qundef RUBY_Qundef
|
|
|
|
/** @cond INTERNAL_MACRO */
|
|
#define FIXNUM_FLAG RUBY_FIXNUM_FLAG
|
|
#define FLONUM_FLAG RUBY_FLONUM_FLAG
|
|
#define FLONUM_MASK RUBY_FLONUM_MASK
|
|
#define FLONUM_P RB_FLONUM_P
|
|
#define IMMEDIATE_MASK RUBY_IMMEDIATE_MASK
|
|
#define SYMBOL_FLAG RUBY_SYMBOL_FLAG
|
|
|
|
#define RB_FIXNUM_P RB_FIXNUM_P
|
|
#define RB_FLONUM_P RB_FLONUM_P
|
|
#define RB_IMMEDIATE_P RB_IMMEDIATE_P
|
|
#define RB_NIL_P RB_NIL_P
|
|
#define RB_SPECIAL_CONST_P RB_SPECIAL_CONST_P
|
|
#define RB_STATIC_SYM_P RB_STATIC_SYM_P
|
|
#define RB_TEST RB_TEST
|
|
/** @endcond */
|
|
|
|
/** special constants - i.e. non-zero and non-fixnum constants */
|
|
enum
|
|
RUBY3_ATTR_ENUM_EXTENSIBILITY(closed)
|
|
ruby_special_consts {
|
|
#if USE_FLONUM
|
|
RUBY_Qfalse = 0x00, /* ...0000 0000 */
|
|
RUBY_Qtrue = 0x14, /* ...0001 0100 */
|
|
RUBY_Qnil = 0x08, /* ...0000 1000 */
|
|
RUBY_Qundef = 0x34, /* ...0011 0100 */
|
|
RUBY_IMMEDIATE_MASK = 0x07, /* ...0000 0111 */
|
|
RUBY_FIXNUM_FLAG = 0x01, /* ...xxxx xxx1 */
|
|
RUBY_FLONUM_MASK = 0x03, /* ...0000 0011 */
|
|
RUBY_FLONUM_FLAG = 0x02, /* ...xxxx xx10 */
|
|
RUBY_SYMBOL_FLAG = 0x0c /* ...xxxx 1100 */
|
|
#else
|
|
RUBY_Qfalse = 0x00, /* ...0000 0000 */
|
|
RUBY_Qtrue = 0x02, /* ...0000 0010 */
|
|
RUBY_Qnil = 0x04, /* ...0000 0100 */
|
|
RUBY_Qundef = 0x06, /* ...0000 0110 */
|
|
RUBY_IMMEDIATE_MASK = 0x03, /* ...0000 0011 */
|
|
RUBY_FIXNUM_FLAG = 0x01, /* ...xxxx xxx1 */
|
|
RUBY_FLONUM_MASK = 0x00, /* any values ANDed with FLONUM_MASK cannot be FLONUM_FLAG */
|
|
RUBY_FLONUM_FLAG = 0x02, /* ...0000 0010 */
|
|
RUBY_SYMBOL_FLAG = 0x0e /* ...0000 1110 */
|
|
#endif
|
|
};
|
|
|
|
/** Least significant 8 bits are reserved. */
|
|
enum { RUBY_SPECIAL_SHIFT = 8 };
|
|
|
|
RUBY3_ATTR_CONST()
|
|
RUBY3_ATTR_CONSTEXPR(CXX11)
|
|
RUBY3_ATTR_ARTIFICIAL()
|
|
/*
|
|
* :NOTE: ruby3_test HAS to be `__attribute__((const))` in order for clang to
|
|
* properly deduce `__builtin_assume()`.
|
|
*/
|
|
static inline bool
|
|
RB_TEST(VALUE obj)
|
|
{
|
|
/*
|
|
* Qfalse: ....0000 0000
|
|
* Qnil: ....0000 1000
|
|
* ~Qnil: ....1111 0111
|
|
* v ....xxxx xxxx
|
|
* ----------------------------
|
|
* RTEST(v) ....xxxx 0xxx
|
|
*
|
|
* RTEST(v) can be 0 if and only if (v == Qfalse || v == Qnil).
|
|
*/
|
|
return obj & ~RUBY_Qnil;
|
|
}
|
|
|
|
RUBY3_ATTR_CONST()
|
|
RUBY3_ATTR_CONSTEXPR(CXX11)
|
|
RUBY3_ATTR_ARTIFICIAL()
|
|
static inline bool
|
|
RB_NIL_P(VALUE obj)
|
|
{
|
|
return obj == RUBY_Qnil;
|
|
}
|
|
|
|
RUBY3_ATTR_CONST()
|
|
RUBY3_ATTR_CONSTEXPR(CXX11)
|
|
RUBY3_ATTR_ARTIFICIAL()
|
|
static inline bool
|
|
RB_FIXNUM_P(VALUE obj)
|
|
{
|
|
return obj & RUBY_FIXNUM_FLAG;
|
|
}
|
|
|
|
RUBY3_ATTR_CONST()
|
|
RUBY3_ATTR_CONSTEXPR(CXX14)
|
|
RUBY3_ATTR_ARTIFICIAL()
|
|
static inline bool
|
|
RB_STATIC_SYM_P(VALUE obj)
|
|
{
|
|
RUBY3_ATTR_CONSTEXPR(CXX14)
|
|
const VALUE mask = ~(RUBY3_VALUE_FULL << RUBY_SPECIAL_SHIFT);
|
|
return (obj & mask) == RUBY_SYMBOL_FLAG;
|
|
}
|
|
|
|
RUBY3_ATTR_CONST()
|
|
RUBY3_ATTR_CONSTEXPR(CXX11)
|
|
RUBY3_ATTR_ARTIFICIAL()
|
|
static inline bool
|
|
RB_FLONUM_P(VALUE obj)
|
|
{
|
|
#if USE_FLONUM
|
|
return (obj & RUBY_FLONUM_MASK) == RUBY_FLONUM_FLAG;
|
|
#else
|
|
return false;
|
|
#endif
|
|
}
|
|
|
|
RUBY3_ATTR_CONST()
|
|
RUBY3_ATTR_CONSTEXPR(CXX11)
|
|
RUBY3_ATTR_ARTIFICIAL()
|
|
static inline bool
|
|
RB_IMMEDIATE_P(VALUE obj)
|
|
{
|
|
return obj & RUBY_IMMEDIATE_MASK;
|
|
}
|
|
|
|
RUBY3_ATTR_CONST()
|
|
RUBY3_ATTR_CONSTEXPR(CXX11)
|
|
RUBY3_ATTR_ARTIFICIAL()
|
|
static inline bool
|
|
RB_SPECIAL_CONST_P(VALUE obj)
|
|
{
|
|
return RB_IMMEDIATE_P(obj) || ! RB_TEST(obj);
|
|
}
|
|
|
|
RUBY3_ATTR_CONST()
|
|
RUBY3_ATTR_CONSTEXPR(CXX11)
|
|
/* This function is to mimic old rb_special_const_p macro but have anyone
|
|
* actually used its return value? Wasn't it just something no one needed? */
|
|
static inline VALUE
|
|
rb_special_const_p(VALUE obj)
|
|
{
|
|
return RB_SPECIAL_CONST_P(obj) * RUBY_Qtrue;
|
|
}
|
|
|
|
/**
|
|
* @cond INTERNAL_MACRO
|
|
* See [ruby-dev:27513] for the following macros.
|
|
*/
|
|
#define RUBY_Qfalse RUBY3_CAST((VALUE)RUBY_Qfalse)
|
|
#define RUBY_Qtrue RUBY3_CAST((VALUE)RUBY_Qtrue)
|
|
#define RUBY_Qnil RUBY3_CAST((VALUE)RUBY_Qnil)
|
|
#define RUBY_Qundef RUBY3_CAST((VALUE)RUBY_Qundef)
|
|
/** @endcond */
|
|
|
|
#endif /* RUBY3_SPECIAL_CONSTS_H */
|