Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 157:6b37e6ddd302 r20-3b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b5
author cvs
date Mon, 13 Aug 2007 09:40:41 +0200
parents 538048ae2ab8
children 5a88923fcbfe
comparison
equal deleted inserted replaced
156:60baf0b43294 157:6b37e6ddd302
37 #include <stdlib.h> 37 #include <stdlib.h>
38 #include <string.h> /* primarily for memcpy, etc. */ 38 #include <string.h> /* primarily for memcpy, etc. */
39 #include <stdio.h> /* NULL, etc. */ 39 #include <stdio.h> /* NULL, etc. */
40 #include <ctype.h> 40 #include <ctype.h>
41 #include <stdarg.h> 41 #include <stdarg.h>
42
43 #ifdef HAVE_LIMITS_H
44 #include <limits.h>
45 #endif
46 /* Define INT_MAX, DBL_DIG if not in limits.h */
47 #ifndef INT_MAX
48 #define INT_MAX ((int) ((1U << (INTBITS - 1)) - 1))
49 #endif
50 #ifndef DBL_DIG
51 #define DBL_DIG 16
52 #endif
53
42 #ifdef HAVE_UNISTD_H 54 #ifdef HAVE_UNISTD_H
43 #include <unistd.h> 55 #include <unistd.h>
44 #endif 56 #endif
45 #ifndef INCLUDED_FCNTL 57 #ifndef INCLUDED_FCNTL
46 # define INCLUDED_FCNTL 58 # define INCLUDED_FCNTL
288 300
289 #ifdef DEBUG_XEMACS 301 #ifdef DEBUG_XEMACS
290 #define REGISTER 302 #define REGISTER
291 #else 303 #else
292 #define REGISTER register 304 #define REGISTER register
293 #endif
294
295 #ifndef INT_MAX
296 #define INT_MAX ((int) ((1U << (INTBITS - 1)) - 1))
297 #endif 305 #endif
298 306
299 #if defined (__GNUC__) && (__GNUC__ >= 2) 307 #if defined (__GNUC__) && (__GNUC__ >= 2)
300 /* Entomological studies have revealed that the following junk is 308 /* Entomological studies have revealed that the following junk is
301 necessary under GCC. GCC has a compiler bug where incorrect 309 necessary under GCC. GCC has a compiler bug where incorrect
1151 #define CONCHECK_FLOAT(x) CONCHECK_RECORD (x, float) 1159 #define CONCHECK_FLOAT(x) CONCHECK_RECORD (x, float)
1152 1160
1153 #define float_next(f) ((f)->data.next) 1161 #define float_next(f) ((f)->data.next)
1154 #define float_data(f) ((f)->data.d) 1162 #define float_data(f) ((f)->data.d)
1155 1163
1156 #ifndef DBL_DIG
1157 # define DBL_DIG 16
1158 #endif
1159
1160 #define XFLOATINT(n) extract_float (n) 1164 #define XFLOATINT(n) extract_float (n)
1161 1165
1162 #define CHECK_INT_OR_FLOAT(x) \ 1166 #define CHECK_INT_OR_FLOAT(x) \
1163 do { if ( !INTP (x) && !FLOATP (x)) \ 1167 do { if ( !INTP (x) && !FLOATP (x)) \
1164 dead_wrong_type_argument (Qnumberp, (x)); } while (0) 1168 dead_wrong_type_argument (Qnumberp, (x)); } while (0)