diff options
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 |