Mercurial > hg > xemacs-beta
diff src/dired.c @ 5581:56144c8593a8
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 | 1f0b15040456 |
| children | 86d33ddc7fd6 |
line wrap: on
line diff
--- a/src/dired.c Sat Oct 08 12:26:09 2011 +0100 +++ b/src/dired.c Sun Oct 09 09:51:57 2011 +0100 @@ -507,7 +507,7 @@ return bestmatch; if (matchcount == 1 && bestmatchsize == file_name_length) return Qt; - return Fsubseq (bestmatch, Qzero, make_int (bestmatchsize)); + return Fsubseq (bestmatch, Qzero, make_fixnum (bestmatchsize)); } @@ -669,7 +669,7 @@ if (status_status_statui_statum_statu != NERR_Success && status_status_statui_statum_statu != ERROR_MORE_DATA) invalid_operation ("Error enumerating users", - make_int (GetLastError ())); + make_fixnum (GetLastError ())); for (i = 0; i < (int) entriesread; i++) { DO_REALLOC (user_cache.user_names, user_cache.size, @@ -771,7 +771,7 @@ return bestmatch; if (matchcount == 1 && bestmatchsize == user_name_length) return Qt; - return Fsubseq (bestmatch, Qzero, make_int (bestmatchsize)); + return Fsubseq (bestmatch, Qzero, make_fixnum (bestmatchsize)); } @@ -903,7 +903,7 @@ } #ifndef HAVE_BIGNUM - size = make_integer (NUMBER_FITS_IN_AN_EMACS_INT (s.st_size) ? + size = make_integer (NUMBER_FITS_IN_A_FIXNUM (s.st_size) ? (EMACS_INT)s.st_size : -1); #else size = make_integer (s.st_size); @@ -927,17 +927,17 @@ RETURN_UNGCPRO (listn (12, mode, - make_int (s.st_nlink), - make_int (s.st_uid), - make_int (s.st_gid), + make_fixnum (s.st_nlink), + make_fixnum (s.st_uid), + make_fixnum (s.st_gid), make_time (s.st_atime), make_time (s.st_mtime), make_time (s.st_ctime), size, modestring, gid, - make_int (s.st_ino), - make_int (s.st_dev))); + make_fixnum (s.st_ino), + make_fixnum (s.st_dev))); }