Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 1104:8b464283e891

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-11-12 18:58:13 by james] Unconditionally compile the LISP_FLOAT_TYPE code. Remove all !LISP_FLOAT_TYPE code and the LISP_FLOAT_TYPE identifier itself.
author james
date Tue, 12 Nov 2002 18:58:41 +0000
parents 25e260cb7994
children 184461bc8de4
comparison
equal deleted inserted replaced
1103:80d9ab2e9855 1104:8b464283e891
2367 #define CONCHECK_CHAR(x) CONCHECK_NONRECORD (x, Lisp_Type_Char, Qcharacterp) 2367 #define CONCHECK_CHAR(x) CONCHECK_NONRECORD (x, Lisp_Type_Char, Qcharacterp)
2368 2368
2369 2369
2370 /*------------------------------ float ---------------------------------*/ 2370 /*------------------------------ float ---------------------------------*/
2371 2371
2372 #ifdef LISP_FLOAT_TYPE
2373
2374 /* Note: the 'unused_next_' field exists only to ensure that the 2372 /* Note: the 'unused_next_' field exists only to ensure that the
2375 `next' pointer fits within the structure, for the purposes of the 2373 `next' pointer fits within the structure, for the purposes of the
2376 free list. This makes a difference in the unlikely case of 2374 free list. This makes a difference in the unlikely case of
2377 sizeof(double) being smaller than sizeof(void *). */ 2375 sizeof(double) being smaller than sizeof(void *). */
2378 2376
2404 if (!INT_OR_FLOATP (x)) \ 2402 if (!INT_OR_FLOATP (x)) \
2405 x = wrong_type_argument (Qnumberp, x); \ 2403 x = wrong_type_argument (Qnumberp, x); \
2406 } while (0) 2404 } while (0)
2407 2405
2408 # define INT_OR_FLOATP(x) (INTP (x) || FLOATP (x)) 2406 # define INT_OR_FLOATP(x) (INTP (x) || FLOATP (x))
2409
2410 #else /* not LISP_FLOAT_TYPE */
2411
2412 #define XFLOAT(x) --- error! No float support. ---
2413 #define FLOATP(x) 0
2414 #define CHECK_FLOAT(x) --- error! No float support. ---
2415 #define CONCHECK_FLOAT(x) --- error! No float support. ---
2416
2417 #define XFLOATINT(n) XINT(n)
2418 #define CHECK_INT_OR_FLOAT CHECK_INT
2419 #define CONCHECK_INT_OR_FLOAT CONCHECK_INT
2420 #define INT_OR_FLOATP(x) INTP (x)
2421
2422 #endif /* not LISP_FLOAT_TYPE */
2423 2407
2424 /*-------------------------------- int ---------------------------------*/ 2408 /*-------------------------------- int ---------------------------------*/
2425 2409
2426 #define ZEROP(x) EQ (x, Qzero) 2410 #define ZEROP(x) EQ (x, Qzero)
2427 2411