Differences From Artifact [98a9fab416]:

• File unix/dltest/pkgua.c — part of check-in [7b36a6fd46] at 2024-01-12 13:12:41 on branch main — Merge 8.7 (user: jan.nijtmans size: 8749) [more...]

To Artifact [09a84b0905]:

• File unix/dltest/pkgua.c — part of check-in [d8a7be3197] at 2024-11-13 09:30:24 on branch main — GHA win-, linux- and mac-flows: speed-up build (j4), add info section into build. Remove some unneeded typecasts (user: jan.nijtmans size: 8740) [more...]

88
89
90
91
92
93
94
95
96
97
98
99
100
101
102


static void
PkguaDeleteTokens(
    Tcl_Interp *interp)
{
    ThreadSpecificData *tsdPtr = (ThreadSpecificData *)Tcl_GetThreadData((&dataKey), sizeof(ThreadSpecificData));
    Tcl_HashEntry *entryPtr =
	    Tcl_FindHashEntry(&tsdPtr->interpTokenMap, (char *) interp);

    if (entryPtr) {
	Tcl_Free((char *) Tcl_GetHashValue(entryPtr));
	Tcl_DeleteHashEntry(entryPtr);
    }
}


|

88
89
90
91
92
93
94
95
96
97
98
99
100
101
102


static void
PkguaDeleteTokens(
    Tcl_Interp *interp)
{
    ThreadSpecificData *tsdPtr = (ThreadSpecificData *)Tcl_GetThreadData((&dataKey), sizeof(ThreadSpecificData));
    Tcl_HashEntry *entryPtr =
	    Tcl_FindHashEntry(&tsdPtr->interpTokenMap, interp);

    if (entryPtr) {
	Tcl_Free((char *) Tcl_GetHashValue(entryPtr));
	Tcl_DeleteHashEntry(entryPtr);
    }
}