Posted to tcl by kbk at Thu Sep 23 00:30:17 GMT 2010view raw
- 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
- }