Posted to tcl by miguel at Wed Dec 26 23:34:58 GMT 2007view raw

  1. % proc a {} foo
  2. % a
  3. invalid command name "foo"
  4. % proc foo args {}
  5. % a
  6. % tcl::unsupported::disassemble proc a
  7. ByteCode 0x0x816e208, refCt 1, epoch 3, interp 0x0x8138490 (epoch 3)
  8. Source "foo"
  9. Cmds 1, src 3, inst 5, litObjs 1, aux 0, stkDepth 1, code/src 0.00
  10. Proc 0x0x816e1c0, refCt 1, args 0, compiled locals 0
  11. Commands 1:
  12. 1: pc 0-3, src 0-2
  13. Command 1: "foo"
  14. (0) push1 0 # "foo"
  15. (2) invokeStk1 1
  16. (4) done
  17.  
  18. % proc b {} foo
  19. % tcl::unsupported::disassemble proc b
  20. ByteCode 0x0x816c7d0, refCt 1, epoch 3, interp 0x0x8138490 (epoch 3)
  21. Source "foo"
  22. Cmds 1, src 3, inst 3, litObjs 1, aux 0, stkDepth 1, code/src 0.00
  23. Proc 0x0x814c560, refCt 1, args 0, compiled locals 0
  24. Commands 1:
  25. 1: pc 0-1, src 0-2
  26. Command 1: "foo"
  27. (0) push1 0 # ""
  28. (2) done