Posted to tcl by kbk at Tue Sep 21 18:14:08 GMT 2010view raw

  1. ByteCode 0x0x8fe9970, refCt 1, epoch 4, interp 0x0x8d47ad8 (epoch 4)
  2. Source "::tcl::unsupported::assemble {\n\t {push 3}\n\t {stor"
  3. Cmds 2, src 101, inst 24, litObjs 3, aux 0, stkDepth 2, code/src 1.54
  4. Code 156 = header 104+inst 24+litObj 12+exc 0+aux 0+cmdMap 12
  5. Commands 2:
  6. 1: pc 0-22, src 0-100 2: pc 5-22, src 46224-46238
  7. Command 1: "::tcl::unsupported::assemble {\n\t {push 3}\n\t {stor"
  8. (0) push1 0 # "3"
  9. (2) storeScalar1 %v255
  10. (4) pop
  11. Command 2: "aaaaaaaaaaaa"
  12. (5) startCommand +18 1 # next cmd at pc 23
  13. (14) push1 0 # "3"
  14. (16) push1 1 # "n"
  15. (18) loadScalarStk
  16. (19) mult
  17. (20) push1 2 # "1"
  18. (22) add
  19. (23) done