Differences From Artifact [3b3e7d31f8]:

• File tools/tsdPerf.c — part of check-in [4ecf252eb3] at 2012-12-06 16:40:21 on branch novem-reduced-symbol-export — Be even stricter: on alpha/beta, extesions only run with the exact same Tcl version. Stub library improvements. (user: jan.nijtmans size: 1169) [more...]

To Artifact [8205bbcf9b]:

• File tools/tsdPerf.c — part of check-in [28ee40df7e] at 2013-02-19 15:46:06 on branch novem-reduced-symbol-export — merge novem (user: jan.nijtmans size: 1170) [more...]

29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

}

static int
tsdPerfGetObjCmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv) {
    TsdPerf *perf = Tcl_GetThreadData(&key, sizeof(TsdPerf));


    Tcl_SetObjResult(interp, Tcl_NewIntObj(perf->value));

    return TCL_OK;
}

int
Tsdperf_Init(Tcl_Interp *interp) {
    if (Tcl_InitStubs(interp, "8.5-", 0) == NULL) {

|

29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

}

static int
tsdPerfGetObjCmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv) {
    TsdPerf *perf = Tcl_GetThreadData(&key, sizeof(TsdPerf));


    Tcl_SetObjResult(interp, Tcl_NewLongObj(perf->value));

    return TCL_OK;
}

int
Tsdperf_Init(Tcl_Interp *interp) {
    if (Tcl_InitStubs(interp, "8.5-", 0) == NULL) {