Check-in [fb2a14e7f1]
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:fb2a14e7f15cd9024171b2321f5f81a67e495431
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;