aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
authorTom Tromey2018-08-07 18:08:53 -0600
committerTom Tromey2018-08-07 18:08:53 -0600
commitd1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8 (patch)
tree04c920acf142f686d3cac11080b17a2fb0dfc9af /src/bytecode.c
parent68ebff23f7057090da260830500cb278f7b886a5 (diff)
downloademacs-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.c38
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
1475get_byte_code_arity (Lisp_Object args_template) 1475get_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;