Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | tweak rl_json for Win32 builds |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
428dbafaa6caf7785379152b277fed9c |
| User & Date: | chw 2020-02-10 10:28:09.267 |
Context
|
2020-02-10
| ||
| 14:14 | add tk upstream changes check-in: 00f11c761d user: chw tags: trunk | |
| 10:28 | merge with trunk check-in: c18ec81ad5 user: chw tags: wtf-8-experiment | |
| 10:28 | tweak rl_json for Win32 builds check-in: 428dbafaa6 user: chw tags: trunk | |
| 09:19 | update rl_json to version 0.11.0 check-in: 1a97144602 user: chw tags: trunk | |
Changes
Changes to jni/rl_json/generic/rl_json.c.
| ︙ | ︙ | |||
3444 3445 3446 3447 3448 3449 3450 3451 3452 3453 3454 3455 3456 3457 |
free(l); l = NULL;
}
//}}}
static int checkmem(ClientData cdata, Tcl_Interp* interp, int objc, Tcl_Obj *const objv[]) //{{{
{
int retcode = TCL_OK;
FILE* h_before = NULL;
FILE* h_after = NULL;
char linebuf[1024];
char* line = NULL;
Tcl_HashTable seen;
Tcl_Obj* res = NULL;
| > > > > | 3444 3445 3446 3447 3448 3449 3450 3451 3452 3453 3454 3455 3456 3457 3458 3459 3460 3461 |
free(l); l = NULL;
}
//}}}
static int checkmem(ClientData cdata, Tcl_Interp* interp, int objc, Tcl_Obj *const objv[]) //{{{
{
#ifdef _WIN32
// Not implemented, but no error reported
return TCL_OK;
#else
int retcode = TCL_OK;
FILE* h_before = NULL;
FILE* h_after = NULL;
char linebuf[1024];
char* line = NULL;
Tcl_HashTable seen;
Tcl_Obj* res = NULL;
|
| ︙ | ︙ | |||
3529 3530 3531 3532 3533 3534 3535 3536 3537 3538 3539 3540 3541 3542 |
finally:
release_tclobj(&res);
if (h_before) {fclose(h_before); h_before = NULL;}
if (h_after) {fclose(h_after); h_after = NULL;}
Tcl_DeleteHashTable(&seen);
return retcode;
}
//}}}
#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */
| > | 3533 3534 3535 3536 3537 3538 3539 3540 3541 3542 3543 3544 3545 3546 3547 |
finally:
release_tclobj(&res);
if (h_before) {fclose(h_before); h_before = NULL;}
if (h_after) {fclose(h_after); h_after = NULL;}
Tcl_DeleteHashTable(&seen);
return retcode;
#endif
}
//}}}
#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */
|
| ︙ | ︙ |