TCL脚本stack trace未显示实际错误抛出行号如何解决

问题原因 #

TCL的try命令捕获块内错误时，默认会将错误的行号计算基准对齐到try关键字所在的行，示例中try命令位于源文件第3行，错误抛出位置在try块内第2行，因此默认返回的-errorline值为2，并非全局源文件的行号。

解决方法 #

方法1：抛出错误时指定上报层级 #

调用error命令时显式传入-level 2参数，让错误行号计算跳过try的块作用域，直接基于全局源文件行号统计：

puts [info patchlevel]

try {
    error "this is an error" "" -level 2
} trap {} {result ropts} {
    puts $result
    puts $ropts
}

修改后运行脚本，-errorline字段将返回错误实际抛出的全局行号4。
-level参数指定错误上报的调用栈层级，默认值为1，代表在error命令的当前调用层级上报，行号相对try块起始行计算偏移。设置为2后，会向上多跳过一层栈帧，直接基于整个源文件的全局行号计算错误位置。

方法2：从错误栈中提取真实行号 #

如果不想修改现有error调用逻辑，可以从返回选项字典的-errorstack字段中提取原始行号，该字段存储了完整调用栈信息，不受try命令的层级调整影响。

内容的提问来源于stack exchange，提问作者mvanle