Use Tcl_GetErrorLine instead of ->errorLine

Signed-off-by: gatecat <gatecat@ds0.me>

diff --git a/distrib/sources/api/api/api_util.c b/distrib/sources/api/api/api_util.c
index 2c92b2561358324c464bd5f5eac92b3f7937960d..bc7afd167fa4671195a491f979f4adce4c81748e 100644 (file)
--- a/distrib/sources/api/api/api_util.c
+++ b/distrib/sources/api/api/api_util.c
@@ -431,7 +431,7 @@ int ReadAllCorVHDL(ExecutionContext *genius_ec, lib_entry *files_list, FILE *deb
                     nb=fread(r,sizeof(char),1000000, f);
                     r[nb]='\0';
                     if (Tcl_EvalEx((Tcl_Interp *)TCL_INTERPRETER, r, -1, TCL_EVAL_GLOBAL)==TCL_ERROR)
-                       avt_errmsg(GNS_ERRMSG, "165", AVT_ERROR, p->name, ((Tcl_Interp *)TCL_INTERPRETER)->errorLine, Tcl_GetStringResult((Tcl_Interp *)TCL_INTERPRETER));
+                       avt_errmsg(GNS_ERRMSG, "165", AVT_ERROR, p->name, Tcl_GetErrorLine((Tcl_Interp *)TCL_INTERPRETER), Tcl_GetStringResult((Tcl_Interp *)TCL_INTERPRETER));
                     mbkfree(r);
                   }
 

diff --git a/distrib/sources/yagle/genius/gen_main.c b/distrib/sources/yagle/genius/gen_main.c
index f92cc7a11d5eaa9680e6a03761296da5223aa3c6..35390ec37facce311cda6c2003ab462ae107ed6f 100644 (file)
--- a/distrib/sources/yagle/genius/gen_main.c
+++ b/distrib/sources/yagle/genius/gen_main.c
@@ -626,7 +626,7 @@ tree_list *Read_All(lib_entry *files_list)
                     nb=fread(r,sizeof(char),1000000, f);
                     r[nb]='\0';
                     if (Tcl_EvalEx((Tcl_Interp *)TCL_INTERPRETER, r, -1, TCL_EVAL_GLOBAL)==TCL_ERROR)
-                        avt_errmsg(GNS_ERRMSG, "165", AVT_ERROR, p->name, ((Tcl_Interp *)TCL_INTERPRETER)->errorLine, Tcl_GetStringResult((Tcl_Interp *)TCL_INTERPRETER));
+                        avt_errmsg(GNS_ERRMSG, "165", AVT_ERROR, p->name, Tcl_GetErrorLine((Tcl_Interp *)TCL_INTERPRETER), Tcl_GetStringResult((Tcl_Interp *)TCL_INTERPRETER));
                     mbkfree(r);
                    }
                    else