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

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