285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
|
s = tcc_new(Tcl_GetString(objv[1]));
if (s == NULL) {
return(TCL_ERROR);
}
#ifdef USE_TCL_STUBS
if (index == TCC_OUTPUT_MEMORY) {
/* Only add this symbol if we are compiling to memory */
tcc_add_symbol(s, "tclStubsPtr", &tclStubsPtr);
}
tcc_define_symbol(s, "USE_TCL_STUBS", "1");
#endif
tcc_set_error_func(s, interp, (void *)&Tcc4tclErrorFunc);
|
|
>
|
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
|
s = tcc_new(Tcl_GetString(objv[1]));
if (s == NULL) {
return(TCL_ERROR);
}
#ifdef USE_TCL_STUBS
if (index == TCC_OUTPUT_MEMORY) {
/* Only add these symbols if we are compiling to memory */
tcc_add_symbol(s, "tclStubsPtr", &tclStubsPtr);
tcc_add_symbol(s, "Tcl_InitStubs", &Tcl_InitStubs);
}
tcc_define_symbol(s, "USE_TCL_STUBS", "1");
#endif
tcc_set_error_func(s, interp, (void *)&Tcc4tclErrorFunc);
|