Posted to tcl by miguel at Sat Nov 24 12:41:08 GMT 2007view raw

  1. % proc moo {} {
  2. set apa {}
  3. dict append apa a 5
  4. }
  5. % tcl::unsupported::disassemble proc moo
  6. ByteCode 0x0x81e8fe0, refCt 1, epoch 3, interp 0x0x81854f8 (epoch 3)
  7. Source "\nset apa {}\ndict append apa a 5\n"
  8. Cmds 2, src 34, inst 26, litObjs 2, aux 0, stkDepth 2, code/src 4.47
  9. Code 152 = header 104+inst 26+litObj 8+exc 0+aux 0+cmdMap 8
  10. Proc 0x0x81b60b8, refCt 1, args 0, compiled locals 2
  11. slot 0, scalar, "apa"
  12. slot 1, scalar, "a"
  13. Commands 2:
  14. 1: pc 0-4, src 1-10 2: pc 5-24, src 12-32
  15. Command 1: "set apa {}"
  16. (0) push1 0 # ""
  17. (2) storeScalar1 %v0 # var "apa"
  18. (4) pop
  19. Command 2: "dict append apa a 5"
  20. (5) startCommand +20 1 # next cmd at pc 25
  21. (14) push1 1 # "5"
  22. (16) push1 1 # "5"
  23. (18) concat1 2
  24. (20) dictAppend %v1 # var "a"
  25. (25) done
  26.  
  27. % moo
  28. Segmentation fault (core dumped)
  29. make: *** [shell] Error 139