diff options
| author | Andrea Corallo | 2019-09-22 19:04:11 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:37:53 +0100 |
| commit | 6eb77feeee2d85cca1d6695f809072c357875ba8 (patch) | |
| tree | d4487d9c4ceb63c2762dea0d7b2dd906193b825f /src/comp.c | |
| parent | eaade31040503efdce5c0daccd4c06f856d3fe2f (diff) | |
| download | emacs-6eb77feeee2d85cca1d6695f809072c357875ba8.tar.gz emacs-6eb77feeee2d85cca1d6695f809072c357875ba8.zip | |
print object in comment when emitting with emit_const_lisp_obj
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/comp.c b/src/comp.c index 60502da1740..6daeae311c3 100644 --- a/src/comp.c +++ b/src/comp.c | |||
| @@ -800,7 +800,8 @@ emit_make_fixnum (gcc_jit_rvalue *obj) | |||
| 800 | static gcc_jit_rvalue * | 800 | static gcc_jit_rvalue * |
| 801 | emit_const_lisp_obj (Lisp_Object obj) | 801 | emit_const_lisp_obj (Lisp_Object obj) |
| 802 | { | 802 | { |
| 803 | emit_comment ("const lisp obj"); | 803 | emit_comment (format_string ("const lisp obj: %s", |
| 804 | SSDATA (Fprin1_to_string (obj, Qnil)))); | ||
| 804 | 805 | ||
| 805 | Lisp_Object d_reloc_idx = FUNCALL1 (comp-ctxt-data-relocs-idx, Vcomp_ctxt); | 806 | Lisp_Object d_reloc_idx = FUNCALL1 (comp-ctxt-data-relocs-idx, Vcomp_ctxt); |
| 806 | ptrdiff_t reloc_fixn = XFIXNUM (Fgethash (obj, d_reloc_idx, Qnil)); | 807 | ptrdiff_t reloc_fixn = XFIXNUM (Fgethash (obj, d_reloc_idx, Qnil)); |