From 9e75488ac81f2e2f39336f34bd9c5360fdbdddb7 Mon Sep 17 00:00:00 2001 From: nobu Date: Fri, 28 Oct 2016 06:58:19 +0000 Subject: internal.h: RB_OBJ_BUILTIN_TYPE * internal.h (RB_OBJ_BUILTIN_TYPE): special-const safe BUILTIN_TYPE. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@56510 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- internal.h | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'internal.h') diff --git a/internal.h b/internal.h index 116654ef91..c7e80aa978 100644 --- a/internal.h +++ b/internal.h @@ -1682,6 +1682,24 @@ do { \ } \ } while (0) +#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 + #if defined(__cplusplus) #if 0 { /* satisfy cc-mode */ -- cgit v1.2.3