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