Differences From Artifact [927889c501]:

• File tcc4tcl.c — part of check-in [9aad02dffb] at 2014-06-21 15:31:30 on branch trunk — Updated "make test" to not try to run sed on binary files (user: rkeene, size: 9259) [annotate] [blame] [check-ins using]

To Artifact [1d0ef6f107]:

• File tcc4tcl.c — part of check-in [4ac72a422f] at 2014-06-21 15:47:25 on branch trunk — Updated to call Tcl_InitStubs() with the current version of Tcl (user: rkeene, size: 9265) [annotate] [blame] [check-ins using]

277
278
279
280
281
282
283
284
285
286
287
288
289
290
291

	Tcl_SetObjResult(interp, objv[objc-1]);

	return TCL_OK;
}

int Tcc4tcl_Init(Tcl_Interp *interp) {
#ifdef USE_TCL_STUBS
	if (Tcl_InitStubs(interp, "8.4" , 0) == 0L) {
		return TCL_ERROR;
	}
#endif

	Tcl_CreateObjCommand(interp, "tcc4tcl", Tcc4tclCreateCmd, NULL, NULL);

	return TCL_OK;

|

277
278
279
280
281
282
283
284
285
286
287
288
289
290
291

	Tcl_SetObjResult(interp, objv[objc-1]);

	return TCL_OK;
}

int Tcc4tcl_Init(Tcl_Interp *interp) {
#ifdef USE_TCL_STUBS
	if (Tcl_InitStubs(interp, TCL_VERSION , 0) == 0L) {
		return TCL_ERROR;
	}
#endif

	Tcl_CreateObjCommand(interp, "tcc4tcl", Tcc4tclCreateCmd, NULL, NULL);

	return TCL_OK;