@@ -250,17 +250,15 @@ if (Tcl_GetIndexFromObj(interp, objv[2], types, "type", 0, &index) != TCL_OK) { return TCL_ERROR; } } - s = tcc_new(); + s = tcc_new(Tcl_GetString(objv[1])); if (s == NULL) { return(TCL_ERROR); } - s->tcc_lib_path = tcc_strdup(Tcl_GetString(objv[1])); - tcc_set_error_func(s, interp, (void *)&Tcc4tclErrorFunc); ts = (void *) ckalloc(sizeof(*ts)); ts->s = s; ts->relocated = 0;