From: Alastair M. Robinson <robinsonb5@gmail.com>
Date: Mon, 16 May 2022 19:22:28 +0000 (+0100)
Subject: Use log_warning when Tcl_Init fails, report error with Tcl_ErrnoMsg.
X-Git-Tag: divfloor-in-write_smt2-old-test~24^2
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6c6017c97374d0c0c01b87f1ce960ee9316a81b2;p=yosys.git

Use log_warning when Tcl_Init fails, report error with Tcl_ErrnoMsg.
---

diff --git a/kernel/yosys.cc b/kernel/yosys.cc
index 6ab283148..4e1a3ca7e 100644
--- a/kernel/yosys.cc
+++ b/kernel/yosys.cc
@@ -734,7 +734,7 @@ extern Tcl_Interp *yosys_get_tcl_interp()
 	if (yosys_tcl_interp == NULL) {
 		yosys_tcl_interp = Tcl_CreateInterp();
 		if (Tcl_Init(yosys_tcl_interp)!=TCL_OK)
-			log("Tcl_Init() call failed\n");
+			log_warning("Tcl_Init() call failed - %s\n",Tcl_ErrnoMsg(Tcl_GetErrno()));
 		Tcl_CreateCommand(yosys_tcl_interp, "yosys", tcl_yosys_cmd, NULL, NULL);
 	}
 	return yosys_tcl_interp;