feature/native-comp 49f0331 09/17: * Render all immediates as comments at comp-debug > 2

[Andrea Corallo]

branch: feature/native-comp
commit 49f0331f53fb9eaa2039538a983eb7b6dbcd206f
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    * Render all immediates as comments at comp-debug > 2
    
        * src/comp.c (emit_mvar_rval): No reason to emit only fixnums.
---
 src/comp.c | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/src/comp.c b/src/comp.c
index e18bace..947da9a 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);