From: gatecat <gatecat@ds0.me>
Date: Mon, 3 Jan 2022 19:04:32 +0000 (+0000)
Subject: Use Tcl_GetErrorLine instead of ->errorLine
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8ef61fcb9b900a03c8d4ca9c97e7da7757cfbaf5;p=tas-yagle.git

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 2c92b25..bc7afd1 100644
--- 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 f92cc7a..35390ec 100644
--- 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