Tcl Source Code

Artifact daae34a2be0216852d206f98c7bcbb470c65a061:

=====================A
ByteCode 0x0x8759a30, refCt 1, epoch 4, interp 0x0x86f3eb8 (epoch 4)
  Source "\n    B x x\n"
  Cmds 1, src 11, inst 9, litObjs 2, aux 0, stkDepth 3, code/src 12.00
  Code 132 = header 104+inst 9+litObj 8+exc 0+aux 0+cmdMap 4
  Proc 0x0x8742f50, refCt 1, args 1, compiled locals 1
      slot 0, scalar, arg, "x"
  Commands 1:
      1: pc 0-7, src 5-9
  Command 1: "B x x"
    (0) push1 0 	# "B"
    (2) push1 1 	# "x"
    (4) push1 1 	# "x"
    (6) invokeStk1 3 
    (8) done 

Calling proc "A" "1" 

Executing ByteCode 0x0x8759a30, refCt 2, epoch 4, interp 0x0x86f3eb8 (epoch 4)
  Source: "\n    B x x\n"
  Cmds 1, src 11, inst 9, litObjs 2, aux 0, stkDepth 3, code/src 12.00
  Code 132 = header 104+inst 9+litObj 8+exc 0+aux 0+cmdMap 4
  Proc 0x0x8742f50, refCt 2, args 1, compiled locals 1
  Starting stack top=0
 1:  0 (0) push1 0 	# "B"
 1:  1 (0) push1 0 => "B"
 1:  1 (2) push1 1 	# "x"
 1:  2 (2) push1 1 => "x"
 1:  2 (4) push1 1 	# "x"
 1:  3 (4) push1 1 => "x"
 1:  3 (6) invokeStk1 3 
 1:  3 (6) invokeStk1 3 => call "B" "x" "x" 
Calling proc "B" "x" "x" 

Executing ByteCode 0x0x873fbc8, refCt 2, epoch 4, interp 0x0x86f3eb8 (epoch 4)
  Source: "\n    return -code error Yo\n"
  Cmds 1, src 27, inst 14, litObjs 2, aux 0, stkDepth 2, code/src 4.89
  Code 132 = header 104+inst 14+litObj 8+exc 0+aux 0+cmdMap 4
  Proc 0x0x875e438, refCt 2, args 2, compiled locals 2
  Starting stack top=0
 2:  0 (0) push1 0 	# "Yo"
 2:  1 (0) push1 0 => "Yo"
 2:  1 (2) push1 1 	# ""
 2:  2 (2) push1 1 => ""
 2:  2 (4) returnImm +1 1 
Yo
    while executing
"B x x"
    (procedure "A" line 2)
    invoked from within
"A 1"
    (file "traceexec.tcl" line 9)
 2:  2 (4) returnImm 1 1 =>  2:  2 (4) returnImm => TCL_RETURN, result= "Yo"
   ... no enclosing catch, returning TCL_RETURN
 1:  3 (7) pop => TCL_ERROR, result= "Yo"
   ... no enclosing catch, returning TCL_ERROR

Executing ByteCode 0x0x875d0d0, refCt 2, epoch 4, interp 0x0x86f3eb8 (epoch 4)
  Source: "exit 1"
  Cmds 1, src 6, inst 7, litObjs 2, aux 0, stkDepth 2, code/src 20.67
  Code 124 = header 104+inst 7+litObj 8+exc 0+aux 0+cmdMap 4
  Starting stack top=0
 0:  0 (0) push1 0 	# "exit"
 0:  1 (0) push1 0 => "exit"
 0:  1 (2) push1 1 	# "1"
 0:  2 (2) push1 1 => "1"
 0:  2 (4) invokeStk1 2 
 0:  2 (4) invokeStk1 2 => call "exit" "1"