From 6eb77feeee2d85cca1d6695f809072c357875ba8 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 22 Sep 2019 19:04:11 +0200 Subject: [PATCH] print object in comment when emitting with emit_const_lisp_obj --- src/comp.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) static gcc_jit_rvalue * emit_const_lisp_obj (Lisp_Object obj) { - emit_comment ("const lisp obj"); + emit_comment (format_string ("const lisp obj: %s", + SSDATA (Fprin1_to_string (obj, Qnil)))); Lisp_Object d_reloc_idx = FUNCALL1 (comp-ctxt-data-relocs-idx, Vcomp_ctxt); ptrdiff_t reloc_fixn = XFIXNUM (Fgethash (obj, d_reloc_idx, Qnil)); -- 2.39.5