guile/guile-core/libguile numbers.h

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/11/25 10:12:39

Modified files:
        guile-core/libguile: numbers.h 

Log message:
        (SCM_MAKE_BIGNUM_TAG): New.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/numbers.h.diff?cvsroot=OldCVS&tr1=1.62&tr2=1.63&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/numbers.h
diff -u guile/guile-core/libguile/numbers.h:1.62 
guile/guile-core/libguile/numbers.h:1.63
--- guile/guile-core/libguile/numbers.h:1.62    Wed Nov  7 10:08:45 2001
+++ guile/guile-core/libguile/numbers.h Sun Nov 25 10:12:39 2001
@@ -175,11 +175,12 @@
 #define SCM_BDIGITS(x) ((SCM_BIGDIG *) (SCM_CELL_WORD_1 (x)))
 #define SCM_SET_BIGNUM_BASE(n, b) (SCM_SET_CELL_WORD_1 ((n), (b)))
 #define SCM_NUMDIGS(x) ((size_t) (SCM_CELL_WORD_0 (x) >> SCM_BIGSIZEFIELD))
+#define SCM_MAKE_BIGNUM_TAG(v, sign)              \
+             (scm_tc16_big                       \
+              | ((sign) ? SCM_BIGSIGNFLAG : 0)   \
+              | (((v) + 0L) << SCM_BIGSIZEFIELD))
 #define SCM_SETNUMDIGS(x, v, sign) \
-  SCM_SET_CELL_WORD_0 (x, \
-             scm_tc16_big \
-             | ((sign) ? SCM_BIGSIGNFLAG : 0) \
-             | (((v) + 0L) << SCM_BIGSIZEFIELD))
+  SCM_SET_CELL_WORD_0 (x, SCM_MAKE_BIGNUM_TAG (v, sign))