Merge branch 'build-fixes' into 'master'

[tas-yagle.git] / distrib / sources / yagle / genius / gen_main.c

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