tcc4tcl
Check-in [fb2a14e7f1]
Login
HomeTimelineFilesBranchesTagsTicketsWiki
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified tcc4tcl.c from [c43c105480] to [49e3cc661b].

︙
284
285
286
287
288
289
290


291



292
293
294
295
296
297
298

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_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;
︙

Powered by Fossil · RSS