diff options
| author | Paul Eggert | 2019-06-04 08:29:37 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-06-04 08:34:16 -0700 |
| commit | 741d04a87979feac2b26e6e7b9414932f4880166 (patch) | |
| tree | 810b6b32dff379e12c483968cc8d61905131dbfc /src | |
| parent | 7f4558e3d9edbdee6901e5fbcd4a4072f49ec5b9 (diff) | |
| download | emacs-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/.gdbinit | 4 |
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 |