Overview
| Comment: | Create a Tcl_Init() symbol if we are creating a static libtclkit |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | feature-kitdll-static |
| Files: | files | file ages | folders |
| SHA1: |
e6ab988ad474cefc424de39ff4de1ea6 |
| User & Date: | rkeene on 2016-02-24 20:41:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-02-24
| ||
| 20:52 | Merged in support for creating a static KitDLL check-in: 3fc6a2107a user: rkeene tags: trunk | |
| 20:41 | Create a Tcl_Init() symbol if we are creating a static libtclkit Closed-Leaf check-in: e6ab988ad4 user: rkeene tags: feature-kitdll-static | |
| 20:26 | Created a mechanism for specifying which KitDLL to build check-in: eb5004bca0 user: rkeene tags: feature-kitdll-static | |
Changes
Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [3cb384a768] to [f888dda2c4].
| ︙ | ︙ | |||
567 568 569 570 571 572 573 574 575 576 577 578 579 |
* are ready to be used when invoked.
*/
#ifdef TCLKIT_DLL
void __attribute__((constructor)) _Tclkit_Init(void) {
#else
static void _Tclkit_Init(void) {
#endif
Tcl_StaticPackage(0, "tclkit::init", Tclkit_init_Init, NULL);
_Tclkit_Generic_Init();
return;
}
| > > > > > > > > > > > > > > > > > > | 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 |
* are ready to be used when invoked.
*/
#ifdef TCLKIT_DLL
void __attribute__((constructor)) _Tclkit_Init(void) {
#else
static void _Tclkit_Init(void) {
#endif
static int called = 0;
if (called) {
return;
}
called = 1;
Tcl_StaticPackage(0, "tclkit::init", Tclkit_init_Init, NULL);
_Tclkit_Generic_Init();
return;
}
#if defined(TCLKIT_DLL) && defined(TCLKIT_DLL_STATIC)
int Tcl_InitReal(Tcl_Interp *interp);
int Tcl_Init(Tcl_Interp *interp) {
_Tclkit_Init();
return(Tcl_InitReal(interp));
}
#endif
|