* sid-cpu.scm (/gen-sem-case): Tweaking debugging printf.

	(/gen-sfrag-case): Ditto.
	* sim-cpu.scm (/gen-sem-case): Ditto.

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index 541a3be..2117108 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,5 +1,9 @@
 2009-10-24  Doug Evans  <dje@sebabeach.org>
 
+       * sid-cpu.scm (/gen-sem-case): Tweaking debugging printf.
+       (/gen-sfrag-case): Ditto.
+       * sim-cpu.scm (/gen-sem-case): Ditto.
+
        * doc/rtl.texi: Add note that different ifields, operands, insns,
        and minsns may occur with the same name in different isas.
        Add note on the canonical form of rtl expressions.

diff --git a/cgen/sid-cpu.scm b/cgen/sid-cpu.scm
index a122f92..62ee056 100644 (file)
--- a/cgen/sid-cpu.scm
+++ b/cgen/sid-cpu.scm
@@ -860,7 +860,8 @@ using namespace @prefix@; // FIXME: namespace organization still wip\n"))
 (define (/gen-sem-case insn parallel?)
   (logit 2 "Processing "
         (if parallel? "parallel " "")
-        "semantic switch case for \"" (insn-syntax insn) "\" ...\n")
+        "semantic switch case for " (obj:name insn) ": \""
+        (insn-syntax insn) "\" ...\n")
   (set! /with-profile? /with-profile-sw?)
   (let ((cti? (insn-cti? insn))
        (insn-len (insn-length-bytes insn)))
@@ -1147,7 +1148,7 @@ struct @prefix@_pbb_label {
        (parallel? (sfrag-parallel? frag)))
     (logit 2 "Processing "
           (if parallel? "parallel " "")
-          "semantic switch case for \"" (obj:name frag) "\" ...\n")
+          "semantic switch case for " (obj:name frag) " ...\n")
     (string-list
      ; FRAG_ is prepended here and not elsewhere to avoid name collisions
      ; with symbols like AND, etc.

diff --git a/cgen/sim-cpu.scm b/cgen/sim-cpu.scm
index 8bac680..1ce263c 100644 (file)
--- a/cgen/sim-cpu.scm
+++ b/cgen/sim-cpu.scm
@@ -716,7 +716,8 @@ SEM_FN_NAME (@prefix@,init_idesc_table) (SIM_CPU *current_cpu)
 (define (/gen-sem-case insn parallel?)
   (logit 2 "Processing "
         (if parallel? "parallel " "")
-        "semantic switch case for \"" (insn-syntax insn) "\" ...\n")
+        "semantic switch case for " (obj:name insn) ": \""
+        (insn-syntax insn) "\" ...\n")
   (set! /with-profile? /with-profile-sw?)
   (let ((cti? (insn-cti? insn))
        (insn-len (insn-length-bytes insn)))