Index: tool/mkopcodeh.tcl ================================================================== --- tool/mkopcodeh.tcl +++ tool/mkopcodeh.tcl @@ -200,23 +200,21 @@ } if {$i>$max} {set max $i} 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" - } - } - if {$com!=""} { - puts -nonewline [format " /* %-42s */" $com] + lappend com "synopsis: $synopsis($name)" + } + if {[llength $com]} { + puts -nonewline [format " /* %-42s */" [join $com {, }]] } puts "" } if {$max>255} {