Tcl Source Code

Check-in [fdb8258252]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:merge point (with small amend, same type as in 9.0 header declared for Tcl_Time::sec)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | main
Files: files | file ages | folders
SHA3-256: fdb8258252d27142e8ce50bd009134eba3dc8dd9cf55a393eb79c8344f784508
User & Date: sebres 2024-04-17 15:17:36
Context
2024-04-17
15:37
Merge 8.7 check-in: 22d168549e user: jan.nijtmans tags: trunk, main
15:17
merge point (with small amend, same type as in 9.0 header declared for Tcl_Time::sec) check-in: fdb8258252 user: sebres tags: trunk, main
15:13
cherrypick [b73516f7cfccbc9f] to 8.7 - closes [167e0635db]: solves leaks, valgrind test, etc check-in: 62f9f8b56b user: sebres tags: core-8-branch
15:03
closes [167e0635db]: solves leaks, valgrind test, etc check-in: b73516f7cf user: sebres tags: trunk, main
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclClock.c.

4648
4649
4650
4651
4652
4653
4654

4655



4656
4657
4658
4659
4660
4661
4662
#define wcscmp strcmp
#define wcscpy strcpy
#endif
#define TZ_INIT_MARKER	((WCHAR *) INT2PTR(-1))

typedef struct ClockTzStatic {
    WCHAR *was;			/* Previous value of TZ. */

    long long lastRefresh;	/* Used for latency before next refresh. */



    size_t epoch;		/* Epoch, signals that TZ changed. */
    size_t envEpoch;		/* Last env epoch, for faster signaling,
				 * that TZ changed via TCL */
} ClockTzStatic;
static ClockTzStatic tz = {	/* Global timezone info; protected by
				 * clockMutex.*/
    TZ_INIT_MARKER, 0, 0, 0







>

>
>
>







4648
4649
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661
4662
4663
4664
4665
4666
#define wcscmp strcmp
#define wcscpy strcpy
#endif
#define TZ_INIT_MARKER	((WCHAR *) INT2PTR(-1))

typedef struct ClockTzStatic {
    WCHAR *was;			/* Previous value of TZ. */
#if TCL_MAJOR_VERSION > 8
    long long lastRefresh;	/* Used for latency before next refresh. */
#else
    long lastRefresh;		/* Used for latency before next refresh. */
#endif
    size_t epoch;		/* Epoch, signals that TZ changed. */
    size_t envEpoch;		/* Last env epoch, for faster signaling,
				 * that TZ changed via TCL */
} ClockTzStatic;
static ClockTzStatic tz = {	/* Global timezone info; protected by
				 * clockMutex.*/
    TZ_INIT_MARKER, 0, 0, 0