1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
Avoid hard-coded structure members in TCL structures
--- a/index/mod_grs_regx.c
+++ b/index/mod_grs_regx.c
@@ -1301,8 +1301,8 @@
{
const char *err = Tcl_GetVar(spec->tcl_interp, "errorInfo", 0);
yaz_log(YLOG_FATAL, "Tcl error, line=%d, \"%s\"\n%s",
- spec->tcl_interp->errorLine,
- spec->tcl_interp->result,
+ Tcl_GetErrorLine(spec->tcl_interp),
+ Tcl_GetStringResult(spec->tcl_interp),
err ? err : "[NO ERRORINFO]");
}
}
|