Diff

Differences From Artifact [3cb384a768]:

To Artifact [f888dda2c4]:


   567    567    * are ready to be used when invoked.
   568    568    */
   569    569   #ifdef TCLKIT_DLL
   570    570   void __attribute__((constructor)) _Tclkit_Init(void) {
   571    571   #else
   572    572   static void _Tclkit_Init(void) {
   573    573   #endif
          574  +	static int called = 0;
          575  +
          576  +	if (called) {
          577  +		return;
          578  +	}
          579  +
          580  +	called = 1;
          581  +
   574    582   	Tcl_StaticPackage(0, "tclkit::init", Tclkit_init_Init, NULL);
   575    583   
   576    584   	_Tclkit_Generic_Init();
   577    585   
   578    586   	return;
   579    587   }
          588  +
          589  +#if defined(TCLKIT_DLL) && defined(TCLKIT_DLL_STATIC)
          590  +int Tcl_InitReal(Tcl_Interp *interp);
          591  +
          592  +int Tcl_Init(Tcl_Interp *interp) {
          593  +	_Tclkit_Init();
          594  +
          595  +	return(Tcl_InitReal(interp));
          596  +}
          597  +#endif