Posted to tcl by kbk at Wed Jan 06 15:51:26 GMT 2016view raw

  1. (0) loadScalar1 %v0 # var "s"
  2. (2) tryCvtToBoolean
  3. (3) reverse 2
  4. (8) pop
  5. (9) jumpTrue1 +19 # pc 28
  6. (11) loadScalar1 %v0 # var "s"
  7. (13) numericType
  8. (14) jumpTrue1 +6 # pc 20
  9. (16) push1 0 # "0"
  10. (18) jump1 +4 # pc 22
  11. (20) push1 1 # "1"
  12. (22) jumpTrue1 +6 # pc 28
  13. (24) push1 0 # "0"
  14. (26) jump1 +4 # pc 30
  15. (28) push1 1 # "1"
  16. (30) jumpFalse1 +6 # pc 36
  17. (32) push1 1 # "1"
  18. (34) jump1 +4 # pc 38
  19. (36) push1 0 # "0"
  20. (38) tryCvtToNumeric