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 |
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 284 285 285 s = tcc_new(Tcl_GetString(objv[1])); 286 286 if (s == NULL) { 287 287 return(TCL_ERROR); 288 288 } 289 289 290 290 #ifdef USE_TCL_STUBS 291 - tcc_add_symbol(s, "tclStubsPtr", &tclStubsPtr); 291 + if (index == 0) { 292 + /* Only add this symbol if we are compiling to memory */ 293 + tcc_add_symbol(s, "tclStubsPtr", &tclStubsPtr); 294 + } 295 + 292 296 tcc_define_symbol(s, "USE_TCL_STUBS", "1"); 293 297 #endif 294 298 295 299 tcc_set_error_func(s, interp, (void *)&Tcc4tclErrorFunc); 296 300 297 301 ts = (void *) ckalloc(sizeof(*ts)); 298 302 ts->s = s;