Posted to tcl by kbk at Tue Sep 21 18:14:08 GMT 2010view pretty
ByteCode 0x0x8fe9970, refCt 1, epoch 4, interp 0x0x8d47ad8 (epoch 4) Source "::tcl::unsupported::assemble {\n\t {push 3}\n\t {stor" Cmds 2, src 101, inst 24, litObjs 3, aux 0, stkDepth 2, code/src 1.54 Code 156 = header 104+inst 24+litObj 12+exc 0+aux 0+cmdMap 12 Commands 2: 1: pc 0-22, src 0-100 2: pc 5-22, src 46224-46238 Command 1: "::tcl::unsupported::assemble {\n\t {push 3}\n\t {stor" (0) push1 0 # "3" (2) storeScalar1 %v255 (4) pop Command 2: "aaaaaaaaaaaa" (5) startCommand +18 1 # next cmd at pc 23 (14) push1 0 # "3" (16) push1 1 # "n" (18) loadScalarStk (19) mult (20) push1 2 # "1" (22) add (23) done