Overview
| Comment: | Updated to not add the "tclStubsPtr" symbol unless we are compiling to memory |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
fb2a14e7f15cd9024171b2321f5f81a6 |
| User & Date: | rkeene on 2015-02-02 13:44:18.804 |
| Other Links: | manifest | tags |
Context
|
2015-02-02
| ||
| 13:57 | Made this code more readable check-in: 2c9323bb11 user: rkeene tags: trunk | |
| 13:44 | Updated to not add the "tclStubsPtr" symbol unless we are compiling to memory check-in: fb2a14e7f1 user: rkeene tags: trunk | |
|
2014-11-14
| ||
| 22:03 | Added support for a Tcl_Obj* for ClientData in linktclcommand check-in: 7572a36e73 user: auriocus tags: trunk | |
Changes
Modified tcc4tcl.c
from [c43c105480]
to [49e3cc661b].
| ︙ | ︙ | |||
284 285 286 287 288 289 290 |
s = tcc_new(Tcl_GetString(objv[1]));
if (s == NULL) {
return(TCL_ERROR);
}
#ifdef USE_TCL_STUBS
| > > | > > | 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 |
s = tcc_new(Tcl_GetString(objv[1]));
if (s == NULL) {
return(TCL_ERROR);
}
#ifdef USE_TCL_STUBS
if (index == 0) {
/* 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);
ts = (void *) ckalloc(sizeof(*ts));
ts->s = s;
|
| ︙ | ︙ |