Posted to tcl by dkf at Thu Oct 25 12:44:11 GMT 2012view raw

  1. % tcl::unsupported::disassemble script {namespace code foo}
  2. ByteCode 0x0xa7110, refCt 1, epoch 5, interp 0x0x2dc10 (epoch 5)
  3. Source "namespace code foo"
  4. Cmds 1, src 18, inst 13, litObjs 3, aux 0, stkDepth 4, code/src 0.00
  5. Commands 1:
  6. 1: pc 0-11, src 0-17
  7. Command 1: "namespace code foo"
  8. (0) push1 0 # "::namespace"
  9. (2) push1 1 # "inscope"
  10. (4) nscurrent
  11. (5) push1 2 # "foo"
  12. (7) list 4
  13. (12) done
  14.