From e720782f815b809a692818851582be019afe52a9 Mon Sep 17 00:00:00 2001
From: kimu_shu <alfvegardrisc@gmail.com>
Date: Sun, 26 May 2013 09:43:30 +0900
Subject: Add MRB_WORD_BOXING mode (represent mrb_value as a word)

---
 src/etc.c | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'src/etc.c')

diff --git a/src/etc.c b/src/etc.c
index f2ff34fec..2aee0f0f7 100644
--- a/src/etc.c
+++ b/src/etc.c
@@ -180,3 +180,25 @@ mrb_obj_id(mrb_value obj)
   }
 }
 
+#ifdef MRB_WORD_BOXING
+mrb_value
+mrb_float_value(mrb_state *mrb, mrb_float f)
+{
+  mrb_value v;
+
+  v.value.p = mrb_obj_alloc(mrb, MRB_TT_FLOAT, mrb->float_class);
+  v.value.fp->f = f;
+  return v;
+}
+
+mrb_value
+mrb_voidp_value(mrb_state *mrb, void *p)
+{
+  mrb_value v;
+
+  v.value.p = mrb_obj_alloc(mrb, MRB_TT_VOIDP, mrb->object_class);
+  v.value.vp->p = p;
+  return v;
+}
+#endif  /* MRB_WORD_BOXING */
+
-- 
cgit v1.2.3