Posted to tcl by dkf at Thu Oct 25 12:44:11 GMT 2012view pretty
% tcl::unsupported::disassemble script {namespace code foo} ByteCode 0x0xa7110, refCt 1, epoch 5, interp 0x0x2dc10 (epoch 5) Source "namespace code foo" Cmds 1, src 18, inst 13, litObjs 3, aux 0, stkDepth 4, code/src 0.00 Commands 1: 1: pc 0-11, src 0-17 Command 1: "namespace code foo" (0) push1 0 # "::namespace" (2) push1 1 # "inscope" (4) nscurrent (5) push1 2 # "foo" (7) list 4 (12) done