From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 22 Sep 2019 17:04:11 +0000 (+0200)
Subject: print object in comment when emitting with emit_const_lisp_obj
X-Git-Tag: emacs-28.0.90~2727^2~1121
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6eb77feeee2d85cca1d6695f809072c357875ba8;p=emacs.git

print object in comment when emitting with emit_const_lisp_obj
---

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));