1 /* -*-C-*- 2 3 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 4 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 5 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014 Massachusetts 6 Institute of Technology 7 8 This file is part of MIT/GNU Scheme. 9 10 MIT/GNU Scheme is free software; you can redistribute it and/or modify 11 it under the terms of the GNU General Public License as published by 12 the Free Software Foundation; either version 2 of the License, or (at 13 your option) any later version. 14 15 MIT/GNU Scheme is distributed in the hope that it will be useful, but 16 WITHOUT ANY WARRANTY; without even the implied warranty of 17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18 General Public License for more details. 19 20 You should have received a copy of the GNU General Public License 21 along with MIT/GNU Scheme; if not, write to the Free Software 22 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, 23 USA. 24 25 */ 26 27 #ifndef SCM_FIXNUM_H_INCLUDED 28 #define SCM_FIXNUM_H_INCLUDED 1 29 30 #define MAX_BIT_SHIFT DATUM_LENGTH 31 32 #define RIGHT_SHIFT_UNSIGNED(source, number) \ 33 (((number) > MAX_BIT_SHIFT) \ 34 ? 0 \ 35 : ((((unsigned long) (source)) & DATUM_MASK) >> (number))) 36 37 #define RIGHT_SHIFT(source, number) \ 38 (((number) > MAX_BIT_SHIFT) \ 39 ? 0 \ 40 : ((source) >> (number))) 41 42 #define LEFT_SHIFT(source, number) \ 43 (((number) > MAX_BIT_SHIFT) \ 44 ? 0 \ 45 : ((source) << (number))) 46 47 #define FIXNUM_LSH(source, number) \ 48 (((number) >= 0) \ 49 ? (LEFT_SHIFT (source, number)) \ 50 : (RIGHT_SHIFT_UNSIGNED (source, (- (number))))) 51 52 #define FIXNUM_REMAINDER(source1, source2) \ 53 (((source2) > 0) \ 54 ? (((source1) >= 0) \ 55 ? ((source1) % (source2)) \ 56 : (- ((- (source1)) % (source2)))) \ 57 : (((source1) >= 0) \ 58 ? ((source1) % (- (source2))) \ 59 : (- ((- (source1)) % (- (source2)))))) 60 61 #define FIXNUM_QUOTIENT(source1, source2) \ 62 (((source2) > 0) \ 63 ? (((source1) >= 0) \ 64 ? ((source1) / (source2)) \ 65 : (- ((- (source1)) / (source2)))) \ 66 : (((source1) >= 0) \ 67 ? (- ((source1) / (- (source2)))) \ 68 : ((- (source1)) / (- (source2))))) 69 70 #endif /* !SCM_FIXNUM_H_INCLUDED */ 71