Mercurial > hg > xemacs-beta

comparison src/debug.c @ 5581:56144c8593a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mechanically change INT to FIXNUM in our sources. src/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> [...] Mechanically change INT (where it refers to non-bignum Lisp integers) to FIXNUM in our sources. Done for the following functions, enums, and macros: Lisp_Type_Int_Even, Lisp_Type_Int_Odd, INT_GCBITS, INT_VALBITS, make_int(), INTP(), XINT(), CHECK_INT(), XREALINT(), INT_PLUS(), INT_MINUS(), EMACS_INT_MAX (to MOST_POSITIVE_FIXNUM), EMACS_INT_MIN (to MOST_NEGATIVE_FIXNUM), NUMBER_FITS_IN_AN_EMACS_INT() to NUMBER_FITS_IN_A_FIXNUM(), XFLOATINT, XCHAR_OR_INT, INT_OR_FLOAT. The EMACS_INT typedef was not changed, it does not describe non-bignum Lisp integers. Script that did the change available in http://mid.gmane.org/20067.17650.181273.12014@parhasard.net . modules/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> [...] Mechanically change INT to FIXNUM, where the usage describes non-bignum Lisp integers. See the src/ChangeLog entry for more details. man/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> * internals/internals.texi (How Lisp Objects Are Represented in C): * internals/internals.texi (Integers and Characters): Mechanically change INT to FIXNUM, where the usage describes non-bignum Lisp integers.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 09 Oct 2011 09:51:57 +0100
parents 308d34e9f07d
children
comparison
equal deleted inserted replaced
5580:a0e81357194e 5581:56144c8593a8
66 || (op == X_ACTIVE && active_debug_classes.item)) \ 66 || (op == X_ACTIVE && active_debug_classes.item)) \
67 retval = Fcons (Q##item, retval); \ 67 retval = Fcons (Q##item, retval); \
68 else if (op == X_VALIDATE) \ 68 else if (op == X_VALIDATE) \
69 return Qt; \ 69 return Qt; \
70 else if (op == X_SETTYPE) \ 70 else if (op == X_SETTYPE) \
71 active_debug_classes.types_of_##item = XINT (type); \ 71 active_debug_classes.types_of_##item = XFIXNUM (type); \
72 else if (op == X_TYPE) \ 72 else if (op == X_TYPE) \
73 retval = make_int (active_debug_classes.types_of_##item); \ 73 retval = make_fixnum (active_debug_classes.types_of_##item); \
74 if (op == X_INIT) active_debug_classes.types_of_##item = VALBITS; \ 74 if (op == X_INIT) active_debug_classes.types_of_##item = VALBITS; \
75 } 75 }
76 76
77 FROB (redisplay); 77 FROB (redisplay);
78 FROB (buffers); 78 FROB (buffers);
158 TYPES should be an integer representing the or'd value of all desired types. 158 TYPES should be an integer representing the or'd value of all desired types.
159 Lists of defined types and their values are located in the source code. 159 Lists of defined types and their values are located in the source code.
160 */ 160 */
161 (class_, type)) 161 (class_, type))
162 { 162 {
163 CHECK_INT (type); 163 CHECK_FIXNUM (type);
164 if (NILP (xemacs_debug_loop (X_VALIDATE, class_, Qnil))) 164 if (NILP (xemacs_debug_loop (X_VALIDATE, class_, Qnil)))
165 invalid_argument ("Invalid debug class", Qunbound); 165 invalid_argument ("Invalid debug class", Qunbound);
166 166
167 xemacs_debug_loop (X_SETTYPE, class_, type); 167 xemacs_debug_loop (X_SETTYPE, class_, type);
168 168