Show which opcodes are jumps in the comments when generating
the opcodes.h header file.
FossilOrigin-Name: eef643a369250f1acac4c01a9b3d29068a510e5bf7fa843d565df5e2523e4dd9
diff --git a/tool/mkopcodeh.tcl b/tool/mkopcodeh.tcl
index e3f5c76..a12d190 100644
--- a/tool/mkopcodeh.tcl
+++ b/tool/mkopcodeh.tcl
@@ -202,19 +202,17 @@
set name $def($i)
puts -nonewline [format {#define %-16s %3d} $name $i]
set com {}
+ if {$jump($name)} {
+ lappend com "jump"
+ }
if {[info exists sameas($i)]} {
- set com "same as $sameas($i)"
+ lappend com "same as $sameas($i)"
}
if {[info exists synopsis($name)]} {
- set x $synopsis($name)
- if {$com==""} {
- set com "synopsis: $x"
- } else {
- append com ", synopsis: $x"
- }
+ lappend com "synopsis: $synopsis($name)"
}
- if {$com!=""} {
- puts -nonewline [format " /* %-42s */" $com]
+ if {[llength $com]} {
+ puts -nonewline [format " /* %-42s */" [join $com {, }]]
}
puts ""
}