diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-23 12:20:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-23 12:20:34 (GMT) |
| commit | efce255dd9821b8dacf7c24731015f2eea93a96b (patch) | |
| tree | 78e4eb4bfdf3e4739b36a88dd7bf94221fc21247 /win | |
| parent | 21134c44f3434c701ef4f166be74f389cd3425bd (diff) | |
| parent | 6d23f73e8aba5d1c6ed987c139b2b719be84a254 (diff) | |
| download | tcl-efce255dd9821b8dacf7c24731015f2eea93a96b.zip tcl-efce255dd9821b8dacf7c24731015f2eea93a96b.tar.gz tcl-efce255dd9821b8dacf7c24731015f2eea93a96b.tar.bz2 | |
Merge 9.0. Update documentation
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinInit.c | 14 | ||||
| -rw-r--r-- | win/tclWinTime.c | 4 |
2 files changed, 2 insertions, 16 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 55588e6..8e7ca8a 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -493,20 +493,6 @@ TclpSetVariables( TCL_GLOBAL_ONLY); } -#if !defined(NDEBUG) && !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9 - - /* - * The existence of the "debug" element of the tcl_platform array - * indicates that this particular Tcl shell has been compiled with debug - * information. Using "info exists tcl_platform(debug)" a Tcl script can - * direct the interpreter to load debug versions of DLLs with the load - * command. - */ - - Tcl_SetVar2(interp, "tcl_platform", "debug", "1", - TCL_GLOBAL_ONLY); -#endif - /* * Set up the HOME environment variable from the HOMEDRIVE & HOMEPATH * environment variables, if necessary. diff --git a/win/tclWinTime.c b/win/tclWinTime.c index c826840..15d9117 100644 --- a/win/tclWinTime.c +++ b/win/tclWinTime.c @@ -221,8 +221,8 @@ TclpGetClicks(void) Tcl_Time now; /* Current Tcl time */ GetTime(&now); - return ((unsigned long long)(unsigned long) now.sec * 1000000ULL) + - now.usec; + return ((unsigned long long)(now.sec)*1000000ULL) + + (unsigned long long)(now.usec); } } |