Check-in [428dbafaa6]
Not logged in

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: 428dbafaa6caf7785379152b277fed9c578575f2
User & Date: chw 2020-02-10 10:28:09
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to jni/rl_json/generic/rl_json.c.

3444
3445
3446
3447
3448
3449
3450




3451
3452
3453
3454
3455
3456
3457
....
3529
3530
3531
3532
3533
3534
3535

3536
3537
3538
3539
3540
3541
3542

	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;
................................................................................
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 */







>
>
>
>







 







>







3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
....
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547

	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;
................................................................................
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 */