From 902dd6380317e73b7dc99b64e04a75ac47fa5db0 Mon Sep 17 00:00:00 2001
From: Yukihiro Matz Matsumoto <matz@ruby-lang.org>
Date: Sun, 4 Nov 2012 05:15:22 +0900
Subject: remove FL_XXX macros

---
 include/mruby/value.h | 18 ++----------------
 src/array.c           |  2 +-
 src/etc.c             |  4 ++--
 src/gc.c              |  2 +-
 4 files changed, 6 insertions(+), 20 deletions(-)

diff --git a/include/mruby/value.h b/include/mruby/value.h
index 75302792b..dd0349e8d 100644
--- a/include/mruby/value.h
+++ b/include/mruby/value.h
@@ -161,22 +161,8 @@ mrb_float_value(mrb_float f)
 
 #include "mruby/object.h"
 
-#define IMMEDIATE_P(x) (mrb_type(x) <= MRB_TT_MAIN)
-#define SPECIAL_CONST_P(x) IMMEDIATE_P(x)
-
-#define FL_ABLE(x) (!SPECIAL_CONST_P(x))
-#define FL_TEST(x,f) (FL_ABLE(x)?(RBASIC(x)->flags&(f)):0)
-#define FL_ANY(x,f) FL_TEST(x,f)
-#define FL_ALL(x,f) (FL_TEST(x,f) == (f))
-#define FL_SET(x,f) do {if (FL_ABLE(x)) RBASIC(x)->flags |= (f);} while (0)
-#define FL_UNSET(x,f) do {if (FL_ABLE(x)) RBASIC(x)->flags &= ~(f);} while (0)
-
-static inline mrb_int
-mrb_special_const_p(mrb_value obj)
-{
-  if (SPECIAL_CONST_P(obj)) return 1;
-  return 0;
-}
+#define mrb_immediate_p(x) (mrb_type(x) <= MRB_TT_MAIN)
+#define mrb_special_const_p(x) mrb_immediate_p(x)
 
 static inline mrb_value
 mrb_fixnum_value(mrb_int i)
diff --git a/src/array.c b/src/array.c
index abe5d6379..a200de3aa 100644
--- a/src/array.c
+++ b/src/array.c
@@ -1067,7 +1067,7 @@ mrb_ary_equal(mrb_state *mrb, mrb_value ary1)
 
   mrb_get_args(mrb, "o", &ary2);
   if (mrb_obj_equal(mrb, ary1, ary2)) return mrb_true_value();
-  if (SPECIAL_CONST_P(ary2)) return mrb_false_value();
+  if (mrb_special_const_p(ary2)) return mrb_false_value();
   if (!mrb_array_p(ary2)) {
     if (!mrb_respond_to(mrb, ary2, mrb_intern(mrb, "to_ary"))) {
         return mrb_false_value();
diff --git a/src/etc.c b/src/etc.c
index 3d861320d..4542c4abd 100644
--- a/src/etc.c
+++ b/src/etc.c
@@ -25,7 +25,7 @@ mrb_data_object_alloc(mrb_state *mrb, struct RClass *klass, void *ptr, const str
 void *
 mrb_get_datatype(mrb_state *mrb, mrb_value obj, const struct mrb_data_type *type)
 {
-  if (SPECIAL_CONST_P(obj) || (mrb_type(obj) != MRB_TT_DATA)) {
+  if (mrb_special_const_p(obj) || (mrb_type(obj) != MRB_TT_DATA)) {
     return NULL;
   }
   if (DATA_TYPE(obj) != type) {
@@ -39,7 +39,7 @@ mrb_check_datatype(mrb_state *mrb, mrb_value obj, const struct mrb_data_type *ty
 {
   static const char mesg[] = "wrong argument type %s (expected %s)";
 
-  if (SPECIAL_CONST_P(obj) || (mrb_type(obj) != MRB_TT_DATA)) {
+  if (mrb_special_const_p(obj) || (mrb_type(obj) != MRB_TT_DATA)) {
     mrb_check_type(mrb, obj, MRB_TT_DATA);
   }
   if (DATA_TYPE(obj) != type) {
diff --git a/src/gc.c b/src/gc.c
index 37e4a363b..66242113b 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -318,7 +318,7 @@ gc_protect(mrb_state *mrb, struct RBasic *p)
 void
 mrb_gc_protect(mrb_state *mrb, mrb_value obj)
 {
-  if (SPECIAL_CONST_P(obj)) return;
+  if (mrb_special_const_p(obj)) return;
   gc_protect(mrb, RBASIC(obj));
 }
 
-- 
cgit v1.2.3