Tcl Source Code

Artifact b5fcb9b39d7048d61fda57382e84210267960bcf:

Attachment "tclClock.c.diff" to ticket [597728ffff] added by vasiljevic 2002-09-04 00:27:43.

---

--- tclClock.c	Tue Sep  3 19:22:00 2002
+++ tclClock.c.orig	Tue Sep  3 19:18:35 2002
@@ -290,9 +290,6 @@
     }
 
 #if !defined(HAVE_TM_ZONE) && !defined(WIN32)
-
-    Tcl_MutexLock(&clockMutex);
-
     /*
      * This is a kludge for systems not having the timezone string in
      * struct tm.  No matter what was specified, they use the local
@@ -342,8 +339,6 @@
     Tcl_DStringFree(&uniBuffer);
 
 #if !defined(HAVE_TM_ZONE) && !defined(WIN32)
-    result = TclpStrftime(buffer.string, (unsigned int) bufSize, format,
-	    timeDataPtr);
     if (useGMT) {
         if (savedTZEnv != NULL) {
             Tcl_SetVar2(interp, "env", "TZ", savedTZEnv, TCL_GLOBAL_ONLY);
@@ -354,12 +349,7 @@
         timezone = savedTimeZone;
         tzset();
     }
-#else
-    Tcl_MutexLock(&clockMutex);
-    result = TclpStrftime(buffer.string, (unsigned int) bufSize, format,
-	    timeDataPtr);
-    Tcl_MutexUnlock(&clockMutex);
-#endif /* not defined HAVE_TM_ZONE */
+#endif
 
     if (result == 0) {
 	/*