@@ -254,10 +254,15 @@ s = tcc_new(Tcl_GetString(objv[1])); if (s == NULL) { return(TCL_ERROR); } + +#ifdef USE_TCL_STUBS + tcc_add_symbol(s, "tclStubsPtr", &tclStubsPtr); + tcc_define_symbol(s, "USE_TCL_STUBS", "1"); +#endif tcc_set_error_func(s, interp, (void *)&Tcc4tclErrorFunc); ts = (void *) ckalloc(sizeof(*ts)); ts->s = s;