From ce1bfc2039cc673c3c9099933c05c9fac3e88ae9 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 4 Aug 2008 18:44:16 +0200
Subject: Make it possible to disable fixnum support by supplying -DNO_FIXNUMS
 as a compiler flag.

---
 functions.m | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'functions.m')

diff --git a/functions.m b/functions.m
index 068d217..ef3e6c3 100644
--- a/functions.m
+++ b/functions.m
@@ -48,10 +48,12 @@ id MLKFixnumWithInt (intptr_t value)
 
 id MLKIntegerWithInt (intptr_t value)
 {
+#ifndef NO_FIXNUMS
   intptr_t maybeFixnum = (value << 1) | 1;
   if (value == (maybeFixnum >> 1))
     return (id)maybeFixnum;
   else
+#endif
     return [MLKInteger integerWithIntptr_t:value];
 }
 
-- 
cgit v1.2.3