Posted to tcl by miguel at Sat Nov 24 12:41:08 GMT 2007view raw
- % proc moo {} {
- set apa {}
- dict append apa a 5
- }
- % tcl::unsupported::disassemble proc moo
- ByteCode 0x0x81e8fe0, refCt 1, epoch 3, interp 0x0x81854f8 (epoch 3)
- Source "\nset apa {}\ndict append apa a 5\n"
- Cmds 2, src 34, inst 26, litObjs 2, aux 0, stkDepth 2, code/src 4.47
- Code 152 = header 104+inst 26+litObj 8+exc 0+aux 0+cmdMap 8
- Proc 0x0x81b60b8, refCt 1, args 0, compiled locals 2
- slot 0, scalar, "apa"
- slot 1, scalar, "a"
- Commands 2:
- 1: pc 0-4, src 1-10 2: pc 5-24, src 12-32
- Command 1: "set apa {}"
- (0) push1 0 # ""
- (2) storeScalar1 %v0 # var "apa"
- (4) pop
- Command 2: "dict append apa a 5"
- (5) startCommand +20 1 # next cmd at pc 25
- (14) push1 1 # "5"
- (16) push1 1 # "5"
- (18) concat1 2
- (20) dictAppend %v1 # var "a"
- (25) done
- % moo
- Segmentation fault (core dumped)
- make: *** [shell] Error 139