From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 3 May 2020 19:55:23 +0000 (+0100)
Subject: * Render all immediates as comments at comp-debug > 2
X-Git-Tag: emacs-28.0.90~2727^2~644
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49f0331f53fb9eaa2039538a983eb7b6dbcd206f;p=emacs.git

* Render all immediates as comments at comp-debug > 2

	* src/comp.c (emit_mvar_rval): No reason to emit only fixnums.
---

diff --git a/src/comp.c b/src/comp.c
index e18bace6683..947da9a8e27 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -1338,11 +1338,23 @@ emit_mvar_rval (Lisp_Object mvar)
 
   if (!NILP (const_vld))
     {
+      if (COMP_DEBUG > 1)
+	{
+	  Lisp_Object func =
+	    Fgethash (constant,
+		      CALL1I (comp-ctxt-byte-func-to-func-h, Vcomp_ctxt),
+		      Qnil);
+
+	  emit_comment (
+	    SSDATA (
+	      Fprin1_to_string (
+		NILP (func) ? constant : CALL1I (comp-func-c-name, func),
+		Qnil)));
+	}
       if (FIXNUMP (constant))
 	{
 	  /* We can still emit directly objects that are self-contained in a
 	     word (read fixnums).  */
-	  emit_comment (SSDATA (Fprin1_to_string (constant, Qnil)));
 	  gcc_jit_rvalue *word;
 #ifdef WIDE_EMACS_INT
 	  word = emit_rvalue_from_long_long (constant);