=====================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"