Use log_warning when Tcl_Init fails, report error with Tcl_ErrnoMsg.

This commit is contained in:
Alastair M. Robinson 2022-05-16 20:22:28 +01:00
parent 83dbea1689
commit 6c6017c973
1 changed files with 1 additions and 1 deletions

View File

@ -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;