Check-in [765a81ec0f]
Overview
Comment:When compiling with stubs enabled, also define Tcl_InitStubs()
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 765a81ec0ff84c94da1ddbb62b912224a5022d2b
User & Date: rkeene on 2017-10-17 03:07:49
Other Links: manifest | tags
Context
2017-10-17
03:33
Added support for calling "add_file" (undocumented for now) check-in: cd4a58d22b user: rkeene tags: trunk
03:07
When compiling with stubs enabled, also define Tcl_InitStubs() check-in: 765a81ec0f user: rkeene tags: trunk
2017-10-13
20:37
tcc4tcl 0.30 check-in: 215571a61c user: rkeene tags: trunk, 0.30
Changes

Modified tcc4tcl.c from [2f5bd45b79] to [6954747816].

   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    291   	if (index == TCC_OUTPUT_MEMORY) {
   292         -		/* Only add this symbol if we are compiling to memory */
          292  +		/* Only add these symbols if we are compiling to memory */
   293    293   		tcc_add_symbol(s, "tclStubsPtr", &tclStubsPtr);
          294  +		tcc_add_symbol(s, "Tcl_InitStubs", &Tcl_InitStubs);
   294    295   	}
   295    296   
   296    297   	tcc_define_symbol(s, "USE_TCL_STUBS", "1");
   297    298   #endif
   298    299   
   299    300   	tcc_set_error_func(s, interp, (void *)&Tcc4tclErrorFunc);
   300    301