diff options
| author | Tom Tromey | 2018-08-07 18:08:53 -0600 |
|---|---|---|
| committer | Tom Tromey | 2018-08-07 18:08:53 -0600 |
| commit | d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8 (patch) | |
| tree | 04c920acf142f686d3cac11080b17a2fb0dfc9af /src/bytecode.c | |
| parent | 68ebff23f7057090da260830500cb278f7b886a5 (diff) | |
| download | emacs-d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8.tar.gz emacs-d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8.zip | |
More macro renamings for bignum
* src/alloc.c, src/bidi.c, src/buffer.c, src/buffer.h, src/bytecode.c,
src/callint.c, src/callproc.c, src/casefiddle.c, src/casetab.c,
src/category.c, src/ccl.c, src/character.c, src/character.h,
src/charset.c, src/charset.h, src/chartab.c, src/cmds.c, src/coding.c,
src/composite.c, src/composite.h, src/data.c, src/dbusbind.c,
src/decompress.c, src/dired.c, src/dispextern.h, src/dispnew.c,
src/disptab.h, src/doc.c, src/dosfns.c, src/editfns.c,
src/emacs-module.c, src/emacs.c, src/eval.c, src/fileio.c,
src/floatfns.c, src/fns.c, src/font.c, src/font.h, src/fontset.c,
src/frame.c, src/frame.h, src/fringe.c, src/ftcrfont.c, src/ftfont.c,
src/gfilenotify.c, src/gnutls.c, src/gtkutil.c, src/image.c,
src/indent.c, src/insdel.c, src/intervals.c, src/json.c,
src/keyboard.c, src/keymap.c, src/kqueue.c, src/lcms.c, src/lisp.h,
src/lread.c, src/macros.c, src/marker.c, src/menu.c, src/minibuf.c,
src/msdos.c, src/print.c, src/process.c, src/profiler.c, src/search.c,
src/sound.c, src/syntax.c, src/syntax.h, src/sysdep.c, src/term.c,
src/termhooks.h, src/textprop.c, src/undo.c, src/w32.c,
src/w32console.c, src/w32fns.c, src/w32font.c, src/w32inevt.c,
src/w32proc.c, src/w32select.c, src/w32term.c, src/w32term.h,
src/w32uniscribe.c, src/window.c, src/xdisp.c, src/xfaces.c,
src/xfns.c, src/xfont.c, src/xftfont.c, src/xmenu.c, src/xml.c,
src/xrdb.c, src/xselect.c, src/xsettings.c, src/xterm.c, src/xwidget.c
Rename XINT->XFIXNUM, XFASTINT->XFIXNAT, XUINT->XUFIXNUM.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index f87983a59c0..b27fa7c5c68 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -63,14 +63,14 @@ along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ | |||
| 63 | { \ | 63 | { \ |
| 64 | if (byte_metering_on) \ | 64 | if (byte_metering_on) \ |
| 65 | { \ | 65 | { \ |
| 66 | if (XFASTINT (METER_1 (this_code)) < MOST_POSITIVE_FIXNUM) \ | 66 | if (XFIXNAT (METER_1 (this_code)) < MOST_POSITIVE_FIXNUM) \ |
| 67 | XSETFASTINT (METER_1 (this_code), \ | 67 | XSETFASTINT (METER_1 (this_code), \ |
| 68 | XFASTINT (METER_1 (this_code)) + 1); \ | 68 | XFIXNAT (METER_1 (this_code)) + 1); \ |
| 69 | if (last_code \ | 69 | if (last_code \ |
| 70 | && (XFASTINT (METER_2 (last_code, this_code)) \ | 70 | && (XFIXNAT (METER_2 (last_code, this_code)) \ |
| 71 | < MOST_POSITIVE_FIXNUM)) \ | 71 | < MOST_POSITIVE_FIXNUM)) \ |
| 72 | XSETFASTINT (METER_2 (last_code, this_code), \ | 72 | XSETFASTINT (METER_2 (last_code, this_code), \ |
| 73 | XFASTINT (METER_2 (last_code, this_code)) + 1); \ | 73 | XFIXNAT (METER_2 (last_code, this_code)) + 1); \ |
| 74 | } \ | 74 | } \ |
| 75 | } | 75 | } |
| 76 | 76 | ||
| @@ -362,7 +362,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 362 | Lisp_Object *vectorp = XVECTOR (vector)->contents; | 362 | Lisp_Object *vectorp = XVECTOR (vector)->contents; |
| 363 | 363 | ||
| 364 | unsigned char quitcounter = 1; | 364 | unsigned char quitcounter = 1; |
| 365 | EMACS_INT stack_items = XFASTINT (maxdepth) + 1; | 365 | EMACS_INT stack_items = XFIXNAT (maxdepth) + 1; |
| 366 | USE_SAFE_ALLOCA; | 366 | USE_SAFE_ALLOCA; |
| 367 | void *alloc; | 367 | void *alloc; |
| 368 | SAFE_ALLOCA_LISP_EXTRA (alloc, stack_items, bytestr_length); | 368 | SAFE_ALLOCA_LISP_EXTRA (alloc, stack_items, bytestr_length); |
| @@ -379,7 +379,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 379 | if (!NILP (args_template)) | 379 | if (!NILP (args_template)) |
| 380 | { | 380 | { |
| 381 | eassert (FIXNUMP (args_template)); | 381 | eassert (FIXNUMP (args_template)); |
| 382 | ptrdiff_t at = XINT (args_template); | 382 | ptrdiff_t at = XFIXNUM (args_template); |
| 383 | bool rest = (at & 128) != 0; | 383 | bool rest = (at & 128) != 0; |
| 384 | int mandatory = at & 127; | 384 | int mandatory = at & 127; |
| 385 | ptrdiff_t nonrest = at >> 8; | 385 | ptrdiff_t nonrest = at >> 8; |
| @@ -622,9 +622,9 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 622 | Lisp_Object v1 = TOP; | 622 | Lisp_Object v1 = TOP; |
| 623 | Lisp_Object v2 = Fget (v1, Qbyte_code_meter); | 623 | Lisp_Object v2 = Fget (v1, Qbyte_code_meter); |
| 624 | if (FIXNUMP (v2) | 624 | if (FIXNUMP (v2) |
| 625 | && XINT (v2) < MOST_POSITIVE_FIXNUM) | 625 | && XFIXNUM (v2) < MOST_POSITIVE_FIXNUM) |
| 626 | { | 626 | { |
| 627 | XSETINT (v2, XINT (v2) + 1); | 627 | XSETINT (v2, XFIXNUM (v2) + 1); |
| 628 | Fput (v1, Qbyte_code_meter, v2); | 628 | Fput (v1, Qbyte_code_meter, v2); |
| 629 | } | 629 | } |
| 630 | } | 630 | } |
| @@ -833,7 +833,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 833 | { | 833 | { |
| 834 | Lisp_Object v2 = POP, v1 = TOP; | 834 | Lisp_Object v2 = POP, v1 = TOP; |
| 835 | CHECK_FIXNUM (v1); | 835 | CHECK_FIXNUM (v1); |
| 836 | for (EMACS_INT n = XINT (v1); 0 < n && CONSP (v2); n--) | 836 | for (EMACS_INT n = XFIXNUM (v1); 0 < n && CONSP (v2); n--) |
| 837 | { | 837 | { |
| 838 | v2 = XCDR (v2); | 838 | v2 = XCDR (v2); |
| 839 | rarely_quit (n); | 839 | rarely_quit (n); |
| @@ -972,14 +972,14 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 972 | NEXT; | 972 | NEXT; |
| 973 | 973 | ||
| 974 | CASE (Bsub1): | 974 | CASE (Bsub1): |
| 975 | TOP = (FIXNUMP (TOP) && XINT (TOP) != MOST_NEGATIVE_FIXNUM | 975 | TOP = (FIXNUMP (TOP) && XFIXNUM (TOP) != MOST_NEGATIVE_FIXNUM |
| 976 | ? make_fixnum (XINT (TOP) - 1) | 976 | ? make_fixnum (XFIXNUM (TOP) - 1) |
| 977 | : Fsub1 (TOP)); | 977 | : Fsub1 (TOP)); |
| 978 | NEXT; | 978 | NEXT; |
| 979 | 979 | ||
| 980 | CASE (Badd1): | 980 | CASE (Badd1): |
| 981 | TOP = (FIXNUMP (TOP) && XINT (TOP) != MOST_POSITIVE_FIXNUM | 981 | TOP = (FIXNUMP (TOP) && XFIXNUM (TOP) != MOST_POSITIVE_FIXNUM |
| 982 | ? make_fixnum (XINT (TOP) + 1) | 982 | ? make_fixnum (XFIXNUM (TOP) + 1) |
| 983 | : Fadd1 (TOP)); | 983 | : Fadd1 (TOP)); |
| 984 | NEXT; | 984 | NEXT; |
| 985 | 985 | ||
| @@ -1031,8 +1031,8 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 1031 | NEXT; | 1031 | NEXT; |
| 1032 | 1032 | ||
| 1033 | CASE (Bnegate): | 1033 | CASE (Bnegate): |
| 1034 | TOP = (FIXNUMP (TOP) && XINT (TOP) != MOST_NEGATIVE_FIXNUM | 1034 | TOP = (FIXNUMP (TOP) && XFIXNUM (TOP) != MOST_NEGATIVE_FIXNUM |
| 1035 | ? make_fixnum (- XINT (TOP)) | 1035 | ? make_fixnum (- XFIXNUM (TOP)) |
| 1036 | : Fminus (1, &TOP)); | 1036 | : Fminus (1, &TOP)); |
| 1037 | NEXT; | 1037 | NEXT; |
| 1038 | 1038 | ||
| @@ -1175,7 +1175,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 1175 | CASE (Bchar_syntax): | 1175 | CASE (Bchar_syntax): |
| 1176 | { | 1176 | { |
| 1177 | CHECK_CHARACTER (TOP); | 1177 | CHECK_CHARACTER (TOP); |
| 1178 | int c = XFASTINT (TOP); | 1178 | int c = XFIXNAT (TOP); |
| 1179 | if (NILP (BVAR (current_buffer, enable_multibyte_characters))) | 1179 | if (NILP (BVAR (current_buffer, enable_multibyte_characters))) |
| 1180 | MAKE_CHAR_MULTIBYTE (c); | 1180 | MAKE_CHAR_MULTIBYTE (c); |
| 1181 | XSETFASTINT (TOP, syntax_code_spec[SYNTAX (c)]); | 1181 | XSETFASTINT (TOP, syntax_code_spec[SYNTAX (c)]); |
| @@ -1269,7 +1269,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 1269 | /* Exchange args and then do nth. */ | 1269 | /* Exchange args and then do nth. */ |
| 1270 | Lisp_Object v2 = POP, v1 = TOP; | 1270 | Lisp_Object v2 = POP, v1 = TOP; |
| 1271 | CHECK_FIXNUM (v2); | 1271 | CHECK_FIXNUM (v2); |
| 1272 | for (EMACS_INT n = XINT (v2); 0 < n && CONSP (v1); n--) | 1272 | for (EMACS_INT n = XFIXNUM (v2); 0 < n && CONSP (v1); n--) |
| 1273 | { | 1273 | { |
| 1274 | v1 = XCDR (v1); | 1274 | v1 = XCDR (v1); |
| 1275 | rarely_quit (n); | 1275 | rarely_quit (n); |
| @@ -1439,7 +1439,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 1439 | Lisp_Object val = HASH_VALUE (h, i); | 1439 | Lisp_Object val = HASH_VALUE (h, i); |
| 1440 | if (BYTE_CODE_SAFE && !FIXNUMP (val)) | 1440 | if (BYTE_CODE_SAFE && !FIXNUMP (val)) |
| 1441 | emacs_abort (); | 1441 | emacs_abort (); |
| 1442 | op = XINT (val); | 1442 | op = XFIXNUM (val); |
| 1443 | goto op_branch; | 1443 | goto op_branch; |
| 1444 | } | 1444 | } |
| 1445 | } | 1445 | } |
| @@ -1475,7 +1475,7 @@ Lisp_Object | |||
| 1475 | get_byte_code_arity (Lisp_Object args_template) | 1475 | get_byte_code_arity (Lisp_Object args_template) |
| 1476 | { | 1476 | { |
| 1477 | eassert (FIXNATP (args_template)); | 1477 | eassert (FIXNATP (args_template)); |
| 1478 | EMACS_INT at = XINT (args_template); | 1478 | EMACS_INT at = XFIXNUM (args_template); |
| 1479 | bool rest = (at & 128) != 0; | 1479 | bool rest = (at & 128) != 0; |
| 1480 | int mandatory = at & 127; | 1480 | int mandatory = at & 127; |
| 1481 | EMACS_INT nonrest = at >> 8; | 1481 | EMACS_INT nonrest = at >> 8; |