Posted to tcl by miguel at Wed Dec 26 23:34:58 GMT 2007view raw
- % proc a {} foo
- % a
- invalid command name "foo"
- % proc foo args {}
- % a
- % tcl::unsupported::disassemble proc a
- ByteCode 0x0x816e208, refCt 1, epoch 3, interp 0x0x8138490 (epoch 3)
- Source "foo"
- Cmds 1, src 3, inst 5, litObjs 1, aux 0, stkDepth 1, code/src 0.00
- Proc 0x0x816e1c0, refCt 1, args 0, compiled locals 0
- Commands 1:
- 1: pc 0-3, src 0-2
- Command 1: "foo"
- (0) push1 0 # "foo"
- (2) invokeStk1 1
- (4) done
- % proc b {} foo
- % tcl::unsupported::disassemble proc b
- ByteCode 0x0x816c7d0, refCt 1, epoch 3, interp 0x0x8138490 (epoch 3)
- Source "foo"
- Cmds 1, src 3, inst 3, litObjs 1, aux 0, stkDepth 1, code/src 0.00
- Proc 0x0x814c560, refCt 1, args 0, compiled locals 0
- Commands 1:
- 1: pc 0-1, src 0-2
- Command 1: "foo"
- (0) push1 0 # ""
- (2) done