Posted to tcl by sebres at Mon Jul 22 15:11:30 GMT 2019view pretty
% tcl::unsupported::disassemble script {timerate {some code here} 1000 1000000} Source "timerate {some code here} 1000 1000000" Cmds 2, src 38, inst 19, litObjs 4, aux 0, stkDepth 3, code/src 0.00 Exception ranges 1, depth 1: 0: level 0, loop, pc 4-12, continue 13, break 18 Structures 1: 0: timerate loopCD1, pc: 0-17, flags: 0, threshold: 1, maxTime: 1000, maxCount: 1000000 Commands 2: 1: pc 0-17, src 0-37 2: pc 4-11, src 10-24 Command 1: "timerate {some code here} 1000 1000000" (2) invokeCDCall 0 # dispatch "timerate loopCD1", pc 4 loopCD1: Command 2: "some code here" (4) push 1 # "some" (6) push 2 # "code" (8) push 3 # "here" (10) invokeStk 3 (12) pop Command 1: ... (13) decrIntCDIter 0 1 # iterate "timerate loopCD1", pc 4 if --"threshold" > 0 (16) invokeCDCall 0 # continue "timerate loopCD1", pc 4 breakCD1: (18) done