Posted to tcl by jima at Thu Dec 11 18:38:57 GMT 2014view raw

  1. ::tcl::unsupported::disassemble proc ::tes::foo
  2. ByteCode 0x0x1c42ce0, refCt 1, epoch 18, interp 0x0x1ba9060 (epoch 18)
  3. Source "\n\n<!-- { -->\nNo check needed about *listness* of **l"...
  4. Cmds 3, src 101, inst 17, litObjs 1, aux 0, stkDepth 1, code/src 0.00
  5. Proc 0x0x1d6a290, refCt 1, args 1, compiled locals 1
  6. slot 0, scalar, arg, "l"
  7. Commands 3:
  8. 1: pc 0-2, src 2-66 2: pc 3-15, src 77-95
  9. 3: pc 12-14, src 85-94
  10. Command 1: "<!-- { -->\nNo check needed about *listness* of **l**.\n"...
  11. (0) nop
  12. (1) nop
  13. (2) nop
  14. Command 2: "return [llength $l]"...
  15. (3) startCommand +13 2 # next cmd at pc 16, 2 cmds start here
  16. Command 3: "llength $l"...
  17. (12) loadScalar1 %v0 # var "l"
  18. (14) listLength
  19. (15) done
  20. (16) done