aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorPaul Eggert2019-06-04 08:29:37 -0700
committerPaul Eggert2019-06-04 08:34:16 -0700
commit741d04a87979feac2b26e6e7b9414932f4880166 (patch)
tree810b6b32dff379e12c483968cc8d61905131dbfc /src
parent7f4558e3d9edbdee6901e5fbcd4a4072f49ec5b9 (diff)
downloademacs-741d04a87979feac2b26e6e7b9414932f4880166.tar.gz
emacs-741d04a87979feac2b26e6e7b9414932f4880166.zip
Adjust comments/debug to match C bignum code
* doc/lispintro/emacs-lisp-intro.texi (Digression into C): Adjust to match current C code. * lisp/emacs-lisp/ert.el (ert--force-message-log-buffer-truncation): Simplify. * src/.gdbinit (Lisp_Object_Printer.to_string): Return a string that says "make_fixnum", not "make_number".
Diffstat (limited to 'src')
-rw-r--r--src/.gdbinit4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/.gdbinit b/src/.gdbinit
index 8c9a227ee33..c0cf6393594 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -1316,7 +1316,7 @@ if hasattr(gdb, 'printing'):
1316 itype = ival >> (0 if USE_LSB_TAG else VALBITS) 1316 itype = ival >> (0 if USE_LSB_TAG else VALBITS)
1317 itype = itype & ((1 << GCTYPEBITS) - 1) 1317 itype = itype & ((1 << GCTYPEBITS) - 1)
1318 1318
1319 # For a Lisp integer N, yield "make_number(N)". 1319 # For a Lisp fixnum N, yield "make_fixnum(N)".
1320 if itype == Lisp_Int0 or itype == Lisp_Int1: 1320 if itype == Lisp_Int0 or itype == Lisp_Int1:
1321 if USE_LSB_TAG: 1321 if USE_LSB_TAG:
1322 ival = ival >> (GCTYPEBITS - 1) 1322 ival = ival >> (GCTYPEBITS - 1)
@@ -1324,7 +1324,7 @@ if hasattr(gdb, 'printing'):
1324 ival = ival | (-1 << VALBITS) 1324 ival = ival | (-1 << VALBITS)
1325 else: 1325 else:
1326 ival = ival & ((1 << VALBITS) - 1) 1326 ival = ival & ((1 << VALBITS) - 1)
1327 return "make_number(%d)" % ival 1327 return "make_fixnum(%d)" % ival
1328 1328
1329 # For non-integers other than nil yield "XIL(N)", where N is a C integer. 1329 # For non-integers other than nil yield "XIL(N)", where N is a C integer.
1330 # This helps humans distinguish Lisp_Object values from ordinary 1330 # This helps humans distinguish Lisp_Object values from ordinary