Posted to tcl by sebres at Mon Jul 22 15:11:30 GMT 2019view raw

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