diff options
author | drh <drh@noemail.net> | 2017-08-02 03:21:52 +0000 |
---|---|---|
committer | drh <drh@noemail.net> | 2017-08-02 03:21:52 +0000 |
commit | a02860511d6e22afd0bfc8575ed614a4fb4a9ab4 (patch) | |
tree | 2c13a4b3228b78cfc7324b432ec0d4caa16bc0c8 /tool/mkopcodeh.tcl | |
parent | 59c435a015180c848e5f53e7bf7a68d53d164989 (diff) | |
download | sqlite-a02860511d6e22afd0bfc8575ed614a4fb4a9ab4.tar.gz sqlite-a02860511d6e22afd0bfc8575ed614a4fb4a9ab4.zip |
Show which opcodes are jumps in the comments when generating
the opcodes.h header file.
FossilOrigin-Name: eef643a369250f1acac4c01a9b3d29068a510e5bf7fa843d565df5e2523e4dd9
Diffstat (limited to 'tool/mkopcodeh.tcl')
-rw-r--r-- | tool/mkopcodeh.tcl | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/tool/mkopcodeh.tcl b/tool/mkopcodeh.tcl index e3f5c7688..a12d1901e 100644 --- a/tool/mkopcodeh.tcl +++ b/tool/mkopcodeh.tcl @@ -202,19 +202,17 @@ for {set i 0} {$i<=$max} {incr 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" - } + lappend com "synopsis: $synopsis($name)" } - if {$com!=""} { - puts -nonewline [format " /* %-42s */" $com] + if {[llength $com]} { + puts -nonewline [format " /* %-42s */" [join $com {, }]] } puts "" } |