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
285
286
287
288
289
290


291


292
293
294
295
296
297
298

	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;







>
>
|
>
>







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;