Posted to tcl by kbk at Thu Sep 23 00:30:17 GMT 2010view pretty
set ::tcl_traceCompile 2 tcl::unsupported::assemble { # puts "n = [expr {2 + 2}]" push puts; # stack = puts push {n = }; # stack = puts {n = } push 2; # stack = puts {n = } 2 push 2; # stack = puts {n = } 2 2 add; # stack = puts {n = } 4 concat 2; # stack = puts {n = 4} invokeStk; # stack = (empty result of puts) pop; # discard empty result }