Attachment "atip302-85.diff" to
ticket [3328635fff]
added by
chw
2016-09-28 10:31:16.
0000: 63 68 65 63 6b 6f 75 74 3a 20 20 20 20 20 61 32 checkout: a2
0010: 36 30 36 37 62 32 35 32 63 62 31 32 33 61 32 33 6067b252cb123a23
0020: 30 63 34 32 38 36 33 35 37 35 30 30 30 31 61 62 0c428635750001ab
0030: 32 32 39 65 65 61 20 32 30 31 36 2d 30 39 2d 32 229eea 2016-09-2
0040: 31 20 30 39 3a 31 35 3a 33 34 20 55 54 43 0a 70 1 09:15:34 UTC.p
0050: 61 72 65 6e 74 3a 20 20 20 20 20 20 20 34 62 32 arent: 4b2
0060: 64 36 61 30 62 61 30 37 64 34 36 62 30 34 33 38 d6a0ba07d46b0438
0070: 63 34 66 30 38 66 34 61 65 38 65 36 61 39 34 35 c4f08f4ae8e6a945
0080: 62 37 36 66 63 20 32 30 31 36 2d 30 39 2d 30 37 b76fc 2016-09-07
0090: 20 31 37 3a 33 30 3a 31 38 20 55 54 43 0a 6d 65 17:30:18 UTC.me
00a0: 72 67 65 64 2d 69 6e 74 6f 3a 20 20 35 37 32 66 rged-into: 572f
00b0: 64 33 31 32 36 38 31 33 32 38 66 66 31 63 32 61 d312681328ff1c2a
00c0: 66 63 31 66 31 65 33 65 35 33 34 64 62 62 62 63 fc1f1e3e534dbbbc
00d0: 66 62 35 66 20 32 30 31 36 2d 30 39 2d 32 31 20 fb5f 2016-09-21
00e0: 30 39 3a 32 30 3a 35 34 20 55 54 43 0a 6c 65 61 09:20:54 UTC.lea
00f0: 66 3a 20 20 20 20 20 20 20 20 20 6f 70 65 6e 0a f: open.
0100: 74 61 67 73 3a 20 20 20 20 20 20 20 20 20 63 6f tags: co
0110: 72 65 2d 38 2d 35 2d 62 72 61 6e 63 68 0a 63 6f re-8-5-branch.co
0120: 6d 6d 65 6e 74 3a 20 20 20 20 20 20 4d 61 6b 65 mment: Make
0130: 20 69 74 20 6d 6f 72 65 20 6c 69 6b 65 6c 79 20 it more likely
0140: 74 68 61 74 20 63 6f 6d 70 69 6c 65 64 20 77 69 that compiled wi
0150: 74 68 20 56 53 32 30 31 32 2f 56 53 32 30 31 33 th VS2012/VS2013
0160: 20 61 63 74 75 61 6c 6c 79 0a 20 20 20 20 20 20 actually.
0170: 20 20 20 20 20 20 20 20 77 6f 72 6b 20 6f 6e 20 work on
0180: 57 69 6e 64 6f 77 73 20 58 50 2e 20 53 65 65 3a Windows XP. See:
0190: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b . [
01a0: 68 74 74 70 73 3a 2f 2f 74 65 64 77 76 63 2e 77 https://tedwvc.w
01b0: 6f 72 64 70 72 65 73 73 2e 63 6f 6d 2f 32 30 31 ordpress.com/201
01c0: 34 2f 30 31 2f 30 31 2f 68 6f 77 2d 74 6f 2d 74 4/01/01/how-to-t
01d0: 61 72 67 65 74 2d 78 70 2d 77 69 74 68 2d 0a 20 arget-xp-with-.
01e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 76 63 32 vc2
01f0: 30 31 32 2d 6f 72 2d 76 63 32 30 31 33 2d 61 6e 012-or-vc2013-an
0200: 64 2d 63 6f 6e 74 69 6e 75 65 2d 74 6f 2d 75 73 d-continue-to-us
0210: 65 2d 74 68 65 2d 77 69 6e 64 6f 77 73 2d 38 2d e-the-windows-8-
0220: 78 2d 73 64 6b 2f 5d 0a 20 20 20 20 20 20 20 20 x-sdk/].
0230: 20 20 20 20 20 20 28 75 73 65 72 3a 20 6a 61 6e (user: jan
0240: 2e 6e 69 6a 74 6d 61 6e 73 29 0a 0a 49 6e 64 65 .nijtmans)..Inde
0250: 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 6d x: generic/tclCm
0260: 64 4d 5a 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d dMZ.c.==========
0270: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0280: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0290: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02a0: 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 67 65 6e ========.--- gen
02b0: 65 72 69 63 2f 74 63 6c 43 6d 64 4d 5a 2e 63 0a eric/tclCmdMZ.c.
02c0: 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 +++ generic/tclC
02d0: 6d 64 4d 5a 2e 63 0a 40 40 20 2d 33 38 39 34 2c mdMZ.c.@@ -3894,
02e0: 31 31 20 2b 33 38 39 34 2c 31 31 20 40 40 0a 20 11 +3894,11 @@.
02f0: 20 20 20 20 7d 0a 20 0a 20 20 20 20 20 6f 62 6a }. . obj
0300: 50 74 72 20 3d 20 6f 62 6a 76 5b 31 5d 3b 0a 20 Ptr = objv[1];.
0310: 20 20 20 20 69 20 3d 20 63 6f 75 6e 74 3b 0a 20 i = count;.
0320: 23 69 66 6e 64 65 66 20 54 43 4c 5f 57 49 44 45 #ifndef TCL_WIDE
0330: 5f 43 4c 49 43 4b 53 0a 2d 20 20 20 20 54 63 6c _CLICKS.- Tcl
0340: 5f 47 65 74 54 69 6d 65 28 26 73 74 61 72 74 29 _GetTime(&start)
0350: 3b 0a 2b 20 20 20 20 54 63 6c 70 47 65 74 4d 6f ;.+ TclpGetMo
0360: 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 73 74 61 notonicTime(&sta
0370: 72 74 29 3b 0a 20 23 65 6c 73 65 0a 20 20 20 20 rt);. #else.
0380: 20 73 74 61 72 74 20 3d 20 54 63 6c 70 47 65 74 start = TclpGet
0390: 57 69 64 65 43 6c 69 63 6b 73 28 29 3b 0a 20 23 WideClicks();. #
03a0: 65 6e 64 69 66 0a 20 20 20 20 20 77 68 69 6c 65 endif. while
03b0: 20 28 69 2d 2d 20 3e 20 30 29 20 7b 0a 20 09 72 (i-- > 0) {. .r
03c0: 65 73 75 6c 74 20 3d 20 54 63 6c 5f 45 76 61 6c esult = Tcl_Eval
03d0: 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 6f 62 ObjEx(interp, ob
03e0: 6a 50 74 72 2c 20 30 29 3b 0a 40 40 20 2d 33 39 jPtr, 0);.@@ -39
03f0: 30 35 2c 31 31 20 2b 33 39 30 35 2c 31 31 20 40 05,11 +3905,11 @
0400: 40 0a 20 09 69 66 20 28 72 65 73 75 6c 74 20 21 @. .if (result !
0410: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 20 09 20 20 = TCL_OK) {. .
0420: 20 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 3b return result;
0430: 0a 20 09 7d 0a 20 20 20 20 20 7d 0a 20 23 69 66 . .}. }. #if
0440: 6e 64 65 66 20 54 43 4c 5f 57 49 44 45 5f 43 4c ndef TCL_WIDE_CL
0450: 49 43 4b 53 0a 2d 20 20 20 20 54 63 6c 5f 47 65 ICKS.- Tcl_Ge
0460: 74 54 69 6d 65 28 26 73 74 6f 70 29 3b 0a 2b 20 tTime(&stop);.+
0470: 20 20 20 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f TclpGetMonoto
0480: 6e 69 63 54 69 6d 65 28 26 73 74 6f 70 29 3b 0a nicTime(&stop);.
0490: 20 20 20 20 20 74 6f 74 61 6c 4d 69 63 72 6f 53 totalMicroS
04a0: 65 63 20 3d 20 28 28 64 6f 75 62 6c 65 29 20 28 ec = ((double) (
04b0: 73 74 6f 70 2e 73 65 63 20 2d 20 73 74 61 72 74 stop.sec - start
04c0: 2e 73 65 63 29 29 20 2a 20 31 2e 30 65 36 0a 20 .sec)) * 1.0e6.
04d0: 09 20 20 20 20 2b 20 28 73 74 6f 70 2e 75 73 65 . + (stop.use
04e0: 63 20 2d 20 73 74 61 72 74 2e 75 73 65 63 29 3b c - start.usec);
04f0: 0a 20 23 65 6c 73 65 0a 20 20 20 20 20 73 74 6f . #else. sto
0500: 70 20 3d 20 54 63 6c 70 47 65 74 57 69 64 65 43 p = TclpGetWideC
0510: 6c 69 63 6b 73 28 29 3b 0a 20 20 20 20 20 74 6f licks();. to
0520: 74 61 6c 4d 69 63 72 6f 53 65 63 20 3d 20 28 28 talMicroSec = ((
0530: 64 6f 75 62 6c 65 29 20 54 63 6c 70 57 69 64 65 double) TclpWide
0540: 43 6c 69 63 6b 73 54 6f 4e 61 6e 6f 73 65 63 6f ClicksToNanoseco
0550: 6e 64 73 28 73 74 6f 70 20 2d 20 73 74 61 72 74 nds(stop - start
0560: 29 29 2f 31 2e 30 65 33 3b 0a 0a 49 6e 64 65 78 ))/1.0e3;..Index
0570: 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 : generic/tclInt
0580: 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .h.=============
0590: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
05a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
05b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
05c0: 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 67 65 6e 65 72 69 =====.--- generi
05d0: 63 2f 74 63 6c 49 6e 74 2e 68 0a 2b 2b 2b 20 67 c/tclInt.h.+++ g
05e0: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 0a eneric/tclInt.h.
05f0: 40 40 20 2d 32 37 37 32 2c 31 30 20 2b 32 37 37 @@ -2772,10 +277
0600: 32 2c 31 31 20 40 40 0a 20 4d 4f 44 55 4c 45 5f 2,11 @@. MODULE_
0610: 53 43 4f 50 45 20 54 63 6c 5f 57 69 64 65 49 6e SCOPE Tcl_WideIn
0620: 74 20 54 63 6c 70 47 65 74 57 69 64 65 43 6c 69 t TclpGetWideCli
0630: 63 6b 73 28 76 6f 69 64 29 3b 0a 20 4d 4f 44 55 cks(void);. MODU
0640: 4c 45 5f 53 43 4f 50 45 20 64 6f 75 62 6c 65 09 LE_SCOPE double.
0650: 54 63 6c 70 57 69 64 65 43 6c 69 63 6b 73 54 6f TclpWideClicksTo
0660: 4e 61 6e 6f 73 65 63 6f 6e 64 73 28 54 63 6c 5f Nanoseconds(Tcl_
0670: 57 69 64 65 49 6e 74 20 63 6c 69 63 6b 73 29 3b WideInt clicks);
0680: 0a 20 23 65 6e 64 69 66 0a 20 4d 4f 44 55 4c 45 . #endif. MODULE
0690: 5f 53 43 4f 50 45 20 54 63 6c 5f 4f 62 6a 20 2a _SCOPE Tcl_Obj *
06a0: 09 54 63 6c 44 69 73 61 73 73 65 6d 62 6c 65 42 .TclDisassembleB
06b0: 79 74 65 43 6f 64 65 4f 62 6a 28 54 63 6c 5f 4f yteCodeObj(Tcl_O
06c0: 62 6a 20 2a 6f 62 6a 50 74 72 29 3b 0a 20 4d 4f bj *objPtr);. MO
06d0: 44 55 4c 45 5f 53 43 4f 50 45 20 69 6e 74 20 54 DULE_SCOPE int T
06e0: 63 6c 55 74 66 43 61 73 65 63 6d 70 28 43 4f 4e clUtfCasecmp(CON
06f0: 53 54 20 63 68 61 72 20 2a 63 73 2c 20 43 4f 4e ST char *cs, CON
0700: 53 54 20 63 68 61 72 20 2a 63 74 29 3b 0a 2b 4d ST char *ct);.+M
0710: 4f 44 55 4c 45 5f 53 43 4f 50 45 20 69 6e 74 09 ODULE_SCOPE int.
0720: 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 TclpGetMonotonic
0730: 54 69 6d 65 28 54 63 6c 5f 54 69 6d 65 20 2a 74 Time(Tcl_Time *t
0740: 69 6d 65 50 74 72 29 3b 0a 20 0a 20 2f 2a 0a 20 imePtr);. . /*.
0750: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0790: 2d 2d 0a 20 20 2a 20 43 6f 6d 6d 61 6e 64 20 70 --. * Command p
07a0: 72 6f 63 65 64 75 72 65 73 20 69 6e 20 74 68 65 rocedures in the
07b0: 20 67 65 6e 65 72 69 63 20 63 6f 72 65 3a 0a 20 generic core:.
07c0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
07d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0800: 2d 2d 0a 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 --..Index: gener
0810: 69 63 2f 74 63 6c 49 6e 74 65 72 70 2e 63 0a 3d ic/tclInterp.c.=
0820: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0830: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0840: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0850: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0860: 3d 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 =.--- generic/tc
0870: 6c 49 6e 74 65 72 70 2e 63 0a 2b 2b 2b 20 67 65 lInterp.c.+++ ge
0880: 6e 65 72 69 63 2f 74 63 6c 49 6e 74 65 72 70 2e neric/tclInterp.
0890: 63 0a 40 40 20 2d 33 31 35 31 2c 31 31 20 2b 33 c.@@ -3151,11 +3
08a0: 31 35 31 2c 31 31 20 40 40 0a 20 20 20 20 20 69 151,11 @@. i
08b0: 66 20 28 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e f ((iPtr->limit.
08c0: 61 63 74 69 76 65 20 26 20 54 43 4c 5f 4c 49 4d active & TCL_LIM
08d0: 49 54 5f 54 49 4d 45 29 20 26 26 0a 20 09 20 20 IT_TIME) &&. .
08e0: 20 20 28 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e ((iPtr->limit.
08f0: 74 69 6d 65 47 72 61 6e 75 6c 61 72 69 74 79 20 timeGranularity
0900: 3d 3d 20 31 29 20 7c 7c 0a 20 09 09 28 74 69 63 == 1) ||. ..(tic
0910: 6b 65 72 20 25 20 69 50 74 72 2d 3e 6c 69 6d 69 ker % iPtr->limi
0920: 74 2e 74 69 6d 65 47 72 61 6e 75 6c 61 72 69 74 t.timeGranularit
0930: 79 20 3d 3d 20 30 29 29 29 20 7b 0a 20 09 54 63 y == 0))) {. .Tc
0940: 6c 5f 54 69 6d 65 20 6e 6f 77 3b 0a 20 0a 2d 09 l_Time now;. .-.
0950: 54 63 6c 5f 47 65 74 54 69 6d 65 28 26 6e 6f 77 Tcl_GetTime(&now
0960: 29 3b 0a 2b 09 54 63 6c 70 47 65 74 4d 6f 6e 6f );.+.TclpGetMono
0970: 74 6f 6e 69 63 54 69 6d 65 28 26 6e 6f 77 29 3b tonicTime(&now);
0980: 0a 20 09 69 66 20 28 69 50 74 72 2d 3e 6c 69 6d . .if (iPtr->lim
0990: 69 74 2e 74 69 6d 65 2e 73 65 63 20 3c 20 6e 6f it.time.sec < no
09a0: 77 2e 73 65 63 20 7c 7c 0a 20 09 09 28 69 50 74 w.sec ||. ..(iPt
09b0: 72 2d 3e 6c 69 6d 69 74 2e 74 69 6d 65 2e 73 65 r->limit.time.se
09c0: 63 20 3d 3d 20 6e 6f 77 2e 73 65 63 20 26 26 0a c == now.sec &&.
09d0: 20 09 09 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 74 ..iPtr->limit.t
09e0: 69 6d 65 2e 75 73 65 63 20 3c 20 6e 6f 77 2e 75 ime.usec < now.u
09f0: 73 65 63 29 29 20 7b 0a 20 09 20 20 20 20 69 50 sec)) {. . iP
0a00: 74 72 2d 3e 6c 69 6d 69 74 2e 65 78 63 65 65 64 tr->limit.exceed
0a10: 65 64 20 7c 3d 20 54 43 4c 5f 4c 49 4d 49 54 5f ed |= TCL_LIMIT_
0a20: 54 49 4d 45 3b 0a 20 09 20 20 20 20 54 63 6c 5f TIME;. . Tcl_
0a30: 50 72 65 73 65 72 76 65 28 69 6e 74 65 72 70 29 Preserve(interp)
0a40: 3b 0a 40 40 20 2d 33 37 30 35 2c 31 31 20 2b 33 ;.@@ -3705,11 +3
0a50: 37 30 35 2c 32 39 20 40 40 0a 20 54 63 6c 5f 4c 705,29 @@. Tcl_L
0a60: 69 6d 69 74 53 65 74 54 69 6d 65 28 0a 20 20 20 imitSetTime(.
0a70: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
0a80: 74 65 72 70 2c 0a 20 20 20 20 20 54 63 6c 5f 54 terp,. Tcl_T
0a90: 69 6d 65 20 2a 74 69 6d 65 4c 69 6d 69 74 50 74 ime *timeLimitPt
0aa0: 72 29 0a 20 7b 0a 20 20 20 20 20 49 6e 74 65 72 r). {. Inter
0ab0: 70 20 2a 69 50 74 72 20 3d 20 28 49 6e 74 65 72 p *iPtr = (Inter
0ac0: 70 20 2a 29 20 69 6e 74 65 72 70 3b 0a 2d 20 20 p *) interp;.-
0ad0: 20 20 54 63 6c 5f 54 69 6d 65 20 6e 65 78 74 4d Tcl_Time nextM
0ae0: 6f 6d 65 6e 74 3b 0a 2b 20 20 20 20 54 63 6c 5f oment;.+ Tcl_
0af0: 54 69 6d 65 20 6e 65 78 74 4d 6f 6d 65 6e 74 2c Time nextMoment,
0b00: 20 6d 6f 6e 6f 2c 20 72 65 61 6c 2c 20 6c 69 6d mono, real, lim
0b10: 69 74 3b 0a 2b 0a 2b 20 20 20 20 69 66 20 28 54 it;.+.+ if (T
0b20: 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 clpGetMonotonicT
0b30: 69 6d 65 28 26 6d 6f 6e 6f 29 29 20 7b 0a 2b 09 ime(&mono)) {.+.
0b40: 54 63 6c 5f 47 65 74 54 69 6d 65 28 26 72 65 61 Tcl_GetTime(&rea
0b50: 6c 29 3b 0a 2b 09 6c 69 6d 69 74 20 3d 20 2a 74 l);.+.limit = *t
0b60: 69 6d 65 4c 69 6d 69 74 50 74 72 3b 0a 2b 09 6c imeLimitPtr;.+.l
0b70: 69 6d 69 74 2e 73 65 63 20 2d 3d 20 72 65 61 6c imit.sec -= real
0b80: 2e 73 65 63 3b 0a 2b 09 6c 69 6d 69 74 2e 75 73 .sec;.+.limit.us
0b90: 65 63 20 2d 3d 20 72 65 61 6c 2e 75 73 65 63 3b ec -= real.usec;
0ba0: 0a 2b 09 69 66 20 28 6c 69 6d 69 74 2e 75 73 65 .+.if (limit.use
0bb0: 63 20 3c 20 30 29 20 7b 0a 2b 09 20 20 20 20 6c c < 0) {.+. l
0bc0: 69 6d 69 74 2e 73 65 63 20 2d 3d 20 31 3b 0a 2b imit.sec -= 1;.+
0bd0: 09 20 20 20 20 6c 69 6d 69 74 2e 75 73 65 63 20 . limit.usec
0be0: 2b 3d 20 31 30 30 30 30 30 30 3b 0a 2b 09 7d 0a += 1000000;.+.}.
0bf0: 2b 09 6c 69 6d 69 74 2e 73 65 63 20 2b 3d 20 6d +.limit.sec += m
0c00: 6f 6e 6f 2e 73 65 63 3b 0a 2b 09 6c 69 6d 69 74 ono.sec;.+.limit
0c10: 2e 75 73 65 63 20 2b 3d 20 6d 6f 6e 6f 2e 75 73 .usec += mono.us
0c20: 65 63 3b 0a 2b 09 69 66 20 28 6c 69 6d 69 74 2e ec;.+.if (limit.
0c30: 75 73 65 63 20 3e 3d 20 31 30 30 30 30 30 30 29 usec >= 1000000)
0c40: 20 7b 0a 2b 09 20 20 20 20 6c 69 6d 69 74 2e 73 {.+. limit.s
0c50: 65 63 20 2b 3d 20 31 3b 0a 2b 09 20 20 20 20 6c ec += 1;.+. l
0c60: 69 6d 69 74 2e 75 73 65 63 20 2d 3d 20 31 30 30 imit.usec -= 100
0c70: 30 30 30 30 3b 0a 2b 09 7d 0a 2b 09 74 69 6d 65 0000;.+.}.+.time
0c80: 4c 69 6d 69 74 50 74 72 20 3d 20 26 6c 69 6d 69 LimitPtr = &limi
0c90: 74 3b 0a 2b 20 20 20 20 7d 0a 20 0a 20 20 20 20 t;.+ }. .
0ca0: 20 6d 65 6d 63 70 79 28 26 69 50 74 72 2d 3e 6c memcpy(&iPtr->l
0cb0: 69 6d 69 74 2e 74 69 6d 65 2c 20 74 69 6d 65 4c imit.time, timeL
0cc0: 69 6d 69 74 50 74 72 2c 20 73 69 7a 65 6f 66 28 imitPtr, sizeof(
0cd0: 54 63 6c 5f 54 69 6d 65 29 29 3b 0a 20 20 20 20 Tcl_Time));.
0ce0: 20 69 66 20 28 69 50 74 72 2d 3e 6c 69 6d 69 74 if (iPtr->limit
0cf0: 2e 74 69 6d 65 45 76 65 6e 74 20 21 3d 20 4e 55 .timeEvent != NU
0d00: 4c 4c 29 20 7b 0a 20 09 54 63 6c 5f 44 65 6c 65 LL) {. .Tcl_Dele
0d10: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 69 teTimerHandler(i
0d20: 50 74 72 2d 3e 6c 69 6d 69 74 2e 74 69 6d 65 45 Ptr->limit.timeE
0d30: 76 65 6e 74 29 3b 0a 20 20 20 20 20 7d 0a 40 40 vent);. }.@@
0d40: 20 2d 33 37 39 30 2c 31 31 20 2b 33 38 30 38 2c -3790,11 +3808,
0d50: 33 30 20 40 40 0a 20 54 63 6c 5f 4c 69 6d 69 74 30 @@. Tcl_Limit
0d60: 47 65 74 54 69 6d 65 28 0a 20 20 20 20 20 54 63 GetTime(. Tc
0d70: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0d80: 2c 0a 20 20 20 20 20 54 63 6c 5f 54 69 6d 65 20 ,. Tcl_Time
0d90: 2a 74 69 6d 65 4c 69 6d 69 74 50 74 72 29 0a 20 *timeLimitPtr).
0da0: 7b 0a 20 20 20 20 20 49 6e 74 65 72 70 20 2a 69 {. Interp *i
0db0: 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a 29 Ptr = (Interp *)
0dc0: 20 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20 54 63 interp;.+ Tc
0dd0: 6c 5f 54 69 6d 65 20 6d 6f 6e 6f 2c 20 72 65 61 l_Time mono, rea
0de0: 6c 2c 20 6c 69 6d 69 74 3b 0a 20 0a 2b 20 20 20 l, limit;. .+
0df0: 20 69 66 20 28 54 63 6c 70 47 65 74 4d 6f 6e 6f if (TclpGetMono
0e00: 74 6f 6e 69 63 54 69 6d 65 28 26 6d 6f 6e 6f 29 tonicTime(&mono)
0e10: 29 20 7b 0a 2b 09 54 63 6c 5f 47 65 74 54 69 6d ) {.+.Tcl_GetTim
0e20: 65 28 26 72 65 61 6c 29 3b 0a 2b 09 6c 69 6d 69 e(&real);.+.limi
0e30: 74 20 3d 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e t = iPtr->limit.
0e40: 74 69 6d 65 3b 0a 2b 09 6c 69 6d 69 74 2e 73 65 time;.+.limit.se
0e50: 63 20 2d 3d 20 6d 6f 6e 6f 2e 73 65 63 3b 0a 2b c -= mono.sec;.+
0e60: 09 6c 69 6d 69 74 2e 75 73 65 63 20 2d 3d 20 6d .limit.usec -= m
0e70: 6f 6e 6f 2e 75 73 65 63 3b 0a 2b 09 69 66 20 28 ono.usec;.+.if (
0e80: 6c 69 6d 69 74 2e 75 73 65 63 20 3c 20 30 29 20 limit.usec < 0)
0e90: 7b 0a 2b 09 20 20 20 20 6c 69 6d 69 74 2e 73 65 {.+. limit.se
0ea0: 63 20 2d 3d 20 31 3b 0a 2b 09 20 20 20 20 6c 69 c -= 1;.+. li
0eb0: 6d 69 74 2e 75 73 65 63 20 2b 3d 20 31 30 30 30 mit.usec += 1000
0ec0: 30 30 30 3b 0a 2b 09 7d 0a 2b 09 6c 69 6d 69 74 000;.+.}.+.limit
0ed0: 2e 73 65 63 20 2b 3d 20 72 65 61 6c 2e 73 65 63 .sec += real.sec
0ee0: 3b 0a 2b 09 6c 69 6d 69 74 2e 75 73 65 63 20 2b ;.+.limit.usec +
0ef0: 3d 20 72 65 61 6c 2e 75 73 65 63 3b 0a 2b 09 69 = real.usec;.+.i
0f00: 66 20 28 6c 69 6d 69 74 2e 75 73 65 63 20 3e 3d f (limit.usec >=
0f10: 20 31 30 30 30 30 30 30 29 20 7b 0a 2b 09 20 20 1000000) {.+.
0f20: 20 20 6c 69 6d 69 74 2e 73 65 63 20 2b 3d 20 31 limit.sec += 1
0f30: 3b 0a 2b 09 20 20 20 20 6c 69 6d 69 74 2e 75 73 ;.+. limit.us
0f40: 65 63 20 2d 3d 20 31 30 30 30 30 30 30 3b 0a 2b ec -= 1000000;.+
0f50: 09 7d 0a 2b 09 6d 65 6d 63 70 79 28 74 69 6d 65 .}.+.memcpy(time
0f60: 4c 69 6d 69 74 50 74 72 2c 20 26 6c 69 6d 69 74 LimitPtr, &limit
0f70: 2c 20 73 69 7a 65 6f 66 28 54 63 6c 5f 54 69 6d , sizeof(Tcl_Tim
0f80: 65 29 29 3b 0a 2b 09 72 65 74 75 72 6e 3b 0a 2b e));.+.return;.+
0f90: 20 20 20 20 7d 0a 20 20 20 20 20 6d 65 6d 63 70 }. memcp
0fa0: 79 28 74 69 6d 65 4c 69 6d 69 74 50 74 72 2c 20 y(timeLimitPtr,
0fb0: 26 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 74 69 6d &iPtr->limit.tim
0fc0: 65 2c 20 73 69 7a 65 6f 66 28 54 63 6c 5f 54 69 e, sizeof(Tcl_Ti
0fd0: 6d 65 29 29 3b 0a 20 7d 0a 20 0c 0a 20 2f 2a 0a me));. }. .. /*.
0fe0: 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *-------------
0ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 49 6e 64 65 78 ---------..Index
1030: 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 54 69 6d : generic/tclTim
1040: 65 72 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d er.c.===========
1050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1060: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1070: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1080: 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 67 65 6e 65 =======.--- gene
1090: 72 69 63 2f 74 63 6c 54 69 6d 65 72 2e 63 0a 2b ric/tclTimer.c.+
10a0: 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 54 69 ++ generic/tclTi
10b0: 6d 65 72 2e 63 0a 40 40 20 2d 32 34 30 2c 31 31 mer.c.@@ -240,11
10c0: 20 2b 32 34 30 2c 31 31 20 40 40 0a 20 0a 20 20 +240,11 @@. .
10d0: 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 43 6f /*. * Co
10e0: 6d 70 75 74 65 20 77 68 65 6e 20 74 68 65 20 65 mpute when the e
10f0: 76 65 6e 74 20 73 68 6f 75 6c 64 20 66 69 72 65 vent should fire
1100: 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 2d 20 20 .. */. .-
1110: 20 20 54 63 6c 5f 47 65 74 54 69 6d 65 28 26 74 Tcl_GetTime(&t
1120: 69 6d 65 29 3b 0a 2b 20 20 20 20 54 63 6c 70 47 ime);.+ TclpG
1130: 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 etMonotonicTime(
1140: 26 74 69 6d 65 29 3b 0a 20 20 20 20 20 74 69 6d &time);. tim
1150: 65 2e 73 65 63 20 2b 3d 20 6d 69 6c 6c 69 73 65 e.sec += millise
1160: 63 6f 6e 64 73 2f 31 30 30 30 3b 0a 20 20 20 20 conds/1000;.
1170: 20 74 69 6d 65 2e 75 73 65 63 20 2b 3d 20 28 6d time.usec += (m
1180: 69 6c 6c 69 73 65 63 6f 6e 64 73 25 31 30 30 30 illiseconds%1000
1190: 29 2a 31 30 30 30 3b 0a 20 20 20 20 20 69 66 20 )*1000;. if
11a0: 28 74 69 6d 65 2e 75 73 65 63 20 3e 3d 20 31 30 (time.usec >= 10
11b0: 30 30 30 30 30 29 20 7b 0a 20 09 74 69 6d 65 2e 00000) {. .time.
11c0: 75 73 65 63 20 2d 3d 20 31 30 30 30 30 30 30 3b usec -= 1000000;
11d0: 0a 20 09 74 69 6d 65 2e 73 65 63 20 2b 3d 20 31 . .time.sec += 1
11e0: 3b 0a 40 40 20 2d 34 30 30 2c 31 31 20 2b 34 30 ;.@@ -400,11 +40
11f0: 30 2c 31 31 20 40 40 0a 20 20 20 20 20 7d 20 65 0,11 @@. } e
1200: 6c 73 65 20 69 66 20 28 28 66 6c 61 67 73 20 26 lse if ((flags &
1210: 20 54 43 4c 5f 54 49 4d 45 52 5f 45 56 45 4e 54 TCL_TIMER_EVENT
1220: 53 29 20 26 26 20 74 73 64 50 74 72 2d 3e 66 69 S) && tsdPtr->fi
1230: 72 73 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 50 rstTimerHandlerP
1240: 74 72 29 20 7b 0a 20 09 2f 2a 0a 20 09 20 2a 20 tr) {. ./*. . *
1250: 43 6f 6d 70 75 74 65 20 74 68 65 20 74 69 6d 65 Compute the time
1260: 6f 75 74 20 66 6f 72 20 74 68 65 20 6e 65 78 74 out for the next
1270: 20 74 69 6d 65 72 20 6f 6e 20 74 68 65 20 6c 69 timer on the li
1280: 73 74 2e 0a 20 09 20 2a 2f 0a 20 0a 2d 09 54 63 st.. . */. .-.Tc
1290: 6c 5f 47 65 74 54 69 6d 65 28 26 62 6c 6f 63 6b l_GetTime(&block
12a0: 54 69 6d 65 29 3b 0a 2b 09 54 63 6c 70 47 65 74 Time);.+.TclpGet
12b0: 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 62 MonotonicTime(&b
12c0: 6c 6f 63 6b 54 69 6d 65 29 3b 0a 20 09 62 6c 6f lockTime);. .blo
12d0: 63 6b 54 69 6d 65 2e 73 65 63 20 3d 20 74 73 64 ckTime.sec = tsd
12e0: 50 74 72 2d 3e 66 69 72 73 74 54 69 6d 65 72 48 Ptr->firstTimerH
12f0: 61 6e 64 6c 65 72 50 74 72 2d 3e 74 69 6d 65 2e andlerPtr->time.
1300: 73 65 63 20 2d 20 62 6c 6f 63 6b 54 69 6d 65 2e sec - blockTime.
1310: 73 65 63 3b 0a 20 09 62 6c 6f 63 6b 54 69 6d 65 sec;. .blockTime
1320: 2e 75 73 65 63 20 3d 20 74 73 64 50 74 72 2d 3e .usec = tsdPtr->
1330: 66 69 72 73 74 54 69 6d 65 72 48 61 6e 64 6c 65 firstTimerHandle
1340: 72 50 74 72 2d 3e 74 69 6d 65 2e 75 73 65 63 20 rPtr->time.usec
1350: 2d 0a 20 09 09 62 6c 6f 63 6b 54 69 6d 65 2e 75 -. ..blockTime.u
1360: 73 65 63 3b 0a 20 09 69 66 20 28 62 6c 6f 63 6b sec;. .if (block
1370: 54 69 6d 65 2e 75 73 65 63 20 3c 20 30 29 20 7b Time.usec < 0) {
1380: 0a 20 09 20 20 20 20 62 6c 6f 63 6b 54 69 6d 65 . . blockTime
1390: 2e 73 65 63 20 2d 3d 20 31 3b 0a 40 40 20 2d 34 .sec -= 1;.@@ -4
13a0: 35 31 2c 31 31 20 2b 34 35 31 2c 31 31 20 40 40 51,11 +451,11 @@
13b0: 0a 20 20 20 20 20 69 66 20 28 28 66 6c 61 67 73 . if ((flags
13c0: 20 26 20 54 43 4c 5f 54 49 4d 45 52 5f 45 56 45 & TCL_TIMER_EVE
13d0: 4e 54 53 29 20 26 26 20 74 73 64 50 74 72 2d 3e NTS) && tsdPtr->
13e0: 66 69 72 73 74 54 69 6d 65 72 48 61 6e 64 6c 65 firstTimerHandle
13f0: 72 50 74 72 29 20 7b 0a 20 09 2f 2a 0a 20 09 20 rPtr) {. ./*. .
1400: 2a 20 43 6f 6d 70 75 74 65 20 74 68 65 20 74 69 * Compute the ti
1410: 6d 65 6f 75 74 20 66 6f 72 20 74 68 65 20 6e 65 meout for the ne
1420: 78 74 20 74 69 6d 65 72 20 6f 6e 20 74 68 65 20 xt timer on the
1430: 6c 69 73 74 2e 0a 20 09 20 2a 2f 0a 20 0a 2d 09 list.. . */. .-.
1440: 54 63 6c 5f 47 65 74 54 69 6d 65 28 26 62 6c 6f Tcl_GetTime(&blo
1450: 63 6b 54 69 6d 65 29 3b 0a 2b 09 54 63 6c 70 47 ckTime);.+.TclpG
1460: 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 etMonotonicTime(
1470: 26 62 6c 6f 63 6b 54 69 6d 65 29 3b 0a 20 09 62 &blockTime);. .b
1480: 6c 6f 63 6b 54 69 6d 65 2e 73 65 63 20 3d 20 74 lockTime.sec = t
1490: 73 64 50 74 72 2d 3e 66 69 72 73 74 54 69 6d 65 sdPtr->firstTime
14a0: 72 48 61 6e 64 6c 65 72 50 74 72 2d 3e 74 69 6d rHandlerPtr->tim
14b0: 65 2e 73 65 63 20 2d 20 62 6c 6f 63 6b 54 69 6d e.sec - blockTim
14c0: 65 2e 73 65 63 3b 0a 20 09 62 6c 6f 63 6b 54 69 e.sec;. .blockTi
14d0: 6d 65 2e 75 73 65 63 20 3d 20 74 73 64 50 74 72 me.usec = tsdPtr
14e0: 2d 3e 66 69 72 73 74 54 69 6d 65 72 48 61 6e 64 ->firstTimerHand
14f0: 6c 65 72 50 74 72 2d 3e 74 69 6d 65 2e 75 73 65 lerPtr->time.use
1500: 63 20 2d 0a 20 09 09 62 6c 6f 63 6b 54 69 6d 65 c -. ..blockTime
1510: 2e 75 73 65 63 3b 0a 20 09 69 66 20 28 62 6c 6f .usec;. .if (blo
1520: 63 6b 54 69 6d 65 2e 75 73 65 63 20 3c 20 30 29 ckTime.usec < 0)
1530: 20 7b 0a 20 09 20 20 20 20 62 6c 6f 63 6b 54 69 {. . blockTi
1540: 6d 65 2e 73 65 63 20 2d 3d 20 31 3b 0a 40 40 20 me.sec -= 1;.@@
1550: 2d 35 34 37 2c 31 31 20 2b 35 34 37 2c 31 31 20 -547,11 +547,11
1560: 40 40 0a 20 20 20 20 20 20 2a 09 20 20 74 69 6d @@. *. tim
1570: 65 72 73 20 61 70 70 65 61 72 69 6e 67 20 62 65 ers appearing be
1580: 66 6f 72 65 20 6c 61 74 65 72 20 6f 6e 65 73 2e fore later ones.
1590: 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 . */. .
15a0: 20 74 73 64 50 74 72 2d 3e 74 69 6d 65 72 50 65 tsdPtr->timerPe
15b0: 6e 64 69 6e 67 20 3d 20 30 3b 0a 20 20 20 20 20 nding = 0;.
15c0: 63 75 72 72 65 6e 74 54 69 6d 65 72 49 64 20 3d currentTimerId =
15d0: 20 74 73 64 50 74 72 2d 3e 6c 61 73 74 54 69 6d tsdPtr->lastTim
15e0: 65 72 49 64 3b 0a 2d 20 20 20 20 54 63 6c 5f 47 erId;.- Tcl_G
15f0: 65 74 54 69 6d 65 28 26 74 69 6d 65 29 3b 0a 2b etTime(&time);.+
1600: 20 20 20 20 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 TclpGetMonot
1610: 6f 6e 69 63 54 69 6d 65 28 26 74 69 6d 65 29 3b onicTime(&time);
1620: 0a 20 20 20 20 20 77 68 69 6c 65 20 28 31 29 20 . while (1)
1630: 7b 0a 20 09 6e 65 78 74 50 74 72 50 74 72 20 3d {. .nextPtrPtr =
1640: 20 26 74 73 64 50 74 72 2d 3e 66 69 72 73 74 54 &tsdPtr->firstT
1650: 69 6d 65 72 48 61 6e 64 6c 65 72 50 74 72 3b 0a imerHandlerPtr;.
1660: 20 09 74 69 6d 65 72 48 61 6e 64 6c 65 72 50 74 .timerHandlerPt
1670: 72 20 3d 20 74 73 64 50 74 72 2d 3e 66 69 72 73 r = tsdPtr->firs
1680: 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 50 74 72 tTimerHandlerPtr
1690: 3b 0a 20 09 69 66 20 28 74 69 6d 65 72 48 61 6e ;. .if (timerHan
16a0: 64 6c 65 72 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 dlerPtr == NULL)
16b0: 20 7b 0a 20 09 20 20 20 20 62 72 65 61 6b 3b 0a {. . break;.
16c0: 40 40 20 2d 38 35 34 2c 31 31 20 2b 38 35 34 2c @@ -854,11 +854,
16d0: 31 31 20 40 40 0a 20 09 20 2a 20 61 72 6f 75 6e 11 @@. . * aroun
16e0: 64 20 77 68 65 6e 20 77 72 61 70 2d 61 72 6f 75 d when wrap-arou
16f0: 6e 64 20 6f 63 63 75 72 73 2e 0a 20 09 20 2a 2f nd occurs.. . */
1700: 0a 20 0a 20 09 61 66 74 65 72 50 74 72 2d 3e 69 . . .afterPtr->i
1710: 64 20 3d 20 74 73 64 50 74 72 2d 3e 61 66 74 65 d = tsdPtr->afte
1720: 72 49 64 3b 0a 20 09 74 73 64 50 74 72 2d 3e 61 rId;. .tsdPtr->a
1730: 66 74 65 72 49 64 20 2b 3d 20 31 3b 0a 2d 09 54 fterId += 1;.-.T
1740: 63 6c 5f 47 65 74 54 69 6d 65 28 26 77 61 6b 65 cl_GetTime(&wake
1750: 75 70 29 3b 0a 2b 09 54 63 6c 70 47 65 74 4d 6f up);.+.TclpGetMo
1760: 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 77 61 6b notonicTime(&wak
1770: 65 75 70 29 3b 0a 20 09 77 61 6b 65 75 70 2e 73 eup);. .wakeup.s
1780: 65 63 20 2b 3d 20 28 6c 6f 6e 67 29 28 6d 73 20 ec += (long)(ms
1790: 2f 20 31 30 30 30 29 3b 0a 20 09 77 61 6b 65 75 / 1000);. .wakeu
17a0: 70 2e 75 73 65 63 20 2b 3d 20 28 28 6c 6f 6e 67 p.usec += ((long
17b0: 29 28 6d 73 20 25 20 31 30 30 30 29 29 20 2a 20 )(ms % 1000)) *
17c0: 31 30 30 30 3b 0a 20 09 69 66 20 28 77 61 6b 65 1000;. .if (wake
17d0: 75 70 2e 75 73 65 63 20 3e 20 31 30 30 30 30 30 up.usec > 100000
17e0: 30 29 20 7b 0a 20 09 20 20 20 20 77 61 6b 65 75 0) {. . wakeu
17f0: 70 2e 73 65 63 2b 2b 3b 0a 20 09 20 20 20 20 77 p.sec++;. . w
1800: 61 6b 65 75 70 2e 75 73 65 63 20 2d 3d 20 31 30 akeup.usec -= 10
1810: 30 30 30 30 30 3b 0a 40 40 20 2d 39 39 34 2c 32 00000;.@@ -994,2
1820: 30 20 2b 39 39 34 2c 32 30 20 40 40 0a 20 20 20 0 +994,20 @@.
1830: 20 20 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d Interp *iPtr =
1840: 20 28 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 (Interp *) inte
1850: 72 70 3b 0a 20 0a 20 20 20 20 20 54 63 6c 5f 54 rp;. . Tcl_T
1860: 69 6d 65 20 65 6e 64 54 69 6d 65 2c 20 6e 6f 77 ime endTime, now
1870: 3b 0a 20 20 20 20 20 54 63 6c 5f 57 69 64 65 49 ;. Tcl_WideI
1880: 6e 74 20 64 69 66 66 3b 0a 20 0a 2d 20 20 20 20 nt diff;. .-
1890: 54 63 6c 5f 47 65 74 54 69 6d 65 28 26 65 6e 64 Tcl_GetTime(&end
18a0: 54 69 6d 65 29 3b 0a 2b 20 20 20 20 54 63 6c 70 Time);.+ Tclp
18b0: 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 GetMonotonicTime
18c0: 28 26 6e 6f 77 29 3b 0a 2b 20 20 20 20 65 6e 64 (&now);.+ end
18d0: 54 69 6d 65 20 3d 20 6e 6f 77 3b 0a 20 20 20 20 Time = now;.
18e0: 20 65 6e 64 54 69 6d 65 2e 73 65 63 20 2b 3d 20 endTime.sec +=
18f0: 28 6c 6f 6e 67 29 28 6d 73 2f 31 30 30 30 29 3b (long)(ms/1000);
1900: 0a 20 20 20 20 20 65 6e 64 54 69 6d 65 2e 75 73 . endTime.us
1910: 65 63 20 2b 3d 20 28 28 69 6e 74 29 28 6d 73 25 ec += ((int)(ms%
1920: 31 30 30 30 29 29 2a 31 30 30 30 3b 0a 20 20 20 1000))*1000;.
1930: 20 20 69 66 20 28 65 6e 64 54 69 6d 65 2e 75 73 if (endTime.us
1940: 65 63 20 3e 3d 20 31 30 30 30 30 30 30 29 20 7b ec >= 1000000) {
1950: 0a 20 09 65 6e 64 54 69 6d 65 2e 73 65 63 2b 2b . .endTime.sec++
1960: 3b 0a 20 09 65 6e 64 54 69 6d 65 2e 75 73 65 63 ;. .endTime.usec
1970: 20 2d 3d 20 31 30 30 30 30 30 30 3b 0a 20 20 20 -= 1000000;.
1980: 20 20 7d 0a 20 0a 20 20 20 20 20 64 6f 20 7b 0a }. . do {.
1990: 2d 09 54 63 6c 5f 47 65 74 54 69 6d 65 28 26 6e -.Tcl_GetTime(&n
19a0: 6f 77 29 3b 0a 20 09 69 66 20 28 69 50 74 72 2d ow);. .if (iPtr-
19b0: 3e 6c 69 6d 69 74 2e 74 69 6d 65 45 76 65 6e 74 >limit.timeEvent
19c0: 20 21 3d 20 4e 55 4c 4c 0a 20 09 20 20 20 20 26 != NULL. . &
19d0: 26 20 54 43 4c 5f 54 49 4d 45 5f 42 45 46 4f 52 & TCL_TIME_BEFOR
19e0: 45 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 74 69 E(iPtr->limit.ti
19f0: 6d 65 2c 20 6e 6f 77 29 29 20 7b 0a 20 09 20 20 me, now)) {. .
1a00: 20 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 67 72 iPtr->limit.gr
1a10: 61 6e 75 6c 61 72 69 74 79 54 69 63 6b 65 72 20 anularityTicker
1a20: 3d 20 30 3b 0a 20 09 20 20 20 20 69 66 20 28 54 = 0;. . if (T
1a30: 63 6c 5f 4c 69 6d 69 74 43 68 65 63 6b 28 69 6e cl_LimitCheck(in
1a40: 74 65 72 70 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 terp) != TCL_OK)
1a50: 20 7b 0a 20 09 09 72 65 74 75 72 6e 20 54 43 4c {. ..return TCL
1a60: 5f 45 52 52 4f 52 3b 0a 40 40 20 2d 31 30 33 36 _ERROR;.@@ -1036
1a70: 2c 31 30 20 2b 31 30 33 36 2c 31 31 20 40 40 0a ,10 +1036,11 @@.
1a80: 20 09 20 20 20 20 7d 0a 20 09 20 20 20 20 69 66 . }. . if
1a90: 20 28 54 63 6c 5f 4c 69 6d 69 74 43 68 65 63 6b (Tcl_LimitCheck
1aa0: 28 69 6e 74 65 72 70 29 20 21 3d 20 54 43 4c 5f (interp) != TCL_
1ab0: 4f 4b 29 20 7b 0a 20 09 09 72 65 74 75 72 6e 20 OK) {. ..return
1ac0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 09 20 20 20 TCL_ERROR;. .
1ad0: 20 7d 0a 20 09 7d 0a 2b 20 20 20 20 20 20 20 20 }. .}.+
1ae0: 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 TclpGetMonotonic
1af0: 54 69 6d 65 28 26 6e 6f 77 29 3b 0a 20 20 20 20 Time(&now);.
1b00: 20 7d 20 77 68 69 6c 65 20 28 54 43 4c 5f 54 49 } while (TCL_TI
1b10: 4d 45 5f 42 45 46 4f 52 45 28 6e 6f 77 2c 20 65 ME_BEFORE(now, e
1b20: 6e 64 54 69 6d 65 29 29 3b 0a 20 20 20 20 20 72 ndTime));. r
1b30: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 7d eturn TCL_OK;. }
1b40: 0a 20 0c 0a 20 2f 2a 0a 0a 49 6e 64 65 78 3a 20 . .. /*..Index:
1b50: 75 6e 69 78 2f 63 6f 6e 66 69 67 75 72 65 0a 3d unix/configure.=
1b60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1ba0: 3d 0a 2d 2d 2d 20 75 6e 69 78 2f 63 6f 6e 66 69 =.--- unix/confi
1bb0: 67 75 72 65 0a 2b 2b 2b 20 75 6e 69 78 2f 63 6f gure.+++ unix/co
1bc0: 6e 66 69 67 75 72 65 0a 40 40 20 2d 34 37 39 35 nfigure.@@ -4795
1bd0: 2c 31 31 20 2b 34 37 39 35 2c 31 32 20 40 40 0a ,11 +4795,12 @@.
1be0: 20 0a 20 09 61 63 5f 73 61 76 65 64 5f 6c 69 62 . .ac_saved_lib
1bf0: 73 3d 24 4c 49 42 53 0a 20 09 4c 49 42 53 3d 22 s=$LIBS. .LIBS="
1c00: 24 4c 49 42 53 20 24 54 48 52 45 41 44 53 5f 4c $LIBS $THREADS_L
1c10: 49 42 53 22 0a 20 0a 20 0a 2d 66 6f 72 20 61 63 IBS". . .-for ac
1c20: 5f 66 75 6e 63 20 69 6e 20 70 74 68 72 65 61 64 _func in pthread
1c30: 5f 61 74 74 72 5f 73 65 74 73 74 61 63 6b 73 69 _attr_setstacksi
1c40: 7a 65 20 70 74 68 72 65 61 64 5f 61 74 66 6f 72 ze pthread_atfor
1c50: 6b 0a 2b 0a 2b 66 6f 72 20 61 63 5f 66 75 6e 63 k.+.+for ac_func
1c60: 20 69 6e 20 70 74 68 72 65 61 64 5f 61 74 74 72 in pthread_attr
1c70: 5f 73 65 74 73 74 61 63 6b 73 69 7a 65 20 70 74 _setstacksize pt
1c80: 68 72 65 61 64 5f 61 74 66 6f 72 6b 20 70 74 68 hread_atfork pth
1c90: 72 65 61 64 5f 63 6f 6e 64 61 74 74 72 5f 73 65 read_condattr_se
1ca0: 74 63 6c 6f 63 6b 0a 20 64 6f 0a 20 61 73 5f 61 tclock. do. as_a
1cb0: 63 5f 76 61 72 3d 60 65 63 68 6f 20 22 61 63 5f c_var=`echo "ac_
1cc0: 63 76 5f 66 75 6e 63 5f 24 61 63 5f 66 75 6e 63 cv_func_$ac_func
1cd0: 22 20 7c 20 24 61 73 5f 74 72 5f 73 68 60 0a 20 " | $as_tr_sh`.
1ce0: 65 63 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c 49 echo "$as_me:$LI
1cf0: 4e 45 4e 4f 3a 20 63 68 65 63 6b 69 6e 67 20 66 NENO: checking f
1d00: 6f 72 20 24 61 63 5f 66 75 6e 63 22 20 3e 26 35 or $ac_func" >&5
1d10: 0a 20 65 63 68 6f 20 24 45 43 48 4f 5f 4e 20 22 . echo $ECHO_N "
1d20: 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 24 61 63 checking for $ac
1d30: 5f 66 75 6e 63 2e 2e 2e 20 24 45 43 48 4f 5f 43 _func... $ECHO_C
1d40: 22 20 3e 26 36 0a 20 69 66 20 65 76 61 6c 20 22 " >&6. if eval "
1d50: 74 65 73 74 20 5c 22 5c 24 7b 24 61 73 5f 61 63 test \"\${$as_ac
1d60: 5f 76 61 72 2b 73 65 74 7d 5c 22 20 3d 20 73 65 _var+set}\" = se
1d70: 74 22 3b 20 74 68 65 6e 0a 40 40 20 2d 36 32 35 t"; then.@@ -625
1d80: 39 2c 31 30 20 2b 36 32 36 30 2c 31 38 31 20 40 9,10 +6260,181 @
1d90: 40 0a 20 69 66 20 74 65 73 74 20 24 61 63 5f 63 @. if test $ac_c
1da0: 76 5f 6c 69 62 5f 6e 73 6c 5f 67 65 74 68 6f 73 v_lib_nsl_gethos
1db0: 74 62 79 6e 61 6d 65 20 3d 20 79 65 73 3b 20 74 tbyname = yes; t
1dc0: 68 65 6e 0a 20 20 20 4c 49 42 53 3d 22 24 4c 49 hen. LIBS="$LI
1dd0: 42 53 20 2d 6c 6e 73 6c 22 0a 20 66 69 0a 20 0a BS -lnsl". fi. .
1de0: 20 66 69 0a 2b 0a 2b 20 20 20 20 65 63 68 6f 20 fi.+.+ echo
1df0: 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a "$as_me:$LINENO:
1e00: 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 63 6c checking for cl
1e10: 6f 63 6b 5f 67 65 74 74 69 6d 65 20 69 6e 20 2d ock_gettime in -
1e20: 6c 72 74 22 20 3e 26 35 0a 2b 65 63 68 6f 20 24 lrt" >&5.+echo $
1e30: 45 43 48 4f 5f 4e 20 22 63 68 65 63 6b 69 6e 67 ECHO_N "checking
1e40: 20 66 6f 72 20 63 6c 6f 63 6b 5f 67 65 74 74 69 for clock_getti
1e50: 6d 65 20 69 6e 20 2d 6c 72 74 2e 2e 2e 20 24 45 me in -lrt... $E
1e60: 43 48 4f 5f 43 22 20 3e 26 36 0a 2b 69 66 20 74 CHO_C" >&6.+if t
1e70: 65 73 74 20 22 24 7b 61 63 5f 63 76 5f 6c 69 62 est "${ac_cv_lib
1e80: 5f 72 74 5f 63 6c 6f 63 6b 5f 67 65 74 74 69 6d _rt_clock_gettim
1e90: 65 2b 73 65 74 7d 22 20 3d 20 73 65 74 3b 20 74 e+set}" = set; t
1ea0: 68 65 6e 0a 2b 20 20 65 63 68 6f 20 24 45 43 48 hen.+ echo $ECH
1eb0: 4f 5f 4e 20 22 28 63 61 63 68 65 64 29 20 24 45 O_N "(cached) $E
1ec0: 43 48 4f 5f 43 22 20 3e 26 36 0a 2b 65 6c 73 65 CHO_C" >&6.+else
1ed0: 0a 2b 20 20 61 63 5f 63 68 65 63 6b 5f 6c 69 62 .+ ac_check_lib
1ee0: 5f 73 61 76 65 5f 4c 49 42 53 3d 24 4c 49 42 53 _save_LIBS=$LIBS
1ef0: 0a 2b 4c 49 42 53 3d 22 2d 6c 72 74 20 20 24 4c .+LIBS="-lrt $L
1f00: 49 42 53 22 0a 2b 63 61 74 20 3e 63 6f 6e 66 74 IBS".+cat >conft
1f10: 65 73 74 2e 24 61 63 5f 65 78 74 20 3c 3c 5f 41 est.$ac_ext <<_A
1f20: 43 45 4f 46 0a 2b 2f 2a 20 63 6f 6e 66 64 65 66 CEOF.+/* confdef
1f30: 73 2e 68 2e 20 20 2a 2f 0a 2b 5f 41 43 45 4f 46 s.h. */.+_ACEOF
1f40: 0a 2b 63 61 74 20 63 6f 6e 66 64 65 66 73 2e 68 .+cat confdefs.h
1f50: 20 3e 3e 63 6f 6e 66 74 65 73 74 2e 24 61 63 5f >>conftest.$ac_
1f60: 65 78 74 0a 2b 63 61 74 20 3e 3e 63 6f 6e 66 74 ext.+cat >>conft
1f70: 65 73 74 2e 24 61 63 5f 65 78 74 20 3c 3c 5f 41 est.$ac_ext <<_A
1f80: 43 45 4f 46 0a 2b 2f 2a 20 65 6e 64 20 63 6f 6e CEOF.+/* end con
1f90: 66 64 65 66 73 2e 68 2e 20 20 2a 2f 0a 2b 0a 2b fdefs.h. */.+.+
1fa0: 2f 2a 20 4f 76 65 72 72 69 64 65 20 61 6e 79 20 /* Override any
1fb0: 67 63 63 32 20 69 6e 74 65 72 6e 61 6c 20 70 72 gcc2 internal pr
1fc0: 6f 74 6f 74 79 70 65 20 74 6f 20 61 76 6f 69 64 ototype to avoid
1fd0: 20 61 6e 20 65 72 72 6f 72 2e 20 20 2a 2f 0a 2b an error. */.+
1fe0: 23 69 66 64 65 66 20 5f 5f 63 70 6c 75 73 70 6c #ifdef __cpluspl
1ff0: 75 73 0a 2b 65 78 74 65 72 6e 20 22 43 22 0a 2b us.+extern "C".+
2000: 23 65 6e 64 69 66 0a 2b 2f 2a 20 57 65 20 75 73 #endif.+/* We us
2010: 65 20 63 68 61 72 20 62 65 63 61 75 73 65 20 69 e char because i
2020: 6e 74 20 6d 69 67 68 74 20 6d 61 74 63 68 20 74 nt might match t
2030: 68 65 20 72 65 74 75 72 6e 20 74 79 70 65 20 6f he return type o
2040: 66 20 61 20 67 63 63 32 0a 2b 20 20 20 62 75 69 f a gcc2.+ bui
2050: 6c 74 69 6e 20 61 6e 64 20 74 68 65 6e 20 69 74 ltin and then it
2060: 73 20 61 72 67 75 6d 65 6e 74 20 70 72 6f 74 6f s argument proto
2070: 74 79 70 65 20 77 6f 75 6c 64 20 73 74 69 6c 6c type would still
2080: 20 61 70 70 6c 79 2e 20 20 2a 2f 0a 2b 63 68 61 apply. */.+cha
2090: 72 20 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 20 r clock_gettime
20a0: 28 29 3b 0a 2b 69 6e 74 0a 2b 6d 61 69 6e 20 28 ();.+int.+main (
20b0: 29 0a 2b 7b 0a 2b 63 6c 6f 63 6b 5f 67 65 74 74 ).+{.+clock_gett
20c0: 69 6d 65 20 28 29 3b 0a 2b 20 20 3b 0a 2b 20 20 ime ();.+ ;.+
20d0: 72 65 74 75 72 6e 20 30 3b 0a 2b 7d 0a 2b 5f 41 return 0;.+}.+_A
20e0: 43 45 4f 46 0a 2b 72 6d 20 2d 66 20 63 6f 6e 66 CEOF.+rm -f conf
20f0: 74 65 73 74 2e 24 61 63 5f 6f 62 6a 65 78 74 20 test.$ac_objext
2100: 63 6f 6e 66 74 65 73 74 24 61 63 5f 65 78 65 65 conftest$ac_exee
2110: 78 74 0a 2b 69 66 20 7b 20 28 65 76 61 6c 20 65 xt.+if { (eval e
2120: 63 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c 49 4e cho "$as_me:$LIN
2130: 45 4e 4f 3a 20 5c 22 24 61 63 5f 6c 69 6e 6b 5c ENO: \"$ac_link\
2140: 22 22 29 20 3e 26 35 0a 2b 20 20 28 65 76 61 6c "") >&5.+ (eval
2150: 20 24 61 63 5f 6c 69 6e 6b 29 20 32 3e 63 6f 6e $ac_link) 2>con
2160: 66 74 65 73 74 2e 65 72 31 0a 2b 20 20 61 63 5f ftest.er1.+ ac_
2170: 73 74 61 74 75 73 3d 24 3f 0a 2b 20 20 67 72 65 status=$?.+ gre
2180: 70 20 2d 76 20 27 5e 20 2a 2b 27 20 63 6f 6e 66 p -v '^ *+' conf
2190: 74 65 73 74 2e 65 72 31 20 3e 63 6f 6e 66 74 65 test.er1 >confte
21a0: 73 74 2e 65 72 72 0a 2b 20 20 72 6d 20 2d 66 20 st.err.+ rm -f
21b0: 63 6f 6e 66 74 65 73 74 2e 65 72 31 0a 2b 20 20 conftest.er1.+
21c0: 63 61 74 20 63 6f 6e 66 74 65 73 74 2e 65 72 72 cat conftest.err
21d0: 20 3e 26 35 0a 2b 20 20 65 63 68 6f 20 22 24 61 >&5.+ echo "$a
21e0: 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 5c 24 s_me:$LINENO: \$
21f0: 3f 20 3d 20 24 61 63 5f 73 74 61 74 75 73 22 20 ? = $ac_status"
2200: 3e 26 35 0a 2b 20 20 28 65 78 69 74 20 24 61 63 >&5.+ (exit $ac
2210: 5f 73 74 61 74 75 73 29 3b 20 7d 20 26 26 0a 2b _status); } &&.+
2220: 09 20 7b 20 61 63 5f 74 72 79 3d 27 74 65 73 74 . { ac_try='test
2230: 20 2d 7a 20 22 24 61 63 5f 63 5f 77 65 72 72 6f -z "$ac_c_werro
2240: 72 5f 66 6c 61 67 22 0a 2b 09 09 09 20 7c 7c 20 r_flag".+... ||
2250: 74 65 73 74 20 21 20 2d 73 20 63 6f 6e 66 74 65 test ! -s confte
2260: 73 74 2e 65 72 72 27 0a 2b 20 20 7b 20 28 65 76 st.err'.+ { (ev
2270: 61 6c 20 65 63 68 6f 20 22 24 61 73 5f 6d 65 3a al echo "$as_me:
2280: 24 4c 49 4e 45 4e 4f 3a 20 5c 22 24 61 63 5f 74 $LINENO: \"$ac_t
2290: 72 79 5c 22 22 29 20 3e 26 35 0a 2b 20 20 28 65 ry\"") >&5.+ (e
22a0: 76 61 6c 20 24 61 63 5f 74 72 79 29 20 32 3e 26 val $ac_try) 2>&
22b0: 35 0a 2b 20 20 61 63 5f 73 74 61 74 75 73 3d 24 5.+ ac_status=$
22c0: 3f 0a 2b 20 20 65 63 68 6f 20 22 24 61 73 5f 6d ?.+ echo "$as_m
22d0: 65 3a 24 4c 49 4e 45 4e 4f 3a 20 5c 24 3f 20 3d e:$LINENO: \$? =
22e0: 20 24 61 63 5f 73 74 61 74 75 73 22 20 3e 26 35 $ac_status" >&5
22f0: 0a 2b 20 20 28 65 78 69 74 20 24 61 63 5f 73 74 .+ (exit $ac_st
2300: 61 74 75 73 29 3b 20 7d 3b 20 7d 20 26 26 0a 2b atus); }; } &&.+
2310: 09 20 7b 20 61 63 5f 74 72 79 3d 27 74 65 73 74 . { ac_try='test
2320: 20 2d 73 20 63 6f 6e 66 74 65 73 74 24 61 63 5f -s conftest$ac_
2330: 65 78 65 65 78 74 27 0a 2b 20 20 7b 20 28 65 76 exeext'.+ { (ev
2340: 61 6c 20 65 63 68 6f 20 22 24 61 73 5f 6d 65 3a al echo "$as_me:
2350: 24 4c 49 4e 45 4e 4f 3a 20 5c 22 24 61 63 5f 74 $LINENO: \"$ac_t
2360: 72 79 5c 22 22 29 20 3e 26 35 0a 2b 20 20 28 65 ry\"") >&5.+ (e
2370: 76 61 6c 20 24 61 63 5f 74 72 79 29 20 32 3e 26 val $ac_try) 2>&
2380: 35 0a 2b 20 20 61 63 5f 73 74 61 74 75 73 3d 24 5.+ ac_status=$
2390: 3f 0a 2b 20 20 65 63 68 6f 20 22 24 61 73 5f 6d ?.+ echo "$as_m
23a0: 65 3a 24 4c 49 4e 45 4e 4f 3a 20 5c 24 3f 20 3d e:$LINENO: \$? =
23b0: 20 24 61 63 5f 73 74 61 74 75 73 22 20 3e 26 35 $ac_status" >&5
23c0: 0a 2b 20 20 28 65 78 69 74 20 24 61 63 5f 73 74 .+ (exit $ac_st
23d0: 61 74 75 73 29 3b 20 7d 3b 20 7d 3b 20 74 68 65 atus); }; }; the
23e0: 6e 0a 2b 20 20 61 63 5f 63 76 5f 6c 69 62 5f 72 n.+ ac_cv_lib_r
23f0: 74 5f 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 3d t_clock_gettime=
2400: 79 65 73 0a 2b 65 6c 73 65 0a 2b 20 20 65 63 68 yes.+else.+ ech
2410: 6f 20 22 24 61 73 5f 6d 65 3a 20 66 61 69 6c 65 o "$as_me: faile
2420: 64 20 70 72 6f 67 72 61 6d 20 77 61 73 3a 22 20 d program was:"
2430: 3e 26 35 0a 2b 73 65 64 20 27 73 2f 5e 2f 7c 20 >&5.+sed 's/^/|
2440: 2f 27 20 63 6f 6e 66 74 65 73 74 2e 24 61 63 5f /' conftest.$ac_
2450: 65 78 74 20 3e 26 35 0a 2b 0a 2b 61 63 5f 63 76 ext >&5.+.+ac_cv
2460: 5f 6c 69 62 5f 72 74 5f 63 6c 6f 63 6b 5f 67 65 _lib_rt_clock_ge
2470: 74 74 69 6d 65 3d 6e 6f 0a 2b 66 69 0a 2b 72 6d ttime=no.+fi.+rm
2480: 20 2d 66 20 63 6f 6e 66 74 65 73 74 2e 65 72 72 -f conftest.err
2490: 20 63 6f 6e 66 74 65 73 74 2e 24 61 63 5f 6f 62 conftest.$ac_ob
24a0: 6a 65 78 74 20 5c 0a 2b 20 20 20 20 20 20 63 6f jext \.+ co
24b0: 6e 66 74 65 73 74 24 61 63 5f 65 78 65 65 78 74 nftest$ac_exeext
24c0: 20 63 6f 6e 66 74 65 73 74 2e 24 61 63 5f 65 78 conftest.$ac_ex
24d0: 74 0a 2b 4c 49 42 53 3d 24 61 63 5f 63 68 65 63 t.+LIBS=$ac_chec
24e0: 6b 5f 6c 69 62 5f 73 61 76 65 5f 4c 49 42 53 0a k_lib_save_LIBS.
24f0: 2b 66 69 0a 2b 65 63 68 6f 20 22 24 61 73 5f 6d +fi.+echo "$as_m
2500: 65 3a 24 4c 49 4e 45 4e 4f 3a 20 72 65 73 75 6c e:$LINENO: resul
2510: 74 3a 20 24 61 63 5f 63 76 5f 6c 69 62 5f 72 74 t: $ac_cv_lib_rt
2520: 5f 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 22 20 _clock_gettime"
2530: 3e 26 35 0a 2b 65 63 68 6f 20 22 24 7b 45 43 48 >&5.+echo "${ECH
2540: 4f 5f 54 7d 24 61 63 5f 63 76 5f 6c 69 62 5f 72 O_T}$ac_cv_lib_r
2550: 74 5f 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 22 t_clock_gettime"
2560: 20 3e 26 36 0a 2b 69 66 20 74 65 73 74 20 24 61 >&6.+if test $a
2570: 63 5f 63 76 5f 6c 69 62 5f 72 74 5f 63 6c 6f 63 c_cv_lib_rt_cloc
2580: 6b 5f 67 65 74 74 69 6d 65 20 3d 20 79 65 73 3b k_gettime = yes;
2590: 20 74 68 65 6e 0a 2b 20 20 4c 49 42 53 3d 22 24 then.+ LIBS="$
25a0: 4c 49 42 53 20 2d 6c 72 74 22 0a 2b 66 69 0a 2b LIBS -lrt".+fi.+
25b0: 0a 2b 0a 2b 0a 2b 66 6f 72 20 61 63 5f 66 75 6e .+.+.+for ac_fun
25c0: 63 20 69 6e 20 63 6c 6f 63 6b 5f 67 65 74 74 69 c in clock_getti
25d0: 6d 65 20 63 6c 6f 63 6b 5f 6e 61 6e 6f 73 6c 65 me clock_nanosle
25e0: 65 70 0a 2b 64 6f 0a 2b 61 73 5f 61 63 5f 76 61 ep.+do.+as_ac_va
25f0: 72 3d 60 65 63 68 6f 20 22 61 63 5f 63 76 5f 66 r=`echo "ac_cv_f
2600: 75 6e 63 5f 24 61 63 5f 66 75 6e 63 22 20 7c 20 unc_$ac_func" |
2610: 24 61 73 5f 74 72 5f 73 68 60 0a 2b 65 63 68 6f $as_tr_sh`.+echo
2620: 20 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f "$as_me:$LINENO
2630: 3a 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 24 : checking for $
2640: 61 63 5f 66 75 6e 63 22 20 3e 26 35 0a 2b 65 63 ac_func" >&5.+ec
2650: 68 6f 20 24 45 43 48 4f 5f 4e 20 22 63 68 65 63 ho $ECHO_N "chec
2660: 6b 69 6e 67 20 66 6f 72 20 24 61 63 5f 66 75 6e king for $ac_fun
2670: 63 2e 2e 2e 20 24 45 43 48 4f 5f 43 22 20 3e 26 c... $ECHO_C" >&
2680: 36 0a 2b 69 66 20 65 76 61 6c 20 22 74 65 73 74 6.+if eval "test
2690: 20 5c 22 5c 24 7b 24 61 73 5f 61 63 5f 76 61 72 \"\${$as_ac_var
26a0: 2b 73 65 74 7d 5c 22 20 3d 20 73 65 74 22 3b 20 +set}\" = set";
26b0: 74 68 65 6e 0a 2b 20 20 65 63 68 6f 20 24 45 43 then.+ echo $EC
26c0: 48 4f 5f 4e 20 22 28 63 61 63 68 65 64 29 20 24 HO_N "(cached) $
26d0: 45 43 48 4f 5f 43 22 20 3e 26 36 0a 2b 65 6c 73 ECHO_C" >&6.+els
26e0: 65 0a 2b 20 20 63 61 74 20 3e 63 6f 6e 66 74 65 e.+ cat >confte
26f0: 73 74 2e 24 61 63 5f 65 78 74 20 3c 3c 5f 41 43 st.$ac_ext <<_AC
2700: 45 4f 46 0a 2b 2f 2a 20 63 6f 6e 66 64 65 66 73 EOF.+/* confdefs
2710: 2e 68 2e 20 20 2a 2f 0a 2b 5f 41 43 45 4f 46 0a .h. */.+_ACEOF.
2720: 2b 63 61 74 20 63 6f 6e 66 64 65 66 73 2e 68 20 +cat confdefs.h
2730: 3e 3e 63 6f 6e 66 74 65 73 74 2e 24 61 63 5f 65 >>conftest.$ac_e
2740: 78 74 0a 2b 63 61 74 20 3e 3e 63 6f 6e 66 74 65 xt.+cat >>confte
2750: 73 74 2e 24 61 63 5f 65 78 74 20 3c 3c 5f 41 43 st.$ac_ext <<_AC
2760: 45 4f 46 0a 2b 2f 2a 20 65 6e 64 20 63 6f 6e 66 EOF.+/* end conf
2770: 64 65 66 73 2e 68 2e 20 20 2a 2f 0a 2b 2f 2a 20 defs.h. */.+/*
2780: 44 65 66 69 6e 65 20 24 61 63 5f 66 75 6e 63 20 Define $ac_func
2790: 74 6f 20 61 6e 20 69 6e 6e 6f 63 75 6f 75 73 20 to an innocuous
27a0: 76 61 72 69 61 6e 74 2c 20 69 6e 20 63 61 73 65 variant, in case
27b0: 20 3c 6c 69 6d 69 74 73 2e 68 3e 20 64 65 63 6c <limits.h> decl
27c0: 61 72 65 73 20 24 61 63 5f 66 75 6e 63 2e 0a 2b ares $ac_func..+
27d0: 20 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 For example,
27e0: 48 50 2d 55 58 20 31 31 69 20 3c 6c 69 6d 69 74 HP-UX 11i <limit
27f0: 73 2e 68 3e 20 64 65 63 6c 61 72 65 73 20 67 65 s.h> declares ge
2800: 74 74 69 6d 65 6f 66 64 61 79 2e 20 20 2a 2f 0a ttimeofday. */.
2810: 2b 23 64 65 66 69 6e 65 20 24 61 63 5f 66 75 6e +#define $ac_fun
2820: 63 20 69 6e 6e 6f 63 75 6f 75 73 5f 24 61 63 5f c innocuous_$ac_
2830: 66 75 6e 63 0a 2b 0a 2b 2f 2a 20 53 79 73 74 65 func.+.+/* Syste
2840: 6d 20 68 65 61 64 65 72 20 74 6f 20 64 65 66 69 m header to defi
2850: 6e 65 20 5f 5f 73 74 75 62 20 6d 61 63 72 6f 73 ne __stub macros
2860: 20 61 6e 64 20 68 6f 70 65 66 75 6c 6c 79 20 66 and hopefully f
2870: 65 77 20 70 72 6f 74 6f 74 79 70 65 73 2c 0a 2b ew prototypes,.+
2880: 20 20 20 20 77 68 69 63 68 20 63 61 6e 20 63 6f which can co
2890: 6e 66 6c 69 63 74 20 77 69 74 68 20 63 68 61 72 nflict with char
28a0: 20 24 61 63 5f 66 75 6e 63 20 28 29 3b 20 62 65 $ac_func (); be
28b0: 6c 6f 77 2e 0a 2b 20 20 20 20 50 72 65 66 65 72 low..+ Prefer
28c0: 20 3c 6c 69 6d 69 74 73 2e 68 3e 20 74 6f 20 3c <limits.h> to <
28d0: 61 73 73 65 72 74 2e 68 3e 20 69 66 20 5f 5f 53 assert.h> if __S
28e0: 54 44 43 5f 5f 20 69 73 20 64 65 66 69 6e 65 64 TDC__ is defined
28f0: 2c 20 73 69 6e 63 65 0a 2b 20 20 20 20 3c 6c 69 , since.+ <li
2900: 6d 69 74 73 2e 68 3e 20 65 78 69 73 74 73 20 65 mits.h> exists e
2910: 76 65 6e 20 6f 6e 20 66 72 65 65 73 74 61 6e 64 ven on freestand
2920: 69 6e 67 20 63 6f 6d 70 69 6c 65 72 73 2e 20 20 ing compilers.
2930: 2a 2f 0a 2b 0a 2b 23 69 66 64 65 66 20 5f 5f 53 */.+.+#ifdef __S
2940: 54 44 43 5f 5f 0a 2b 23 20 69 6e 63 6c 75 64 65 TDC__.+# include
2950: 20 3c 6c 69 6d 69 74 73 2e 68 3e 0a 2b 23 65 6c <limits.h>.+#el
2960: 73 65 0a 2b 23 20 69 6e 63 6c 75 64 65 20 3c 61 se.+# include <a
2970: 73 73 65 72 74 2e 68 3e 0a 2b 23 65 6e 64 69 66 ssert.h>.+#endif
2980: 0a 2b 0a 2b 23 75 6e 64 65 66 20 24 61 63 5f 66 .+.+#undef $ac_f
2990: 75 6e 63 0a 2b 0a 2b 2f 2a 20 4f 76 65 72 72 69 unc.+.+/* Overri
29a0: 64 65 20 61 6e 79 20 67 63 63 32 20 69 6e 74 65 de any gcc2 inte
29b0: 72 6e 61 6c 20 70 72 6f 74 6f 74 79 70 65 20 74 rnal prototype t
29c0: 6f 20 61 76 6f 69 64 20 61 6e 20 65 72 72 6f 72 o avoid an error
29d0: 2e 20 20 2a 2f 0a 2b 23 69 66 64 65 66 20 5f 5f . */.+#ifdef __
29e0: 63 70 6c 75 73 70 6c 75 73 0a 2b 65 78 74 65 72 cplusplus.+exter
29f0: 6e 20 22 43 22 0a 2b 7b 0a 2b 23 65 6e 64 69 66 n "C".+{.+#endif
2a00: 0a 2b 2f 2a 20 57 65 20 75 73 65 20 63 68 61 72 .+/* We use char
2a10: 20 62 65 63 61 75 73 65 20 69 6e 74 20 6d 69 67 because int mig
2a20: 68 74 20 6d 61 74 63 68 20 74 68 65 20 72 65 74 ht match the ret
2a30: 75 72 6e 20 74 79 70 65 20 6f 66 20 61 20 67 63 urn type of a gc
2a40: 63 32 0a 2b 20 20 20 62 75 69 6c 74 69 6e 20 61 c2.+ builtin a
2a50: 6e 64 20 74 68 65 6e 20 69 74 73 20 61 72 67 75 nd then its argu
2a60: 6d 65 6e 74 20 70 72 6f 74 6f 74 79 70 65 20 77 ment prototype w
2a70: 6f 75 6c 64 20 73 74 69 6c 6c 20 61 70 70 6c 79 ould still apply
2a80: 2e 20 20 2a 2f 0a 2b 63 68 61 72 20 24 61 63 5f . */.+char $ac_
2a90: 66 75 6e 63 20 28 29 3b 0a 2b 2f 2a 20 54 68 65 func ();.+/* The
2aa0: 20 47 4e 55 20 43 20 6c 69 62 72 61 72 79 20 64 GNU C library d
2ab0: 65 66 69 6e 65 73 20 74 68 69 73 20 66 6f 72 20 efines this for
2ac0: 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 functions which
2ad0: 69 74 20 69 6d 70 6c 65 6d 65 6e 74 73 0a 2b 20 it implements.+
2ae0: 20 20 20 74 6f 20 61 6c 77 61 79 73 20 66 61 69 to always fai
2af0: 6c 20 77 69 74 68 20 45 4e 4f 53 59 53 2e 20 20 l with ENOSYS.
2b00: 53 6f 6d 65 20 66 75 6e 63 74 69 6f 6e 73 20 61 Some functions a
2b10: 72 65 20 61 63 74 75 61 6c 6c 79 20 6e 61 6d 65 re actually name
2b20: 64 0a 2b 20 20 20 20 73 6f 6d 65 74 68 69 6e 67 d.+ something
2b30: 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 5f starting with _
2b40: 5f 20 61 6e 64 20 74 68 65 20 6e 6f 72 6d 61 6c _ and the normal
2b50: 20 6e 61 6d 65 20 69 73 20 61 6e 20 61 6c 69 61 name is an alia
2b60: 73 2e 20 20 2a 2f 0a 2b 23 69 66 20 64 65 66 69 s. */.+#if defi
2b70: 6e 65 64 20 28 5f 5f 73 74 75 62 5f 24 61 63 5f ned (__stub_$ac_
2b80: 66 75 6e 63 29 20 7c 7c 20 64 65 66 69 6e 65 64 func) || defined
2b90: 20 28 5f 5f 73 74 75 62 5f 5f 5f 24 61 63 5f 66 (__stub___$ac_f
2ba0: 75 6e 63 29 0a 2b 63 68 6f 6b 65 20 6d 65 0a 2b unc).+choke me.+
2bb0: 23 65 6c 73 65 0a 2b 63 68 61 72 20 28 2a 66 29 #else.+char (*f)
2bc0: 20 28 29 20 3d 20 24 61 63 5f 66 75 6e 63 3b 0a () = $ac_func;.
2bd0: 2b 23 65 6e 64 69 66 0a 2b 23 69 66 64 65 66 20 +#endif.+#ifdef
2be0: 5f 5f 63 70 6c 75 73 70 6c 75 73 0a 2b 7d 0a 2b __cplusplus.+}.+
2bf0: 23 65 6e 64 69 66 0a 2b 0a 2b 69 6e 74 0a 2b 6d #endif.+.+int.+m
2c00: 61 69 6e 20 28 29 0a 2b 7b 0a 2b 72 65 74 75 72 ain ().+{.+retur
2c10: 6e 20 66 20 21 3d 20 24 61 63 5f 66 75 6e 63 3b n f != $ac_func;
2c20: 0a 2b 20 20 3b 0a 2b 20 20 72 65 74 75 72 6e 20 .+ ;.+ return
2c30: 30 3b 0a 2b 7d 0a 2b 5f 41 43 45 4f 46 0a 2b 72 0;.+}.+_ACEOF.+r
2c40: 6d 20 2d 66 20 63 6f 6e 66 74 65 73 74 2e 24 61 m -f conftest.$a
2c50: 63 5f 6f 62 6a 65 78 74 20 63 6f 6e 66 74 65 73 c_objext conftes
2c60: 74 24 61 63 5f 65 78 65 65 78 74 0a 2b 69 66 20 t$ac_exeext.+if
2c70: 7b 20 28 65 76 61 6c 20 65 63 68 6f 20 22 24 61 { (eval echo "$a
2c80: 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 5c 22 s_me:$LINENO: \"
2c90: 24 61 63 5f 6c 69 6e 6b 5c 22 22 29 20 3e 26 35 $ac_link\"") >&5
2ca0: 0a 2b 20 20 28 65 76 61 6c 20 24 61 63 5f 6c 69 .+ (eval $ac_li
2cb0: 6e 6b 29 20 32 3e 63 6f 6e 66 74 65 73 74 2e 65 nk) 2>conftest.e
2cc0: 72 31 0a 2b 20 20 61 63 5f 73 74 61 74 75 73 3d r1.+ ac_status=
2cd0: 24 3f 0a 2b 20 20 67 72 65 70 20 2d 76 20 27 5e $?.+ grep -v '^
2ce0: 20 2a 2b 27 20 63 6f 6e 66 74 65 73 74 2e 65 72 *+' conftest.er
2cf0: 31 20 3e 63 6f 6e 66 74 65 73 74 2e 65 72 72 0a 1 >conftest.err.
2d00: 2b 20 20 72 6d 20 2d 66 20 63 6f 6e 66 74 65 73 + rm -f conftes
2d10: 74 2e 65 72 31 0a 2b 20 20 63 61 74 20 63 6f 6e t.er1.+ cat con
2d20: 66 74 65 73 74 2e 65 72 72 20 3e 26 35 0a 2b 20 ftest.err >&5.+
2d30: 20 65 63 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c echo "$as_me:$L
2d40: 49 4e 45 4e 4f 3a 20 5c 24 3f 20 3d 20 24 61 63 INENO: \$? = $ac
2d50: 5f 73 74 61 74 75 73 22 20 3e 26 35 0a 2b 20 20 _status" >&5.+
2d60: 28 65 78 69 74 20 24 61 63 5f 73 74 61 74 75 73 (exit $ac_status
2d70: 29 3b 20 7d 20 26 26 0a 2b 09 20 7b 20 61 63 5f ); } &&.+. { ac_
2d80: 74 72 79 3d 27 74 65 73 74 20 2d 7a 20 22 24 61 try='test -z "$a
2d90: 63 5f 63 5f 77 65 72 72 6f 72 5f 66 6c 61 67 22 c_c_werror_flag"
2da0: 0a 2b 09 09 09 20 7c 7c 20 74 65 73 74 20 21 20 .+... || test !
2db0: 2d 73 20 63 6f 6e 66 74 65 73 74 2e 65 72 72 27 -s conftest.err'
2dc0: 0a 2b 20 20 7b 20 28 65 76 61 6c 20 65 63 68 6f .+ { (eval echo
2dd0: 20 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f "$as_me:$LINENO
2de0: 3a 20 5c 22 24 61 63 5f 74 72 79 5c 22 22 29 20 : \"$ac_try\"")
2df0: 3e 26 35 0a 2b 20 20 28 65 76 61 6c 20 24 61 63 >&5.+ (eval $ac
2e00: 5f 74 72 79 29 20 32 3e 26 35 0a 2b 20 20 61 63 _try) 2>&5.+ ac
2e10: 5f 73 74 61 74 75 73 3d 24 3f 0a 2b 20 20 65 63 _status=$?.+ ec
2e20: 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 ho "$as_me:$LINE
2e30: 4e 4f 3a 20 5c 24 3f 20 3d 20 24 61 63 5f 73 74 NO: \$? = $ac_st
2e40: 61 74 75 73 22 20 3e 26 35 0a 2b 20 20 28 65 78 atus" >&5.+ (ex
2e50: 69 74 20 24 61 63 5f 73 74 61 74 75 73 29 3b 20 it $ac_status);
2e60: 7d 3b 20 7d 20 26 26 0a 2b 09 20 7b 20 61 63 5f }; } &&.+. { ac_
2e70: 74 72 79 3d 27 74 65 73 74 20 2d 73 20 63 6f 6e try='test -s con
2e80: 66 74 65 73 74 24 61 63 5f 65 78 65 65 78 74 27 ftest$ac_exeext'
2e90: 0a 2b 20 20 7b 20 28 65 76 61 6c 20 65 63 68 6f .+ { (eval echo
2ea0: 20 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f "$as_me:$LINENO
2eb0: 3a 20 5c 22 24 61 63 5f 74 72 79 5c 22 22 29 20 : \"$ac_try\"")
2ec0: 3e 26 35 0a 2b 20 20 28 65 76 61 6c 20 24 61 63 >&5.+ (eval $ac
2ed0: 5f 74 72 79 29 20 32 3e 26 35 0a 2b 20 20 61 63 _try) 2>&5.+ ac
2ee0: 5f 73 74 61 74 75 73 3d 24 3f 0a 2b 20 20 65 63 _status=$?.+ ec
2ef0: 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 ho "$as_me:$LINE
2f00: 4e 4f 3a 20 5c 24 3f 20 3d 20 24 61 63 5f 73 74 NO: \$? = $ac_st
2f10: 61 74 75 73 22 20 3e 26 35 0a 2b 20 20 28 65 78 atus" >&5.+ (ex
2f20: 69 74 20 24 61 63 5f 73 74 61 74 75 73 29 3b 20 it $ac_status);
2f30: 7d 3b 20 7d 3b 20 74 68 65 6e 0a 2b 20 20 65 76 }; }; then.+ ev
2f40: 61 6c 20 22 24 61 73 5f 61 63 5f 76 61 72 3d 79 al "$as_ac_var=y
2f50: 65 73 22 0a 2b 65 6c 73 65 0a 2b 20 20 65 63 68 es".+else.+ ech
2f60: 6f 20 22 24 61 73 5f 6d 65 3a 20 66 61 69 6c 65 o "$as_me: faile
2f70: 64 20 70 72 6f 67 72 61 6d 20 77 61 73 3a 22 20 d program was:"
2f80: 3e 26 35 0a 2b 73 65 64 20 27 73 2f 5e 2f 7c 20 >&5.+sed 's/^/|
2f90: 2f 27 20 63 6f 6e 66 74 65 73 74 2e 24 61 63 5f /' conftest.$ac_
2fa0: 65 78 74 20 3e 26 35 0a 2b 0a 2b 65 76 61 6c 20 ext >&5.+.+eval
2fb0: 22 24 61 73 5f 61 63 5f 76 61 72 3d 6e 6f 22 0a "$as_ac_var=no".
2fc0: 2b 66 69 0a 2b 72 6d 20 2d 66 20 63 6f 6e 66 74 +fi.+rm -f conft
2fd0: 65 73 74 2e 65 72 72 20 63 6f 6e 66 74 65 73 74 est.err conftest
2fe0: 2e 24 61 63 5f 6f 62 6a 65 78 74 20 5c 0a 2b 20 .$ac_objext \.+
2ff0: 20 20 20 20 20 63 6f 6e 66 74 65 73 74 24 61 63 conftest$ac
3000: 5f 65 78 65 65 78 74 20 63 6f 6e 66 74 65 73 74 _exeext conftest
3010: 2e 24 61 63 5f 65 78 74 0a 2b 66 69 0a 2b 65 63 .$ac_ext.+fi.+ec
3020: 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 ho "$as_me:$LINE
3030: 4e 4f 3a 20 72 65 73 75 6c 74 3a 20 60 65 76 61 NO: result: `eva
3040: 6c 20 65 63 68 6f 20 27 24 7b 27 24 61 73 5f 61 l echo '${'$as_a
3050: 63 5f 76 61 72 27 7d 27 60 22 20 3e 26 35 0a 2b c_var'}'`" >&5.+
3060: 65 63 68 6f 20 22 24 7b 45 43 48 4f 5f 54 7d 60 echo "${ECHO_T}`
3070: 65 76 61 6c 20 65 63 68 6f 20 27 24 7b 27 24 61 eval echo '${'$a
3080: 73 5f 61 63 5f 76 61 72 27 7d 27 60 22 20 3e 26 s_ac_var'}'`" >&
3090: 36 0a 2b 69 66 20 74 65 73 74 20 60 65 76 61 6c 6.+if test `eval
30a0: 20 65 63 68 6f 20 27 24 7b 27 24 61 73 5f 61 63 echo '${'$as_ac
30b0: 5f 76 61 72 27 7d 27 60 20 3d 20 79 65 73 3b 20 _var'}'` = yes;
30c0: 74 68 65 6e 0a 2b 20 20 63 61 74 20 3e 3e 63 6f then.+ cat >>co
30d0: 6e 66 64 65 66 73 2e 68 20 3c 3c 5f 41 43 45 4f nfdefs.h <<_ACEO
30e0: 46 0a 2b 23 64 65 66 69 6e 65 20 60 65 63 68 6f F.+#define `echo
30f0: 20 22 48 41 56 45 5f 24 61 63 5f 66 75 6e 63 22 "HAVE_$ac_func"
3100: 20 7c 20 24 61 73 5f 74 72 5f 63 70 70 60 20 31 | $as_tr_cpp` 1
3110: 0a 2b 5f 41 43 45 4f 46 0a 2b 0a 2b 66 69 0a 2b .+_ACEOF.+.+fi.+
3120: 64 6f 6e 65 0a 20 0a 20 0a 20 0a 20 23 20 41 64 done. . . . # Ad
3130: 64 20 74 68 65 20 74 68 72 65 61 64 73 20 73 75 d the threads su
3140: 70 70 6f 72 74 20 6c 69 62 72 61 72 69 65 73 0a pport libraries.
3150: 20 4c 49 42 53 3d 22 24 4c 49 42 53 24 54 48 52 LIBS="$LIBS$THR
3160: 45 41 44 53 5f 4c 49 42 53 22 0a 0a 49 6e 64 65 EADS_LIBS"..Inde
3170: 78 3a 20 75 6e 69 78 2f 74 63 6c 2e 6d 34 0a 3d x: unix/tcl.m4.=
3180: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3190: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
31a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
31b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
31c0: 3d 0a 2d 2d 2d 20 75 6e 69 78 2f 74 63 6c 2e 6d =.--- unix/tcl.m
31d0: 34 0a 2b 2b 2b 20 75 6e 69 78 2f 74 63 6c 2e 6d 4.+++ unix/tcl.m
31e0: 34 0a 40 40 20 2d 36 37 37 2c 31 31 20 2b 36 37 4.@@ -677,11 +67
31f0: 37 2c 31 31 20 40 40 0a 20 09 23 20 44 6f 65 73 7,11 @@. .# Does
3200: 20 74 68 65 20 70 74 68 72 65 61 64 2d 69 6d 70 the pthread-imp
3210: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 76 lementation prov
3220: 69 64 65 0a 20 09 23 20 27 70 74 68 72 65 61 64 ide. .# 'pthread
3230: 5f 61 74 74 72 5f 73 65 74 73 74 61 63 6b 73 69 _attr_setstacksi
3240: 7a 65 27 20 3f 0a 20 0a 20 09 61 63 5f 73 61 76 ze' ?. . .ac_sav
3250: 65 64 5f 6c 69 62 73 3d 24 4c 49 42 53 0a 20 09 ed_libs=$LIBS. .
3260: 4c 49 42 53 3d 22 24 4c 49 42 53 20 24 54 48 52 LIBS="$LIBS $THR
3270: 45 41 44 53 5f 4c 49 42 53 22 0a 2d 09 41 43 5f EADS_LIBS".-.AC_
3280: 43 48 45 43 4b 5f 46 55 4e 43 53 28 70 74 68 72 CHECK_FUNCS(pthr
3290: 65 61 64 5f 61 74 74 72 5f 73 65 74 73 74 61 63 ead_attr_setstac
32a0: 6b 73 69 7a 65 20 70 74 68 72 65 61 64 5f 61 74 ksize pthread_at
32b0: 66 6f 72 6b 29 0a 2b 09 41 43 5f 43 48 45 43 4b fork).+.AC_CHECK
32c0: 5f 46 55 4e 43 53 28 70 74 68 72 65 61 64 5f 61 _FUNCS(pthread_a
32d0: 74 74 72 5f 73 65 74 73 74 61 63 6b 73 69 7a 65 ttr_setstacksize
32e0: 20 70 74 68 72 65 61 64 5f 61 74 66 6f 72 6b 20 pthread_atfork
32f0: 70 74 68 72 65 61 64 5f 63 6f 6e 64 61 74 74 72 pthread_condattr
3300: 5f 73 65 74 63 6c 6f 63 6b 29 0a 20 09 41 43 5f _setclock). .AC_
3310: 43 48 45 43 4b 5f 46 55 4e 43 28 70 74 68 72 65 CHECK_FUNC(pthre
3320: 61 64 5f 61 74 74 72 5f 67 65 74 5f 6e 70 2c 74 ad_attr_get_np,t
3330: 63 6c 5f 6f 6b 3d 79 65 73 2c 74 63 6c 5f 6f 6b cl_ok=yes,tcl_ok
3340: 3d 6e 6f 29 0a 20 09 69 66 20 74 65 73 74 20 24 =no). .if test $
3350: 74 63 6c 5f 6f 6b 20 3d 20 79 65 73 20 3b 20 74 tcl_ok = yes ; t
3360: 68 65 6e 0a 20 09 20 20 20 20 41 43 5f 44 45 46 hen. . AC_DEF
3370: 49 4e 45 28 48 41 56 45 5f 50 54 48 52 45 41 44 INE(HAVE_PTHREAD
3380: 5f 41 54 54 52 5f 47 45 54 5f 4e 50 2c 20 31 2c _ATTR_GET_NP, 1,
3390: 0a 20 09 09 5b 44 6f 20 77 65 20 77 61 6e 74 20 . ..[Do we want
33a0: 61 20 42 53 44 2d 6c 69 6b 65 20 74 68 72 65 61 a BSD-like threa
33b0: 64 2d 61 74 74 72 69 62 75 74 65 20 69 6e 74 65 d-attribute inte
33c0: 72 66 61 63 65 3f 5d 29 0a 20 09 20 20 20 20 41 rface?]). . A
33d0: 43 5f 43 41 43 48 45 5f 43 48 45 43 4b 28 5b 66 C_CACHE_CHECK([f
33e0: 6f 72 20 70 74 68 72 65 61 64 5f 61 74 74 72 5f or pthread_attr_
33f0: 67 65 74 5f 6e 70 20 64 65 63 6c 61 72 61 74 69 get_np declarati
3400: 6f 6e 5d 2c 0a 40 40 20 2d 32 36 38 35 2c 31 30 on],.@@ -2685,10
3410: 20 2b 32 36 38 35 2c 31 32 20 40 40 0a 20 09 4c +2685,12 @@. .L
3420: 49 42 53 3d 22 24 4c 49 42 53 20 2d 6c 73 6f 63 IBS="$LIBS -lsoc
3430: 6b 65 74 20 2d 6c 6e 73 6c 22 0a 20 09 41 43 5f ket -lnsl". .AC_
3440: 43 48 45 43 4b 5f 46 55 4e 43 28 61 63 63 65 70 CHECK_FUNC(accep
3450: 74 2c 20 74 63 6c 5f 63 68 65 63 6b 4e 73 6c 3d t, tcl_checkNsl=
3460: 30 2c 20 5b 4c 49 42 53 3d 24 74 6b 5f 6f 6c 64 0, [LIBS=$tk_old
3470: 4c 69 62 73 5d 29 0a 20 20 20 20 20 66 69 0a 20 Libs]). fi.
3480: 20 20 20 20 41 43 5f 43 48 45 43 4b 5f 46 55 4e AC_CHECK_FUN
3490: 43 28 67 65 74 68 6f 73 74 62 79 6e 61 6d 65 2c C(gethostbyname,
34a0: 20 2c 20 5b 41 43 5f 43 48 45 43 4b 5f 4c 49 42 , [AC_CHECK_LIB
34b0: 28 6e 73 6c 2c 20 67 65 74 68 6f 73 74 62 79 6e (nsl, gethostbyn
34c0: 61 6d 65 2c 0a 20 09 20 20 20 20 5b 4c 49 42 53 ame,. . [LIBS
34d0: 3d 22 24 4c 49 42 53 20 2d 6c 6e 73 6c 22 5d 29 ="$LIBS -lnsl"])
34e0: 5d 29 0a 2b 20 20 20 20 41 43 5f 43 48 45 43 4b ]).+ AC_CHECK
34f0: 5f 4c 49 42 28 72 74 2c 20 63 6c 6f 63 6b 5f 67 _LIB(rt, clock_g
3500: 65 74 74 69 6d 65 2c 20 5b 4c 49 42 53 3d 22 24 ettime, [LIBS="$
3510: 4c 49 42 53 20 2d 6c 72 74 22 5d 29 0a 2b 20 20 LIBS -lrt"]).+
3520: 20 20 41 43 5f 43 48 45 43 4b 5f 46 55 4e 43 53 AC_CHECK_FUNCS
3530: 28 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 20 63 (clock_gettime c
3540: 6c 6f 63 6b 5f 6e 61 6e 6f 73 6c 65 65 70 29 0a lock_nanosleep).
3550: 20 5d 29 0a 20 0a 20 23 2d 2d 2d 2d 2d 2d 2d 2d ]). . #--------
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 23 20 ------------. #
35a0: 53 43 5f 54 43 4c 5f 45 41 52 4c 59 5f 46 4c 41 SC_TCL_EARLY_FLA
35b0: 47 53 0a 20 23 0a 0a 49 6e 64 65 78 3a 20 75 6e GS. #..Index: un
35c0: 69 78 2f 74 63 6c 43 6f 6e 66 69 67 2e 68 2e 69 ix/tclConfig.h.i
35d0: 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d n.==============
35e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
35f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3600: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3610: 3d 3d 3d 3d 0a 2d 2d 2d 20 75 6e 69 78 2f 74 63 ====.--- unix/tc
3620: 6c 43 6f 6e 66 69 67 2e 68 2e 69 6e 0a 2b 2b 2b lConfig.h.in.+++
3630: 20 75 6e 69 78 2f 74 63 6c 43 6f 6e 66 69 67 2e unix/tclConfig.
3640: 68 2e 69 6e 0a 40 40 20 2d 32 32 2c 31 30 20 2b h.in.@@ -22,10 +
3650: 32 32 2c 31 33 20 40 40 0a 20 2f 2a 20 44 65 66 22,13 @@. /* Def
3660: 69 6e 65 64 20 77 68 65 6e 20 63 6f 6d 70 69 6c ined when compil
3670: 65 72 20 73 75 70 70 6f 72 74 73 20 63 61 73 74 er supports cast
3680: 69 6e 67 20 74 6f 20 75 6e 69 6f 6e 20 74 79 70 ing to union typ
3690: 65 2e 20 2a 2f 0a 20 23 75 6e 64 65 66 20 48 41 e. */. #undef HA
36a0: 56 45 5f 43 41 53 54 5f 54 4f 5f 55 4e 49 4f 4e VE_CAST_TO_UNION
36b0: 0a 20 0a 20 2f 2a 20 44 65 66 69 6e 65 20 74 6f . . /* Define to
36c0: 20 31 20 69 66 20 79 6f 75 20 68 61 76 65 20 74 1 if you have t
36d0: 68 65 20 60 63 68 66 6c 61 67 73 27 20 66 75 6e he `chflags' fun
36e0: 63 74 69 6f 6e 2e 20 2a 2f 0a 20 23 75 6e 64 65 ction. */. #unde
36f0: 66 20 48 41 56 45 5f 43 48 46 4c 41 47 53 0a 2b f HAVE_CHFLAGS.+
3700: 0a 2b 2f 2a 20 44 65 66 69 6e 65 20 74 6f 20 31 .+/* Define to 1
3710: 20 69 66 20 79 6f 75 20 68 61 76 65 20 74 68 65 if you have the
3720: 20 60 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 27 `clock_gettime'
3730: 20 66 75 6e 63 74 69 6f 6e 2e 20 2a 2f 0a 2b 23 function. */.+#
3740: 75 6e 64 65 66 20 48 41 56 45 5f 43 4c 4f 43 4b undef HAVE_CLOCK
3750: 5f 47 45 54 54 49 4d 45 0a 20 0a 20 2f 2a 20 44 _GETTIME. . /* D
3760: 65 66 69 6e 65 20 74 6f 20 31 20 69 66 20 79 6f efine to 1 if yo
3770: 75 20 68 61 76 65 20 74 68 65 20 60 63 6f 70 79 u have the `copy
3780: 66 69 6c 65 27 20 66 75 6e 63 74 69 6f 6e 2e 20 file' function.
3790: 2a 2f 0a 20 23 75 6e 64 65 66 20 48 41 56 45 5f */. #undef HAVE_
37a0: 43 4f 50 59 46 49 4c 45 0a 20 0a 20 2f 2a 20 44 COPYFILE. . /* D
37b0: 65 66 69 6e 65 20 74 6f 20 31 20 69 66 20 79 6f efine to 1 if yo
37c0: 75 20 68 61 76 65 20 74 68 65 20 3c 63 6f 70 79 u have the <copy
37d0: 66 69 6c 65 2e 68 3e 20 68 65 61 64 65 72 20 66 file.h> header f
37e0: 69 6c 65 2e 20 2a 2f 0a 40 40 20 2d 31 36 30 2c ile. */.@@ -160,
37f0: 31 30 20 2b 31 36 33 2c 31 33 20 40 40 0a 20 2f 10 +163,13 @@. /
3800: 2a 20 44 6f 20 77 65 20 77 61 6e 74 20 61 20 42 * Do we want a B
3810: 53 44 2d 6c 69 6b 65 20 74 68 72 65 61 64 2d 61 SD-like thread-a
3820: 74 74 72 69 62 75 74 65 20 69 6e 74 65 72 66 61 ttribute interfa
3830: 63 65 3f 20 2a 2f 0a 20 23 75 6e 64 65 66 20 48 ce? */. #undef H
3840: 41 56 45 5f 50 54 48 52 45 41 44 5f 41 54 54 52 AVE_PTHREAD_ATTR
3850: 5f 47 45 54 5f 4e 50 0a 20 0a 20 2f 2a 20 44 65 _GET_NP. . /* De
3860: 66 69 6e 65 20 74 6f 20 31 20 69 66 20 79 6f 75 fine to 1 if you
3870: 20 68 61 76 65 20 74 68 65 20 60 70 74 68 72 65 have the `pthre
3880: 61 64 5f 61 74 74 72 5f 73 65 74 73 74 61 63 6b ad_attr_setstack
3890: 73 69 7a 65 27 20 66 75 6e 63 74 69 6f 6e 2e 20 size' function.
38a0: 2a 2f 0a 20 23 75 6e 64 65 66 20 48 41 56 45 5f */. #undef HAVE_
38b0: 50 54 48 52 45 41 44 5f 41 54 54 52 5f 53 45 54 PTHREAD_ATTR_SET
38c0: 53 54 41 43 4b 53 49 5a 45 0a 2b 0a 2b 2f 2a 20 STACKSIZE.+.+/*
38d0: 44 65 66 69 6e 65 20 74 6f 20 31 20 69 66 20 79 Define to 1 if y
38e0: 6f 75 20 68 61 76 65 20 74 68 65 20 60 70 74 68 ou have the `pth
38f0: 72 65 61 64 5f 63 6f 6e 64 61 74 74 72 5f 73 65 read_condattr_se
3900: 74 63 6c 6f 63 6b 27 20 66 75 6e 63 74 69 6f 6e tclock' function
3910: 2e 20 2a 2f 0a 2b 23 75 6e 64 65 66 20 48 41 56 . */.+#undef HAV
3920: 45 5f 50 54 48 52 45 41 44 5f 43 4f 4e 44 41 54 E_PTHREAD_CONDAT
3930: 54 52 5f 53 45 54 43 4c 4f 43 4b 0a 20 0a 20 2f TR_SETCLOCK. . /
3940: 2a 20 44 6f 20 77 65 20 77 61 6e 74 20 61 20 4c * Do we want a L
3950: 69 6e 75 78 2d 6c 69 6b 65 20 74 68 72 65 61 64 inux-like thread
3960: 2d 61 74 74 72 69 62 75 74 65 20 69 6e 74 65 72 -attribute inter
3970: 66 61 63 65 3f 20 2a 2f 0a 20 23 75 6e 64 65 66 face? */. #undef
3980: 20 48 41 56 45 5f 50 54 48 52 45 41 44 5f 47 45 HAVE_PTHREAD_GE
3990: 54 41 54 54 52 5f 4e 50 0a 20 0a 20 2f 2a 20 44 TATTR_NP. . /* D
39a0: 65 66 69 6e 65 20 74 6f 20 31 20 69 66 20 79 6f efine to 1 if yo
39b0: 75 20 68 61 76 65 20 74 68 65 20 60 70 74 68 72 u have the `pthr
39c0: 65 61 64 5f 67 65 74 5f 73 74 61 63 6b 73 69 7a ead_get_stacksiz
39d0: 65 5f 6e 70 27 20 66 75 6e 63 74 69 6f 6e 2e 20 e_np' function.
39e0: 2a 2f 0a 0a 49 6e 64 65 78 3a 20 75 6e 69 78 2f */..Index: unix/
39f0: 74 63 6c 55 6e 69 78 43 68 61 6e 2e 63 0a 3d 3d tclUnixChan.c.==
3a00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3a10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3a20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3a30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3a40: 0a 2d 2d 2d 20 75 6e 69 78 2f 74 63 6c 55 6e 69 .--- unix/tclUni
3a50: 78 43 68 61 6e 2e 63 0a 2b 2b 2b 20 75 6e 69 78 xChan.c.+++ unix
3a60: 2f 74 63 6c 55 6e 69 78 43 68 61 6e 2e 63 0a 40 /tclUnixChan.c.@
3a70: 40 20 2d 33 31 34 34 2c 31 31 20 2b 33 31 34 34 @ -3144,11 +3144
3a80: 2c 31 31 20 40 40 0a 20 20 20 20 20 20 2a 20 49 ,11 @@. * I
3a90: 66 20 74 68 65 72 65 20 69 73 20 61 20 6e 6f 6e f there is a non
3aa0: 2d 7a 65 72 6f 20 66 69 6e 69 74 65 20 74 69 6d -zero finite tim
3ab0: 65 6f 75 74 2c 20 63 6f 6d 70 75 74 65 20 74 68 eout, compute th
3ac0: 65 20 74 69 6d 65 20 77 68 65 6e 20 77 65 20 67 e time when we g
3ad0: 69 76 65 0a 20 20 20 20 20 20 2a 20 75 70 2e 0a ive. * up..
3ae0: 20 20 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 */. .
3af0: 69 66 20 28 74 69 6d 65 6f 75 74 20 3e 20 30 29 if (timeout > 0)
3b00: 20 7b 0a 2d 09 54 63 6c 5f 47 65 74 54 69 6d 65 {.-.Tcl_GetTime
3b10: 28 26 6e 6f 77 29 3b 0a 2b 09 54 63 6c 70 47 65 (&now);.+.TclpGe
3b20: 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 tMonotonicTime(&
3b30: 6e 6f 77 29 3b 0a 20 09 61 62 6f 72 74 54 69 6d now);. .abortTim
3b40: 65 2e 73 65 63 20 3d 20 6e 6f 77 2e 73 65 63 20 e.sec = now.sec
3b50: 2b 20 74 69 6d 65 6f 75 74 2f 31 30 30 30 3b 0a + timeout/1000;.
3b60: 20 09 61 62 6f 72 74 54 69 6d 65 2e 75 73 65 63 .abortTime.usec
3b70: 20 3d 20 6e 6f 77 2e 75 73 65 63 20 2b 20 28 74 = now.usec + (t
3b80: 69 6d 65 6f 75 74 25 31 30 30 30 29 2a 31 30 30 imeout%1000)*100
3b90: 30 3b 0a 20 09 69 66 20 28 61 62 6f 72 74 54 69 0;. .if (abortTi
3ba0: 6d 65 2e 75 73 65 63 20 3e 3d 20 31 30 30 30 30 me.usec >= 10000
3bb0: 30 30 29 20 7b 0a 20 09 20 20 20 20 61 62 6f 72 00) {. . abor
3bc0: 74 54 69 6d 65 2e 75 73 65 63 20 2d 3d 20 31 30 tTime.usec -= 10
3bd0: 30 30 30 30 30 3b 0a 20 09 20 20 20 20 61 62 6f 00000;. . abo
3be0: 72 74 54 69 6d 65 2e 73 65 63 20 2b 3d 20 31 3b rtTime.sec += 1;
3bf0: 0a 40 40 20 2d 33 32 33 33 2c 31 31 20 2b 33 32 .@@ -3233,11 +32
3c00: 33 33 2c 31 31 20 40 40 0a 20 0a 20 09 2f 2a 0a 33,11 @@. . ./*.
3c10: 20 09 20 2a 20 54 68 65 20 73 65 6c 65 63 74 20 . * The select
3c20: 72 65 74 75 72 6e 65 64 20 65 61 72 6c 79 2c 20 returned early,
3c30: 73 6f 20 77 65 20 6e 65 65 64 20 74 6f 20 72 65 so we need to re
3c40: 63 6f 6d 70 75 74 65 20 74 68 65 20 74 69 6d 65 compute the time
3c50: 6f 75 74 2e 0a 20 09 20 2a 2f 0a 20 0a 2d 09 54 out.. . */. .-.T
3c60: 63 6c 5f 47 65 74 54 69 6d 65 28 26 6e 6f 77 29 cl_GetTime(&now)
3c70: 3b 0a 2b 09 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 ;.+.TclpGetMonot
3c80: 6f 6e 69 63 54 69 6d 65 28 26 6e 6f 77 29 3b 0a onicTime(&now);.
3c90: 20 09 69 66 20 28 28 61 62 6f 72 74 54 69 6d 65 .if ((abortTime
3ca0: 2e 73 65 63 20 3c 20 6e 6f 77 2e 73 65 63 29 0a .sec < now.sec).
3cb0: 20 09 09 7c 7c 20 28 61 62 6f 72 74 54 69 6d 65 ..|| (abortTime
3cc0: 2e 73 65 63 3d 3d 6e 6f 77 2e 73 65 63 20 26 26 .sec==now.sec &&
3cd0: 20 61 62 6f 72 74 54 69 6d 65 2e 75 73 65 63 3c abortTime.usec<
3ce0: 3d 6e 6f 77 2e 75 73 65 63 29 29 20 7b 0a 20 09 =now.usec)) {. .
3cf0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 09 7d 0a 20 break;. .}.
3d00: 20 20 20 20 7d 0a 0a 49 6e 64 65 78 3a 20 75 6e }..Index: un
3d10: 69 78 2f 74 63 6c 55 6e 69 78 45 76 65 6e 74 2e ix/tclUnixEvent.
3d20: 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c.==============
3d30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3d40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3d50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3d60: 3d 3d 3d 3d 0a 2d 2d 2d 20 75 6e 69 78 2f 74 63 ====.--- unix/tc
3d70: 6c 55 6e 69 78 45 76 65 6e 74 2e 63 0a 2b 2b 2b lUnixEvent.c.+++
3d80: 20 75 6e 69 78 2f 74 63 6c 55 6e 69 78 45 76 65 unix/tclUnixEve
3d90: 6e 74 2e 63 0a 40 40 20 2d 34 30 2c 31 31 20 2b nt.c.@@ -40,11 +
3da0: 34 30 2c 31 31 20 40 40 0a 20 20 20 20 20 20 2a 40,11 @@. *
3db0: 20 54 68 65 20 6f 6e 6c 79 20 74 72 69 63 6b 20 The only trick
3dc0: 68 65 72 65 20 69 73 20 74 68 61 74 20 73 65 6c here is that sel
3dd0: 65 63 74 20 61 70 70 65 61 72 73 20 74 6f 20 72 ect appears to r
3de0: 65 74 75 72 6e 20 65 61 72 6c 79 20 75 6e 64 65 eturn early unde
3df0: 72 20 73 6f 6d 65 0a 20 20 20 20 20 20 2a 20 63 r some. * c
3e00: 6f 6e 64 69 74 69 6f 6e 73 2c 20 73 6f 20 77 65 onditions, so we
3e10: 20 68 61 76 65 20 74 6f 20 63 68 65 63 6b 20 74 have to check t
3e20: 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 o make sure that
3e30: 20 74 68 65 20 72 69 67 68 74 20 61 6d 6f 75 6e the right amoun
3e40: 74 20 6f 66 0a 20 20 20 20 20 20 2a 20 74 69 6d t of. * tim
3e50: 65 20 72 65 61 6c 6c 79 20 68 61 73 20 65 6c 61 e really has ela
3e60: 70 73 65 64 2e 20 20 49 66 20 69 74 27 73 20 74 psed. If it's t
3e70: 6f 6f 20 65 61 72 6c 79 2c 20 67 6f 20 62 61 63 oo early, go bac
3e80: 6b 20 74 6f 20 73 6c 65 65 70 20 61 67 61 69 6e k to sleep again
3e90: 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 2d 20 20 .. */. .-
3ea0: 20 20 54 63 6c 5f 47 65 74 54 69 6d 65 28 26 62 Tcl_GetTime(&b
3eb0: 65 66 6f 72 65 29 3b 0a 2b 20 20 20 20 54 63 6c efore);.+ Tcl
3ec0: 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d pGetMonotonicTim
3ed0: 65 28 26 62 65 66 6f 72 65 29 3b 0a 20 20 20 20 e(&before);.
3ee0: 20 61 66 74 65 72 20 3d 20 62 65 66 6f 72 65 3b after = before;
3ef0: 0a 20 20 20 20 20 61 66 74 65 72 2e 73 65 63 20 . after.sec
3f00: 2b 3d 20 6d 73 2f 31 30 30 30 3b 0a 20 20 20 20 += ms/1000;.
3f10: 20 61 66 74 65 72 2e 75 73 65 63 20 2b 3d 20 28 after.usec += (
3f20: 6d 73 25 31 30 30 30 29 2a 31 30 30 30 3b 0a 20 ms%1000)*1000;.
3f30: 20 20 20 20 69 66 20 28 61 66 74 65 72 2e 75 73 if (after.us
3f40: 65 63 20 3e 20 31 30 30 30 30 30 30 29 20 7b 0a ec > 1000000) {.
3f50: 20 09 61 66 74 65 72 2e 75 73 65 63 20 2d 3d 20 .after.usec -=
3f60: 31 30 30 30 30 30 30 3b 0a 40 40 20 2d 37 39 2c 1000000;.@@ -79,
3f70: 31 31 20 2b 37 39 2c 31 31 20 40 40 0a 20 09 09 11 +79,11 @@. ..
3f80: 7c 7c 20 28 28 64 65 6c 61 79 2e 74 76 5f 75 73 || ((delay.tv_us
3f90: 65 63 20 3d 3d 20 30 29 20 26 26 20 28 64 65 6c ec == 0) && (del
3fa0: 61 79 2e 74 76 5f 73 65 63 20 3d 3d 20 30 29 29 ay.tv_sec == 0))
3fb0: 29 20 7b 0a 20 09 20 20 20 20 62 72 65 61 6b 3b ) {. . break;
3fc0: 0a 20 09 7d 0a 20 09 28 76 6f 69 64 29 20 73 65 . .}. .(void) se
3fd0: 6c 65 63 74 28 30 2c 20 28 53 45 4c 45 43 54 5f lect(0, (SELECT_
3fe0: 4d 41 53 4b 20 2a 29 20 30 2c 20 28 53 45 4c 45 MASK *) 0, (SELE
3ff0: 43 54 5f 4d 41 53 4b 20 2a 29 20 30 2c 0a 20 09 CT_MASK *) 0,. .
4000: 09 28 53 45 4c 45 43 54 5f 4d 41 53 4b 20 2a 29 .(SELECT_MASK *)
4010: 20 30 2c 20 26 64 65 6c 61 79 29 3b 0a 2d 09 54 0, &delay);.-.T
4020: 63 6c 5f 47 65 74 54 69 6d 65 28 26 62 65 66 6f cl_GetTime(&befo
4030: 72 65 29 3b 0a 2b 09 54 63 6c 70 47 65 74 4d 6f re);.+.TclpGetMo
4040: 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 62 65 66 notonicTime(&bef
4050: 6f 72 65 29 3b 0a 20 20 20 20 20 7d 0a 20 7d 0a ore);. }. }.
4060: 20 0c 0a 20 23 65 6e 64 69 66 20 2f 2a 20 48 41 .. #endif /* HA
4070: 56 45 5f 43 4f 52 45 46 4f 55 4e 44 41 54 49 4f VE_COREFOUNDATIO
4080: 4e 20 2a 2f 0a 20 2f 2a 0a 0a 49 6e 64 65 78 3a N */. /*..Index:
4090: 20 75 6e 69 78 2f 74 63 6c 55 6e 69 78 4e 6f 74 unix/tclUnixNot
40a0: 66 79 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d fy.c.===========
40b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
40c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
40d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
40e0: 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 75 6e 69 78 =======.--- unix
40f0: 2f 74 63 6c 55 6e 69 78 4e 6f 74 66 79 2e 63 0a /tclUnixNotfy.c.
4100: 2b 2b 2b 20 75 6e 69 78 2f 74 63 6c 55 6e 69 78 +++ unix/tclUnix
4110: 4e 6f 74 66 79 2e 63 0a 40 40 20 2d 31 30 38 2c Notfy.c.@@ -108,
4120: 31 30 20 2b 31 30 38 2c 31 33 20 40 40 0a 20 20 10 +108,13 @@.
4130: 20 20 20 76 6f 69 64 20 2a 68 77 6e 64 3b 09 09 void *hwnd;..
4140: 09 2f 2a 20 4d 65 73 73 61 67 69 6e 67 20 77 69 ./* Messaging wi
4150: 6e 64 6f 77 2e 20 2a 2f 0a 20 23 65 6c 73 65 20 ndow. */. #else
4160: 2f 2a 20 21 5f 5f 43 59 47 57 49 4e 5f 5f 20 2a /* !__CYGWIN__ *
4170: 2f 0a 20 20 20 20 20 70 74 68 72 65 61 64 5f 63 /. pthread_c
4180: 6f 6e 64 5f 74 20 77 61 69 74 43 56 3b 09 2f 2a ond_t waitCV;./*
4190: 20 41 6e 79 20 6f 74 68 65 72 20 74 68 72 65 61 Any other threa
41a0: 64 20 61 6c 65 72 74 73 20 61 20 6e 6f 74 69 66 d alerts a notif
41b0: 69 65 72 20 74 68 61 74 20 61 6e 0a 20 09 09 09 ier that an. ...
41c0: 09 20 2a 20 65 76 65 6e 74 20 69 73 20 72 65 61 . * event is rea
41d0: 64 79 20 74 6f 20 62 65 20 70 72 6f 63 65 73 73 dy to be process
41e0: 65 64 20 62 79 20 73 69 67 6e 61 6c 69 6e 67 0a ed by signaling.
41f0: 20 09 09 09 09 20 2a 20 74 68 69 73 20 63 6f 6e .... * this con
4200: 64 69 74 69 6f 6e 20 76 61 72 69 61 62 6c 65 2e dition variable.
4210: 20 2a 2f 0a 2b 23 69 66 20 64 65 66 69 6e 65 64 */.+#if defined
4220: 28 48 41 56 45 5f 43 4c 4f 43 4b 5f 47 45 54 54 (HAVE_CLOCK_GETT
4230: 49 4d 45 29 20 26 26 20 64 65 66 69 6e 65 64 28 IME) && defined(
4240: 48 41 56 45 5f 50 54 48 52 45 41 44 5f 43 4f 4e HAVE_PTHREAD_CON
4250: 44 41 54 54 52 5f 53 45 54 43 4c 4f 43 4b 29 0a DATTR_SETCLOCK).
4260: 2b 20 20 20 20 69 6e 74 20 75 73 65 4d 6f 6e 6f + int useMono
4270: 54 69 6d 65 3b 09 09 2f 2a 20 57 68 65 6e 20 74 Time;../* When t
4280: 72 75 65 20 75 73 65 20 43 4c 4f 43 4b 5f 4d 4f rue use CLOCK_MO
4290: 4e 4f 54 4f 4e 49 43 20 2a 2f 0a 2b 23 65 6e 64 NOTONIC */.+#end
42a0: 69 66 0a 20 23 65 6e 64 69 66 20 2f 2a 20 5f 5f if. #endif /* __
42b0: 43 59 47 57 49 4e 5f 5f 20 2a 2f 0a 20 20 20 20 CYGWIN__ */.
42c0: 20 69 6e 74 20 77 61 69 74 43 56 69 6e 69 74 69 int waitCViniti
42d0: 61 6c 69 7a 65 64 3b 09 2f 2a 20 56 61 72 69 61 alized;./* Varia
42e0: 62 6c 65 20 74 6f 20 66 6c 61 67 20 69 6e 69 74 ble to flag init
42f0: 69 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 20 74 68 ialization of th
4300: 65 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 e structure */.
4310: 20 20 20 20 69 6e 74 20 65 76 65 6e 74 52 65 61 int eventRea
4320: 64 79 3b 09 09 2f 2a 20 54 72 75 65 20 69 66 20 dy;../* True if
4330: 61 6e 20 65 76 65 6e 74 20 69 73 20 72 65 61 64 an event is read
4340: 79 20 74 6f 20 62 65 20 70 72 6f 63 65 73 73 65 y to be processe
4350: 64 2e 0a 20 09 09 09 09 20 2a 20 55 73 65 64 20 d.. .... * Used
4360: 61 73 20 63 6f 6e 64 69 74 69 6f 6e 20 66 6c 61 as condition fla
4370: 67 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 g together with
4380: 77 61 69 74 43 56 0a 20 09 09 09 09 20 2a 20 61 waitCV. .... * a
4390: 62 6f 76 65 2e 20 2a 2f 0a 40 40 20 2d 33 35 39 bove. */.@@ -359
43a0: 2c 31 31 20 2b 33 36 32 2c 32 38 20 40 40 0a 20 ,11 +362,28 @@.
43b0: 09 09 63 6c 61 73 73 2e 6c 70 73 7a 43 6c 61 73 ..class.lpszClas
43c0: 73 4e 61 6d 65 2c 20 30 2c 20 30 2c 20 30 2c 20 sName, 0, 0, 0,
43d0: 30 2c 20 30 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 0, 0, NULL, NULL
43e0: 2c 0a 20 09 09 54 63 6c 57 69 6e 47 65 74 54 63 ,. ..TclWinGetTc
43f0: 6c 49 6e 73 74 61 6e 63 65 28 29 2c 20 4e 55 4c lInstance(), NUL
4400: 4c 29 3b 0a 20 09 74 73 64 50 74 72 2d 3e 65 76 L);. .tsdPtr->ev
4410: 65 6e 74 20 3d 20 43 72 65 61 74 65 45 76 65 6e ent = CreateEven
4420: 74 57 28 4e 55 4c 4c 2c 20 31 20 2f 2a 20 6d 61 tW(NULL, 1 /* ma
4430: 6e 75 61 6c 20 2a 2f 2c 0a 20 09 09 30 20 2f 2a nual */,. ..0 /*
4440: 20 21 73 69 67 6e 61 6c 65 64 20 2a 2f 2c 20 4e !signaled */, N
4450: 55 4c 4c 29 3b 0a 20 23 65 6c 73 65 0a 2d 09 70 ULL);. #else.-.p
4460: 74 68 72 65 61 64 5f 63 6f 6e 64 5f 69 6e 69 74 thread_cond_init
4470: 28 26 74 73 64 50 74 72 2d 3e 77 61 69 74 43 56 (&tsdPtr->waitCV
4480: 2c 20 4e 55 4c 4c 29 3b 0a 2b 23 69 66 20 64 65 , NULL);.+#if de
4490: 66 69 6e 65 64 28 48 41 56 45 5f 43 4c 4f 43 4b fined(HAVE_CLOCK
44a0: 5f 47 45 54 54 49 4d 45 29 20 26 26 20 64 65 66 _GETTIME) && def
44b0: 69 6e 65 64 28 48 41 56 45 5f 50 54 48 52 45 41 ined(HAVE_PTHREA
44c0: 44 5f 43 4f 4e 44 41 54 54 52 5f 53 45 54 43 4c D_CONDATTR_SETCL
44d0: 4f 43 4b 29 0a 2b 09 20 20 20 20 70 74 68 72 65 OCK).+. pthre
44e0: 61 64 5f 63 6f 6e 64 61 74 74 72 5f 74 20 61 74 ad_condattr_t at
44f0: 74 72 3b 0a 2b 0a 2b 09 20 20 20 20 70 74 68 72 tr;.+.+. pthr
4500: 65 61 64 5f 63 6f 6e 64 61 74 74 72 5f 69 6e 69 ead_condattr_ini
4510: 74 28 26 61 74 74 72 29 3b 0a 2b 09 20 20 20 20 t(&attr);.+.
4520: 74 73 64 50 74 72 2d 3e 75 73 65 4d 6f 6e 6f 54 tsdPtr->useMonoT
4530: 69 6d 65 20 3d 0a 2b 09 09 20 20 20 20 70 74 68 ime =.+.. pth
4540: 72 65 61 64 5f 63 6f 6e 64 61 74 74 72 5f 73 65 read_condattr_se
4550: 74 63 6c 6f 63 6b 28 26 61 74 74 72 2c 20 43 4c tclock(&attr, CL
4560: 4f 43 4b 5f 4d 4f 4e 4f 54 4f 4e 49 43 29 20 3d OCK_MONOTONIC) =
4570: 3d 20 30 3b 0a 2b 09 20 20 20 20 69 66 20 28 74 = 0;.+. if (t
4580: 73 64 50 74 72 2d 3e 75 73 65 4d 6f 6e 6f 54 69 sdPtr->useMonoTi
4590: 6d 65 29 20 7b 0a 2b 09 09 69 66 20 28 70 74 68 me) {.+..if (pth
45a0: 72 65 61 64 5f 63 6f 6e 64 5f 69 6e 69 74 28 26 read_cond_init(&
45b0: 74 73 64 50 74 72 2d 3e 77 61 69 74 43 56 2c 20 tsdPtr->waitCV,
45c0: 26 61 74 74 72 29 29 20 7b 0a 2b 09 09 20 20 20 &attr)) {.+..
45d0: 20 74 73 64 50 74 72 2d 3e 75 73 65 4d 6f 6e 6f tsdPtr->useMono
45e0: 54 69 6d 65 20 3d 20 30 3b 0a 2b 09 09 20 20 20 Time = 0;.+..
45f0: 20 70 74 68 72 65 61 64 5f 63 6f 6e 64 5f 69 6e pthread_cond_in
4600: 69 74 28 26 74 73 64 50 74 72 2d 3e 77 61 69 74 it(&tsdPtr->wait
4610: 43 56 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 09 7d 0a CV, NULL);.+..}.
4620: 2b 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b +. } else {.+
4630: 09 09 70 74 68 72 65 61 64 5f 63 6f 6e 64 5f 69 ..pthread_cond_i
4640: 6e 69 74 28 26 74 73 64 50 74 72 2d 3e 77 61 69 nit(&tsdPtr->wai
4650: 74 43 56 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 20 20 tCV, NULL);.+.
4660: 20 20 7d 0a 2b 09 20 20 20 20 70 74 68 72 65 61 }.+. pthrea
4670: 64 5f 63 6f 6e 64 61 74 74 72 5f 64 65 73 74 72 d_condattr_destr
4680: 6f 79 28 26 61 74 74 72 29 3b 0a 2b 23 65 6c 73 oy(&attr);.+#els
4690: 65 0a 2b 09 20 20 20 20 70 74 68 72 65 61 64 5f e.+. pthread_
46a0: 63 6f 6e 64 5f 69 6e 69 74 28 26 74 73 64 50 74 cond_init(&tsdPt
46b0: 72 2d 3e 77 61 69 74 43 56 2c 20 4e 55 4c 4c 29 r->waitCV, NULL)
46c0: 3b 0a 2b 23 65 6e 64 69 66 0a 20 23 65 6e 64 69 ;.+#endif. #endi
46d0: 66 20 2f 2a 20 5f 5f 43 59 47 57 49 4e 5f 5f 20 f /* __CYGWIN__
46e0: 2a 2f 0a 20 09 74 73 64 50 74 72 2d 3e 77 61 69 */. .tsdPtr->wai
46f0: 74 43 56 69 6e 69 74 69 61 6c 69 7a 65 64 20 3d tCVinitialized =
4700: 20 31 3b 0a 20 20 20 20 20 7d 0a 20 0a 20 20 20 1;. }. .
4710: 20 20 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f pthread_mutex_
4720: 6c 6f 63 6b 28 26 6e 6f 74 69 66 69 65 72 49 6e lock(¬ifierIn
4730: 69 74 4d 75 74 65 78 29 3b 0a 40 40 20 2d 39 38 itMutex);.@@ -98
4740: 38 2c 31 37 20 2b 31 30 30 38 2c 32 39 20 40 40 8,17 +1008,29 @@
4750: 0a 20 09 20 20 20 20 4d 73 67 57 61 69 74 46 6f . . MsgWaitFo
4760: 72 4d 75 6c 74 69 70 6c 65 4f 62 6a 65 63 74 73 rMultipleObjects
4770: 28 31 2c 20 26 74 73 64 50 74 72 2d 3e 65 76 65 (1, &tsdPtr->eve
4780: 6e 74 2c 20 30 2c 20 74 69 6d 65 6f 75 74 2c 20 nt, 0, timeout,
4790: 31 32 37 39 29 3b 0a 20 09 20 20 20 20 70 74 68 1279);. . pth
47a0: 72 65 61 64 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 read_mutex_lock(
47b0: 26 6e 6f 74 69 66 69 65 72 4d 75 74 65 78 29 3b ¬ifierMutex);
47c0: 0a 20 09 7d 0a 20 23 65 6c 73 65 0a 20 09 69 66 . .}. #else. .if
47d0: 20 28 74 69 6d 65 50 74 72 20 21 3d 20 4e 55 4c (timePtr != NUL
47e0: 4c 29 20 7b 0a 2d 09 20 20 20 20 54 63 6c 5f 54 L) {.-. Tcl_T
47f0: 69 6d 65 20 6e 6f 77 3b 0a 20 09 20 20 20 20 73 ime now;. . s
4800: 74 72 75 63 74 20 74 69 6d 65 73 70 65 63 20 70 truct timespec p
4810: 74 69 6d 65 3b 0a 2b 0a 2b 23 69 66 20 64 65 66 time;.+.+#if def
4820: 69 6e 65 64 28 48 41 56 45 5f 43 4c 4f 43 4b 5f ined(HAVE_CLOCK_
4830: 47 45 54 54 49 4d 45 29 20 26 26 20 64 65 66 69 GETTIME) && defi
4840: 6e 65 64 28 48 41 56 45 5f 50 54 48 52 45 41 44 ned(HAVE_PTHREAD
4850: 5f 43 4f 4e 44 41 54 54 52 5f 53 45 54 43 4c 4f _CONDATTR_SETCLO
4860: 43 4b 29 0a 2b 09 20 20 20 20 69 66 20 28 74 73 CK).+. if (ts
4870: 64 50 74 72 2d 3e 75 73 65 4d 6f 6e 6f 54 69 6d dPtr->useMonoTim
4880: 65 29 20 7b 0a 2b 09 09 63 6c 6f 63 6b 5f 67 65 e) {.+..clock_ge
4890: 74 74 69 6d 65 28 43 4c 4f 43 4b 5f 4d 4f 4e 4f ttime(CLOCK_MONO
48a0: 54 4f 4e 49 43 2c 20 26 70 74 69 6d 65 29 3b 0a TONIC, &ptime);.
48b0: 2b 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b +. } else {.+
48c0: 09 09 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 28 ..clock_gettime(
48d0: 43 4c 4f 43 4b 5f 52 45 41 4c 54 49 4d 45 2c 20 CLOCK_REALTIME,
48e0: 26 70 74 69 6d 65 29 3b 0a 2b 09 20 20 20 20 7d &ptime);.+. }
48f0: 0a 2b 09 20 20 20 20 70 74 69 6d 65 2e 74 76 5f .+. ptime.tv_
4900: 73 65 63 20 2b 3d 20 74 69 6d 65 50 74 72 2d 3e sec += timePtr->
4910: 73 65 63 20 2b 0a 2b 09 09 20 20 20 20 28 74 69 sec +.+.. (ti
4920: 6d 65 50 74 72 2d 3e 75 73 65 63 20 2a 20 31 30 mePtr->usec * 10
4930: 30 30 20 2b 20 70 74 69 6d 65 2e 74 76 5f 6e 73 00 + ptime.tv_ns
4940: 65 63 29 20 2f 20 31 30 30 30 30 30 30 30 30 30 ec) / 1000000000
4950: 3b 0a 2b 09 20 20 20 20 70 74 69 6d 65 2e 74 76 ;.+. ptime.tv
4960: 5f 6e 73 65 63 20 3d 20 28 74 69 6d 65 50 74 72 _nsec = (timePtr
4970: 2d 3e 75 73 65 63 20 2a 20 31 30 30 30 20 2b 20 ->usec * 1000 +
4980: 70 74 69 6d 65 2e 74 76 5f 6e 73 65 63 29 20 25 ptime.tv_nsec) %
4990: 0a 2b 09 09 20 20 20 20 31 30 30 30 30 30 30 30 .+.. 10000000
49a0: 30 30 3b 0a 2b 23 65 6c 73 65 0a 2b 09 20 20 20 00;.+#else.+.
49b0: 20 54 63 6c 5f 54 69 6d 65 20 6e 6f 77 3b 0a 20 Tcl_Time now;.
49c0: 0a 20 09 20 20 20 20 54 63 6c 5f 47 65 74 54 69 . . Tcl_GetTi
49d0: 6d 65 28 26 6e 6f 77 29 3b 0a 20 09 20 20 20 20 me(&now);. .
49e0: 70 74 69 6d 65 2e 74 76 5f 73 65 63 20 3d 20 74 ptime.tv_sec = t
49f0: 69 6d 65 50 74 72 2d 3e 73 65 63 20 2b 20 6e 6f imePtr->sec + no
4a00: 77 2e 73 65 63 20 2b 20 28 74 69 6d 65 50 74 72 w.sec + (timePtr
4a10: 2d 3e 75 73 65 63 20 2b 20 6e 6f 77 2e 75 73 65 ->usec + now.use
4a20: 63 29 20 2f 20 31 30 30 30 30 30 30 3b 0a 20 09 c) / 1000000;. .
4a30: 20 20 20 20 70 74 69 6d 65 2e 74 76 5f 6e 73 65 ptime.tv_nse
4a40: 63 20 3d 20 31 30 30 30 20 2a 20 28 28 74 69 6d c = 1000 * ((tim
4a50: 65 50 74 72 2d 3e 75 73 65 63 20 2b 20 6e 6f 77 ePtr->usec + now
4a60: 2e 75 73 65 63 29 20 25 20 31 30 30 30 30 30 30 .usec) % 1000000
4a70: 29 3b 0a 2d 0a 2b 23 65 6e 64 69 66 0a 20 09 20 );.-.+#endif. .
4a80: 20 20 20 70 74 68 72 65 61 64 5f 63 6f 6e 64 5f pthread_cond_
4a90: 74 69 6d 65 64 77 61 69 74 28 26 74 73 64 50 74 timedwait(&tsdPt
4aa0: 72 2d 3e 77 61 69 74 43 56 2c 20 26 6e 6f 74 69 r->waitCV, ¬i
4ab0: 66 69 65 72 4d 75 74 65 78 2c 20 26 70 74 69 6d fierMutex, &ptim
4ac0: 65 29 3b 0a 20 09 7d 20 65 6c 73 65 20 7b 0a 20 e);. .} else {.
4ad0: 09 20 20 20 20 70 74 68 72 65 61 64 5f 63 6f 6e . pthread_con
4ae0: 64 5f 77 61 69 74 28 26 74 73 64 50 74 72 2d 3e d_wait(&tsdPtr->
4af0: 77 61 69 74 43 56 2c 20 26 6e 6f 74 69 66 69 65 waitCV, ¬ifie
4b00: 72 4d 75 74 65 78 29 3b 0a 20 09 7d 0a 20 23 65 rMutex);. .}. #e
4b10: 6e 64 69 66 20 2f 2a 20 5f 5f 43 59 47 57 49 4e ndif /* __CYGWIN
4b20: 5f 5f 20 2a 2f 0a 0a 49 6e 64 65 78 3a 20 75 6e __ */..Index: un
4b30: 69 78 2f 74 63 6c 55 6e 69 78 50 6f 72 74 2e 68 ix/tclUnixPort.h
4b40: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .===============
4b50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4b60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4b70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4b80: 3d 3d 3d 0a 2d 2d 2d 20 75 6e 69 78 2f 74 63 6c ===.--- unix/tcl
4b90: 55 6e 69 78 50 6f 72 74 2e 68 0a 2b 2b 2b 20 75 UnixPort.h.+++ u
4ba0: 6e 69 78 2f 74 63 6c 55 6e 69 78 50 6f 72 74 2e nix/tclUnixPort.
4bb0: 68 0a 40 40 20 2d 35 37 35 2c 31 30 20 2b 35 37 h.@@ -575,10 +57
4bc0: 35 2c 32 39 20 40 40 0a 20 09 20 20 20 20 28 5f 5,29 @@. . (_
4bd0: 5f 47 4e 55 43 5f 4d 49 4e 4f 52 5f 5f 20 3d 3d _GNUC_MINOR__ ==
4be0: 20 32 20 26 26 20 5f 5f 47 4e 55 43 5f 50 41 54 2 && __GNUC_PAT
4bf0: 43 48 4c 45 56 45 4c 5f 5f 20 3e 20 30 29 29 29 CHLEVEL__ > 0)))
4c00: 29 0a 20 23 20 20 20 20 20 20 20 75 6e 64 65 66 ). # undef
4c10: 20 55 53 45 5f 56 46 4f 52 4b 0a 20 23 20 20 20 USE_VFORK. #
4c20: 65 6e 64 69 66 20 2f 2a 20 5f 5f 6c 6c 76 6d 5f endif /* __llvm_
4c30: 5f 20 2a 2f 0a 20 23 65 6e 64 69 66 20 2f 2a 20 _ */. #endif /*
4c40: 5f 5f 41 50 50 4c 45 5f 5f 20 2a 2f 0a 20 0a 2b __APPLE__ */. .+
4c50: 2f 2a 0a 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*.+ *----------
4c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ca0: 2d 0a 2b 20 2a 20 55 73 65 20 63 6c 6f 63 6b 5f -.+ * Use clock_
4cb0: 67 65 74 74 69 6d 65 28 29 20 6f 6e 6c 79 20 69 gettime() only i
4cc0: 66 20 5f 50 4f 53 49 58 5f 4d 4f 4e 4f 54 4f 4e f _POSIX_MONOTON
4cd0: 49 43 5f 43 4c 4f 43 4b 20 70 72 65 73 65 6e 74 IC_CLOCK present
4ce0: 2e 0a 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ..+ *-----------
4cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d30: 0a 2b 20 2a 2f 0a 2b 0a 2b 23 69 66 20 64 65 66 .+ */.+.+#if def
4d40: 69 6e 65 64 28 48 41 56 45 5f 43 4c 4f 43 4b 5f ined(HAVE_CLOCK_
4d50: 47 45 54 54 49 4d 45 29 20 26 26 20 21 64 65 66 GETTIME) && !def
4d60: 69 6e 65 64 28 5f 50 4f 53 49 58 5f 4d 4f 4e 4f ined(_POSIX_MONO
4d70: 54 4f 4e 49 43 5f 43 4c 4f 43 4b 29 0a 2b 23 20 TONIC_CLOCK).+#
4d80: 20 20 75 6e 64 65 66 20 48 41 56 45 5f 43 4c 4f undef HAVE_CLO
4d90: 43 4b 5f 47 45 54 54 49 4d 45 0a 2b 23 65 6e 64 CK_GETTIME.+#end
4da0: 69 66 0a 2b 0a 2b 23 69 66 64 65 66 20 54 43 4c if.+.+#ifdef TCL
4db0: 5f 54 48 52 45 41 44 53 0a 2b 23 20 20 20 69 66 _THREADS.+# if
4dc0: 6e 64 65 66 20 48 41 56 45 5f 43 4c 4f 43 4b 5f ndef HAVE_CLOCK_
4dd0: 47 45 54 54 49 4d 45 0a 2b 23 09 75 6e 64 65 66 GETTIME.+#.undef
4de0: 20 48 41 56 45 5f 50 54 48 52 45 41 44 5f 43 4f HAVE_PTHREAD_CO
4df0: 4e 44 41 54 54 52 5f 53 45 54 43 4c 4f 43 4b 0a NDATTR_SETCLOCK.
4e00: 2b 23 20 20 20 65 6e 64 69 66 0a 2b 23 20 20 20 +# endif.+#
4e10: 69 66 6e 64 65 66 20 48 41 56 45 5f 50 54 48 52 ifndef HAVE_PTHR
4e20: 45 41 44 5f 43 4f 4e 44 41 54 54 52 5f 53 45 54 EAD_CONDATTR_SET
4e30: 43 4c 4f 43 4b 0a 2b 23 09 75 6e 64 65 66 20 48 CLOCK.+#.undef H
4e40: 41 56 45 5f 43 4c 4f 43 4b 5f 47 45 54 54 49 4d AVE_CLOCK_GETTIM
4e50: 45 0a 2b 23 20 20 20 65 6e 64 69 66 0a 2b 23 65 E.+# endif.+#e
4e60: 6e 64 69 66 0a 2b 0a 20 2f 2a 0a 20 20 2a 2d 2d ndif.+. /*. *--
4e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 2a 20 54 68 ---------. * Th
4ec0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 61 63 72 e following macr
4ed0: 6f 73 20 61 6e 64 20 64 65 63 6c 61 72 61 74 69 os and declarati
4ee0: 6f 6e 73 20 72 65 70 72 65 73 65 6e 74 20 74 68 ons represent th
4ef0: 65 20 69 6e 74 65 72 66 61 63 65 20 62 65 74 77 e interface betw
4f00: 65 65 6e 20 0a 20 20 2a 20 67 65 6e 65 72 69 63 een . * generic
4f10: 20 61 6e 64 20 75 6e 69 78 2d 73 70 65 63 69 66 and unix-specif
4f20: 69 63 20 70 61 72 74 73 20 6f 66 20 54 63 6c 2e ic parts of Tcl.
4f30: 20 20 53 6f 6d 65 20 6f 66 20 74 68 65 20 6d 61 Some of the ma
4f40: 63 72 6f 73 20 6d 61 79 20 6f 76 65 72 72 69 64 cros may overrid
4f50: 65 20 0a 20 20 2a 20 66 75 6e 63 74 69 6f 6e 73 e . * functions
4f60: 20 64 65 63 6c 61 72 65 64 20 69 6e 20 74 63 6c declared in tcl
4f70: 49 6e 74 2e 68 2e 0a 0a 49 6e 64 65 78 3a 20 75 Int.h...Index: u
4f80: 6e 69 78 2f 74 63 6c 55 6e 69 78 54 68 72 64 2e nix/tclUnixThrd.
4f90: 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c.==============
4fa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fd0: 3d 3d 3d 3d 0a 2d 2d 2d 20 75 6e 69 78 2f 74 63 ====.--- unix/tc
4fe0: 6c 55 6e 69 78 54 68 72 64 2e 63 0a 2b 2b 2b 20 lUnixThrd.c.+++
4ff0: 75 6e 69 78 2f 74 63 6c 55 6e 69 78 54 68 72 64 unix/tclUnixThrd
5000: 2e 63 0a 40 40 20 2d 36 31 35 2c 31 30 20 2b 36 .c.@@ -615,10 +6
5010: 31 35 2c 31 33 20 40 40 0a 20 20 20 20 20 54 63 15,13 @@. Tc
5020: 6c 5f 54 69 6d 65 20 2a 74 69 6d 65 50 74 72 29 l_Time *timePtr)
5030: 09 09 2f 2a 20 54 69 6d 65 6f 75 74 20 6f 6e 20 ../* Timeout on
5040: 77 61 69 74 69 6e 67 20 70 65 72 69 6f 64 20 2a waiting period *
5050: 2f 0a 20 7b 0a 20 20 20 20 20 70 74 68 72 65 61 /. {. pthrea
5060: 64 5f 63 6f 6e 64 5f 74 20 2a 70 63 6f 6e 64 50 d_cond_t *pcondP
5070: 74 72 3b 0a 20 20 20 20 20 70 74 68 72 65 61 64 tr;. pthread
5080: 5f 6d 75 74 65 78 5f 74 20 2a 70 6d 75 74 65 78 _mutex_t *pmutex
5090: 50 74 72 3b 0a 20 20 20 20 20 73 74 72 75 63 74 Ptr;. struct
50a0: 20 74 69 6d 65 73 70 65 63 20 70 74 69 6d 65 3b timespec ptime;
50b0: 0a 2b 23 69 66 20 64 65 66 69 6e 65 64 28 48 41 .+#if defined(HA
50c0: 56 45 5f 43 4c 4f 43 4b 5f 47 45 54 54 49 4d 45 VE_CLOCK_GETTIME
50d0: 29 20 26 26 20 64 65 66 69 6e 65 64 28 48 41 56 ) && defined(HAV
50e0: 45 5f 50 54 48 52 45 41 44 5f 43 4f 4e 44 41 54 E_PTHREAD_CONDAT
50f0: 54 52 5f 53 45 54 43 4c 4f 43 4b 29 0a 2b 20 20 TR_SETCLOCK).+
5100: 20 20 69 6e 74 20 2a 6d 6f 6e 6f 46 6c 61 67 50 int *monoFlagP
5110: 74 72 3b 0a 2b 23 65 6e 64 69 66 0a 20 0a 20 20 tr;.+#endif. .
5120: 20 20 20 69 66 20 28 2a 63 6f 6e 64 50 74 72 20 if (*condPtr
5130: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 20 09 4d 41 53 == NULL) {. .MAS
5140: 54 45 52 5f 4c 4f 43 4b 3b 0a 20 0a 20 09 2f 2a TER_LOCK;. . ./*
5150: 0a 40 40 20 2d 36 32 35 2c 31 32 20 2b 36 32 38 .@@ -625,12 +628
5160: 2c 33 30 20 40 40 0a 20 09 20 2a 20 44 6f 75 62 ,30 @@. . * Doub
5170: 6c 65 20 63 68 65 63 6b 20 69 6e 73 69 64 65 20 le check inside
5180: 6d 75 74 65 78 20 74 6f 20 61 76 6f 69 64 20 72 mutex to avoid r
5190: 61 63 65 2c 20 74 68 65 6e 20 69 6e 69 74 69 61 ace, then initia
51a0: 6c 69 7a 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 lize condition.
51b0: 09 20 2a 20 76 61 72 69 61 62 6c 65 20 69 66 20 . * variable if
51c0: 6e 65 63 65 73 73 61 72 79 2e 0a 20 09 20 2a 2f necessary.. . */
51d0: 0a 20 0a 20 09 69 66 20 28 2a 63 6f 6e 64 50 74 . . .if (*condPt
51e0: 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 23 69 r == NULL) {.+#i
51f0: 66 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f 43 f defined(HAVE_C
5200: 4c 4f 43 4b 5f 47 45 54 54 49 4d 45 29 20 26 26 LOCK_GETTIME) &&
5210: 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f 50 54 defined(HAVE_PT
5220: 48 52 45 41 44 5f 43 4f 4e 44 41 54 54 52 5f 53 HREAD_CONDATTR_S
5230: 45 54 43 4c 4f 43 4b 29 0a 2b 09 20 20 20 20 70 ETCLOCK).+. p
5240: 74 68 72 65 61 64 5f 63 6f 6e 64 61 74 74 72 5f thread_condattr_
5250: 74 20 61 74 74 72 3b 0a 2b 0a 2b 09 20 20 20 20 t attr;.+.+.
5260: 70 63 6f 6e 64 50 74 72 20 3d 20 28 70 74 68 72 pcondPtr = (pthr
5270: 65 61 64 5f 63 6f 6e 64 5f 74 20 2a 29 63 6b 61 ead_cond_t *)cka
5280: 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 70 74 68 72 lloc(sizeof(pthr
5290: 65 61 64 5f 63 6f 6e 64 5f 74 29 2b 73 69 7a 65 ead_cond_t)+size
52a0: 6f 66 28 69 6e 74 29 29 3b 0a 2b 09 20 20 20 20 of(int));.+.
52b0: 6d 6f 6e 6f 46 6c 61 67 50 74 72 20 3d 20 28 69 monoFlagPtr = (i
52c0: 6e 74 20 2a 29 28 70 63 6f 6e 64 50 74 72 20 2b nt *)(pcondPtr +
52d0: 20 31 29 3b 0a 2b 09 20 20 20 20 70 74 68 72 65 1);.+. pthre
52e0: 61 64 5f 63 6f 6e 64 61 74 74 72 5f 69 6e 69 74 ad_condattr_init
52f0: 28 26 61 74 74 72 29 3b 0a 2b 09 20 20 20 20 2a (&attr);.+. *
5300: 6d 6f 6e 6f 46 6c 61 67 50 74 72 20 3d 20 28 70 monoFlagPtr = (p
5310: 74 68 72 65 61 64 5f 63 6f 6e 64 61 74 74 72 5f thread_condattr_
5320: 73 65 74 63 6c 6f 63 6b 28 26 61 74 74 72 2c 20 setclock(&attr,
5330: 43 4c 4f 43 4b 5f 4d 4f 4e 4f 54 4f 4e 49 43 29 CLOCK_MONOTONIC)
5340: 20 3d 3d 20 30 29 3b 0a 2b 09 20 20 20 20 69 66 == 0);.+. if
5350: 20 28 2a 6d 6f 6e 6f 46 6c 61 67 50 74 72 29 20 (*monoFlagPtr)
5360: 7b 0a 2b 09 09 69 66 20 28 70 74 68 72 65 61 64 {.+..if (pthread
5370: 5f 63 6f 6e 64 5f 69 6e 69 74 28 70 63 6f 6e 64 _cond_init(pcond
5380: 50 74 72 2c 20 26 61 74 74 72 29 29 20 7b 0a 2b Ptr, &attr)) {.+
5390: 09 09 20 20 20 20 2a 6d 6f 6e 6f 46 6c 61 67 50 .. *monoFlagP
53a0: 74 72 20 3d 20 30 3b 0a 2b 09 09 20 20 20 20 70 tr = 0;.+.. p
53b0: 74 68 72 65 61 64 5f 63 6f 6e 64 5f 69 6e 69 74 thread_cond_init
53c0: 28 70 63 6f 6e 64 50 74 72 2c 20 4e 55 4c 4c 29 (pcondPtr, NULL)
53d0: 3b 0a 2b 09 09 7d 0a 2b 09 20 20 20 20 7d 20 65 ;.+..}.+. } e
53e0: 6c 73 65 20 7b 0a 2b 09 09 70 74 68 72 65 61 64 lse {.+..pthread
53f0: 5f 63 6f 6e 64 5f 69 6e 69 74 28 70 63 6f 6e 64 _cond_init(pcond
5400: 50 74 72 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 20 20 Ptr, NULL);.+.
5410: 20 20 7d 0a 2b 09 20 20 20 20 70 74 68 72 65 61 }.+. pthrea
5420: 64 5f 63 6f 6e 64 61 74 74 72 5f 64 65 73 74 72 d_condattr_destr
5430: 6f 79 28 26 61 74 74 72 29 3b 0a 2b 23 65 6c 73 oy(&attr);.+#els
5440: 65 0a 20 09 20 20 20 20 70 63 6f 6e 64 50 74 72 e. . pcondPtr
5450: 20 3d 20 28 70 74 68 72 65 61 64 5f 63 6f 6e 64 = (pthread_cond
5460: 5f 74 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 73 69 _t *) ckalloc(si
5470: 7a 65 6f 66 28 70 74 68 72 65 61 64 5f 63 6f 6e zeof(pthread_con
5480: 64 5f 74 29 29 3b 0a 20 09 20 20 20 20 70 74 68 d_t));. . pth
5490: 72 65 61 64 5f 63 6f 6e 64 5f 69 6e 69 74 28 70 read_cond_init(p
54a0: 63 6f 6e 64 50 74 72 2c 20 4e 55 4c 4c 29 3b 0a condPtr, NULL);.
54b0: 2b 23 65 6e 64 69 66 0a 20 09 20 20 20 20 2a 63 +#endif. . *c
54c0: 6f 6e 64 50 74 72 20 3d 20 28 54 63 6c 5f 43 6f ondPtr = (Tcl_Co
54d0: 6e 64 69 74 69 6f 6e 29 70 63 6f 6e 64 50 74 72 ndition)pcondPtr
54e0: 3b 0a 20 09 20 20 20 20 54 63 6c 52 65 6d 65 6d ;. . TclRemem
54f0: 62 65 72 43 6f 6e 64 69 74 69 6f 6e 28 63 6f 6e berCondition(con
5500: 64 50 74 72 29 3b 0a 20 09 7d 0a 20 09 4d 41 53 dPtr);. .}. .MAS
5510: 54 45 52 5f 55 4e 4c 4f 43 4b 3b 0a 20 20 20 20 TER_UNLOCK;.
5520: 20 7d 0a 40 40 20 2d 36 33 37 2c 31 30 20 2b 36 }.@@ -637,10 +6
5530: 35 38 2c 31 37 20 40 40 0a 20 20 20 20 20 70 6d 58,17 @@. pm
5540: 75 74 65 78 50 74 72 20 3d 20 2a 28 28 70 74 68 utexPtr = *((pth
5550: 72 65 61 64 5f 6d 75 74 65 78 5f 74 20 2a 2a 29 read_mutex_t **)
5560: 6d 75 74 65 78 50 74 72 29 3b 0a 20 20 20 20 20 mutexPtr);.
5570: 70 63 6f 6e 64 50 74 72 20 3d 20 2a 28 28 70 74 pcondPtr = *((pt
5580: 68 72 65 61 64 5f 63 6f 6e 64 5f 74 20 2a 2a 29 hread_cond_t **)
5590: 63 6f 6e 64 50 74 72 29 3b 0a 20 20 20 20 20 69 condPtr);. i
55a0: 66 20 28 74 69 6d 65 50 74 72 20 3d 3d 20 4e 55 f (timePtr == NU
55b0: 4c 4c 29 20 7b 0a 20 09 70 74 68 72 65 61 64 5f LL) {. .pthread_
55c0: 63 6f 6e 64 5f 77 61 69 74 28 70 63 6f 6e 64 50 cond_wait(pcondP
55d0: 74 72 2c 20 70 6d 75 74 65 78 50 74 72 29 3b 0a tr, pmutexPtr);.
55e0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b 23 } else {.+#
55f0: 69 66 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f if defined(HAVE_
5600: 43 4c 4f 43 4b 5f 47 45 54 54 49 4d 45 29 20 26 CLOCK_GETTIME) &
5610: 26 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f 50 & defined(HAVE_P
5620: 54 48 52 45 41 44 5f 43 4f 4e 44 41 54 54 52 5f THREAD_CONDATTR_
5630: 53 45 54 43 4c 4f 43 4b 29 0a 2b 09 6d 6f 6e 6f SETCLOCK).+.mono
5640: 46 6c 61 67 50 74 72 20 3d 20 28 69 6e 74 20 2a FlagPtr = (int *
5650: 29 28 70 63 6f 6e 64 50 74 72 20 2b 20 31 29 3b )(pcondPtr + 1);
5660: 0a 2b 09 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 .+.clock_gettime
5670: 28 2a 6d 6f 6e 6f 46 6c 61 67 50 74 72 20 3f 20 (*monoFlagPtr ?
5680: 43 4c 4f 43 4b 5f 4d 4f 4e 4f 54 4f 4e 49 43 20 CLOCK_MONOTONIC
5690: 3a 20 43 4c 4f 43 4b 5f 52 45 41 4c 54 49 4d 45 : CLOCK_REALTIME
56a0: 2c 20 26 70 74 69 6d 65 29 3b 0a 2b 09 70 74 69 , &ptime);.+.pti
56b0: 6d 65 2e 74 76 5f 73 65 63 20 2b 3d 20 74 69 6d me.tv_sec += tim
56c0: 65 50 74 72 2d 3e 73 65 63 20 2b 0a 2b 09 20 20 ePtr->sec +.+.
56d0: 20 20 28 74 69 6d 65 50 74 72 2d 3e 75 73 65 63 (timePtr->usec
56e0: 20 2a 20 31 30 30 30 20 2b 20 70 74 69 6d 65 2e * 1000 + ptime.
56f0: 74 76 5f 6e 73 65 63 29 20 2f 20 31 30 30 30 30 tv_nsec) / 10000
5700: 30 30 30 30 30 3b 0a 2b 09 70 74 69 6d 65 2e 74 00000;.+.ptime.t
5710: 76 5f 6e 73 65 63 20 3d 20 28 74 69 6d 65 50 74 v_nsec = (timePt
5720: 72 2d 3e 75 73 65 63 20 2a 20 31 30 30 30 20 2b r->usec * 1000 +
5730: 20 70 74 69 6d 65 2e 74 76 5f 6e 73 65 63 29 20 ptime.tv_nsec)
5740: 25 20 31 30 30 30 30 30 30 30 30 30 3b 0a 2b 23 % 1000000000;.+#
5750: 65 6c 73 65 0a 20 09 54 63 6c 5f 54 69 6d 65 20 else. .Tcl_Time
5760: 6e 6f 77 3b 0a 20 0a 20 09 2f 2a 0a 20 09 20 2a now;. . ./*. . *
5770: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 74 61 Make sure to ta
5780: 6b 65 20 69 6e 74 6f 20 61 63 63 6f 75 6e 74 20 ke into account
5790: 74 68 65 20 6d 69 63 72 6f 73 65 63 6f 6e 64 20 the microsecond
57a0: 63 6f 6d 70 6f 6e 65 6e 74 20 6f 66 20 74 68 65 component of the
57b0: 0a 20 09 20 2a 20 63 75 72 72 65 6e 74 20 74 69 . . * current ti
57c0: 6d 65 2c 20 69 6e 63 6c 75 64 69 6e 67 20 70 6f me, including po
57d0: 73 73 69 62 6c 65 20 6f 76 65 72 66 6c 6f 77 20 ssible overflow
57e0: 73 69 74 75 61 74 69 6f 6e 73 2e 20 5b 42 75 67 situations. [Bug
57f0: 20 23 34 31 31 36 30 33 5d 0a 40 40 20 2d 36 34 #411603].@@ -64
5800: 38 2c 31 30 20 2b 36 37 36 2c 31 31 20 40 40 0a 8,10 +676,11 @@.
5810: 20 0a 20 09 54 63 6c 5f 47 65 74 54 69 6d 65 28 . .Tcl_GetTime(
5820: 26 6e 6f 77 29 3b 0a 20 09 70 74 69 6d 65 2e 74 &now);. .ptime.t
5830: 76 5f 73 65 63 20 3d 20 74 69 6d 65 50 74 72 2d v_sec = timePtr-
5840: 3e 73 65 63 20 2b 20 6e 6f 77 2e 73 65 63 20 2b >sec + now.sec +
5850: 0a 20 09 20 20 20 20 28 74 69 6d 65 50 74 72 2d . . (timePtr-
5860: 3e 75 73 65 63 20 2b 20 6e 6f 77 2e 75 73 65 63 >usec + now.usec
5870: 29 20 2f 20 31 30 30 30 30 30 30 3b 0a 20 09 70 ) / 1000000;. .p
5880: 74 69 6d 65 2e 74 76 5f 6e 73 65 63 20 3d 20 31 time.tv_nsec = 1
5890: 30 30 30 20 2a 20 28 28 74 69 6d 65 50 74 72 2d 000 * ((timePtr-
58a0: 3e 75 73 65 63 20 2b 20 6e 6f 77 2e 75 73 65 63 >usec + now.usec
58b0: 29 20 25 20 31 30 30 30 30 30 30 29 3b 0a 2b 23 ) % 1000000);.+#
58c0: 65 6e 64 69 66 0a 20 09 70 74 68 72 65 61 64 5f endif. .pthread_
58d0: 63 6f 6e 64 5f 74 69 6d 65 64 77 61 69 74 28 70 cond_timedwait(p
58e0: 63 6f 6e 64 50 74 72 2c 20 70 6d 75 74 65 78 50 condPtr, pmutexP
58f0: 74 72 2c 20 26 70 74 69 6d 65 29 3b 0a 20 20 20 tr, &ptime);.
5900: 20 20 7d 0a 20 7d 0a 20 0c 0a 20 2f 2a 0a 0a 49 }. }. .. /*..I
5910: 6e 64 65 78 3a 20 75 6e 69 78 2f 74 63 6c 55 6e ndex: unix/tclUn
5920: 69 78 54 69 6d 65 2e 63 0a 3d 3d 3d 3d 3d 3d 3d ixTime.c.=======
5930: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5940: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5950: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5960: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 ===========.---
5970: 75 6e 69 78 2f 74 63 6c 55 6e 69 78 54 69 6d 65 unix/tclUnixTime
5980: 2e 63 0a 2b 2b 2b 20 75 6e 69 78 2f 74 63 6c 55 .c.+++ unix/tclU
5990: 6e 69 78 54 69 6d 65 2e 63 0a 40 40 20 2d 31 30 nixTime.c.@@ -10
59a0: 36 2c 31 30 20 2b 31 30 36 2c 31 36 20 40 40 0a 6,10 +106,16 @@.
59b0: 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 0a 20 unsigned long.
59c0: 54 63 6c 70 47 65 74 43 6c 69 63 6b 73 28 76 6f TclpGetClicks(vo
59d0: 69 64 29 0a 20 7b 0a 20 20 20 20 20 75 6e 73 69 id). {. unsi
59e0: 67 6e 65 64 20 6c 6f 6e 67 20 6e 6f 77 3b 0a 20 gned long now;.
59f0: 0a 2b 23 69 66 64 65 66 20 48 41 56 45 5f 43 4c .+#ifdef HAVE_CL
5a00: 4f 43 4b 5f 47 45 54 54 49 4d 45 0a 2b 20 20 20 OCK_GETTIME.+
5a10: 20 54 63 6c 5f 54 69 6d 65 20 74 69 6d 65 3b 0a Tcl_Time time;.
5a20: 2b 0a 2b 20 20 20 20 54 63 6c 70 47 65 74 4d 6f +.+ TclpGetMo
5a30: 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 74 69 6d notonicTime(&tim
5a40: 65 29 3b 0a 2b 20 20 20 20 6e 6f 77 20 3d 20 74 e);.+ now = t
5a50: 69 6d 65 2e 73 65 63 2a 31 30 30 30 30 30 30 20 ime.sec*1000000
5a60: 2b 20 74 69 6d 65 2e 75 73 65 63 3b 0a 2b 23 65 + time.usec;.+#e
5a70: 6c 73 65 0a 20 23 69 66 64 65 66 20 4e 4f 5f 47 lse. #ifdef NO_G
5a80: 45 54 54 4f 44 0a 20 20 20 20 20 69 66 20 28 74 ETTOD. if (t
5a90: 63 6c 47 65 74 54 69 6d 65 50 72 6f 63 50 74 72 clGetTimeProcPtr
5aa0: 20 21 3d 20 4e 61 74 69 76 65 47 65 74 54 69 6d != NativeGetTim
5ab0: 65 29 20 7b 0a 20 09 54 63 6c 5f 54 69 6d 65 20 e) {. .Tcl_Time
5ac0: 74 69 6d 65 3b 0a 20 0a 20 09 28 2a 74 63 6c 47 time;. . .(*tclG
5ad0: 65 74 54 69 6d 65 50 72 6f 63 50 74 72 29 20 28 etTimeProcPtr) (
5ae0: 26 74 69 6d 65 2c 20 74 63 6c 54 69 6d 65 43 6c &time, tclTimeCl
5af0: 69 65 6e 74 44 61 74 61 29 3b 0a 40 40 20 2d 31 ientData);.@@ -1
5b00: 32 35 2c 31 30 20 2b 31 33 31 2c 31 31 20 40 40 25,10 +131,11 @@
5b10: 0a 20 23 65 6c 73 65 0a 20 20 20 20 20 54 63 6c . #else. Tcl
5b20: 5f 54 69 6d 65 20 74 69 6d 65 3b 0a 20 0a 20 20 _Time time;. .
5b30: 20 20 20 28 2a 74 63 6c 47 65 74 54 69 6d 65 50 (*tclGetTimeP
5b40: 72 6f 63 50 74 72 29 20 28 26 74 69 6d 65 2c 20 rocPtr) (&time,
5b50: 74 63 6c 54 69 6d 65 43 6c 69 65 6e 74 44 61 74 tclTimeClientDat
5b60: 61 29 3b 0a 20 20 20 20 20 6e 6f 77 20 3d 20 74 a);. now = t
5b70: 69 6d 65 2e 73 65 63 2a 31 30 30 30 30 30 30 20 ime.sec*1000000
5b80: 2b 20 74 69 6d 65 2e 75 73 65 63 3b 0a 2b 23 65 + time.usec;.+#e
5b90: 6e 64 69 66 0a 20 23 65 6e 64 69 66 0a 20 0a 20 ndif. #endif. .
5ba0: 20 20 20 20 72 65 74 75 72 6e 20 6e 6f 77 3b 0a return now;.
5bb0: 20 7d 0a 20 23 69 66 64 65 66 20 54 43 4c 5f 57 }. #ifdef TCL_W
5bc0: 49 44 45 5f 43 4c 49 43 4b 53 0a 40 40 20 2d 34 IDE_CLICKS.@@ -4
5bd0: 39 33 2c 31 33 20 2b 35 30 30 2c 31 35 20 40 40 93,13 +500,15 @@
5be0: 0a 20 54 63 6c 5f 53 65 74 54 69 6d 65 50 72 6f . Tcl_SetTimePro
5bf0: 63 28 0a 20 20 20 20 20 54 63 6c 5f 47 65 74 54 c(. Tcl_GetT
5c00: 69 6d 65 50 72 6f 63 20 2a 67 65 74 50 72 6f 63 imeProc *getProc
5c10: 2c 0a 20 20 20 20 20 54 63 6c 5f 53 63 61 6c 65 ,. Tcl_Scale
5c20: 54 69 6d 65 50 72 6f 63 20 2a 73 63 61 6c 65 50 TimeProc *scaleP
5c30: 72 6f 63 2c 0a 20 20 20 20 20 43 6c 69 65 6e 74 roc,. Client
5c40: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29 Data clientData)
5c50: 0a 20 7b 0a 2b 23 69 66 6e 64 65 66 20 48 41 56 . {.+#ifndef HAV
5c60: 45 5f 43 4c 4f 43 4b 5f 47 45 54 54 49 4d 45 0a E_CLOCK_GETTIME.
5c70: 20 20 20 20 20 74 63 6c 47 65 74 54 69 6d 65 50 tclGetTimeP
5c80: 72 6f 63 50 74 72 20 3d 20 67 65 74 50 72 6f 63 rocPtr = getProc
5c90: 3b 0a 20 20 20 20 20 74 63 6c 53 63 61 6c 65 54 ;. tclScaleT
5ca0: 69 6d 65 50 72 6f 63 50 74 72 20 3d 20 73 63 61 imeProcPtr = sca
5cb0: 6c 65 50 72 6f 63 3b 0a 20 20 20 20 20 74 63 6c leProc;. tcl
5cc0: 54 69 6d 65 43 6c 69 65 6e 74 44 61 74 61 20 3d TimeClientData =
5cd0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 2b 23 65 clientData;.+#e
5ce0: 6e 64 69 66 0a 20 7d 0a 20 0c 0a 20 2f 2a 0a 20 ndif. }. .. /*.
5cf0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
5d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d30: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 2a 0a 40 40 20 --------. *.@@
5d40: 2d 36 34 38 2c 31 33 20 2b 36 35 37 2c 36 35 20 -648,13 +657,65
5d50: 40 40 0a 20 43 6c 65 61 6e 75 70 4d 65 6d 6f 72 @@. CleanupMemor
5d60: 79 28 0a 20 20 20 20 20 43 6c 69 65 6e 74 44 61 y(. ClientDa
5d70: 74 61 20 69 67 6e 6f 72 65 64 29 0a 20 7b 0a 20 ta ignored). {.
5d80: 20 20 20 20 63 6b 66 72 65 65 28 6c 61 73 74 54 ckfree(lastT
5d90: 5a 29 3b 0a 20 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 Z);. }.+..+/*.+
5da0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
5db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5de0: 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 0a 2b 20 2a 20 -------.+ *.+ *
5df0: 54 63 6c 70 47 65 74 4d 6f 6e 6f 6e 6f 74 69 63 TclpGetMononotic
5e00: 54 69 6d 65 20 2d 2d 0a 2b 20 2a 0a 2b 20 2a 09 Time --.+ *.+ *.
5e10: 4c 69 6b 65 20 54 63 6c 5f 47 65 74 54 69 6d 65 Like Tcl_GetTime
5e20: 28 29 20 62 75 74 20 72 65 74 75 72 6e 20 61 20 () but return a
5e30: 6d 6f 6e 6f 74 6f 6e 69 63 20 63 6c 6f 63 6b 20 monotonic clock
5e40: 73 6f 75 72 63 65 2c 0a 2b 20 2a 09 69 66 20 70 source,.+ *.if p
5e50: 6f 73 73 69 62 6c 65 2e 20 4f 74 68 65 72 77 69 ossible. Otherwi
5e60: 73 65 20 66 61 6c 6c 20 62 61 63 6b 20 74 6f 20 se fall back to
5e70: 72 65 61 6c 20 28 77 61 6c 6c 20 63 6c 6f 63 6b real (wall clock
5e80: 29 20 74 69 6d 65 2e 0a 2b 20 2a 0a 2b 20 2a 20 ) time..+ *.+ *
5e90: 52 65 73 75 6c 74 73 3a 0a 2b 20 2a 09 31 20 69 Results:.+ *.1 i
5ea0: 66 20 6d 6f 6e 6f 74 6f 6e 69 63 2c 20 30 20 6f f monotonic, 0 o
5eb0: 74 68 65 72 77 69 73 65 2e 0a 2b 20 2a 0a 2b 20 therwise..+ *.+
5ec0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
5ed0: 2b 20 2a 09 4e 6f 6e 65 2e 0a 2b 20 2a 0a 2b 20 + *.None..+ *.+
5ee0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
5ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f20: 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a 2b -------.+ */.+.+
5f30: 69 6e 74 0a 2b 54 63 6c 70 47 65 74 4d 6f 6e 6f int.+TclpGetMono
5f40: 74 6f 6e 69 63 54 69 6d 65 28 54 63 6c 5f 54 69 tonicTime(Tcl_Ti
5f50: 6d 65 20 2a 74 69 6d 65 50 74 72 29 0a 2b 7b 0a me *timePtr).+{.
5f60: 2b 23 69 66 64 65 66 20 48 41 56 45 5f 43 4c 4f +#ifdef HAVE_CLO
5f70: 43 4b 5f 47 45 54 54 49 4d 45 0a 2b 20 20 20 20 CK_GETTIME.+
5f80: 69 6e 74 20 72 65 74 3b 0a 2b 20 20 20 20 73 74 int ret;.+ st
5f90: 72 75 63 74 20 74 69 6d 65 73 70 65 63 20 74 73 ruct timespec ts
5fa0: 3b 0a 2b 20 20 20 20 73 74 61 74 69 63 20 69 6e ;.+ static in
5fb0: 74 20 75 73 65 4d 6f 6e 6f 43 6c 6f 63 6b 20 3d t useMonoClock =
5fc0: 20 2d 31 3b 0a 2b 0a 2b 20 20 20 20 69 66 20 28 -1;.+.+ if (
5fd0: 75 73 65 4d 6f 6e 6f 43 6c 6f 63 6b 29 20 7b 0a useMonoClock) {.
5fe0: 2b 09 72 65 74 20 3d 20 28 63 6c 6f 63 6b 5f 67 +.ret = (clock_g
5ff0: 65 74 74 69 6d 65 28 43 4c 4f 43 4b 5f 4d 4f 4e ettime(CLOCK_MON
6000: 4f 54 4f 4e 49 43 2c 20 26 74 73 29 20 3d 3d 20 OTONIC, &ts) ==
6010: 30 29 3b 0a 2b 09 69 66 20 28 75 73 65 4d 6f 6e 0);.+.if (useMon
6020: 6f 43 6c 6f 63 6b 20 3c 20 30 29 20 7b 0a 2b 09 oClock < 0) {.+.
6030: 20 20 20 20 75 73 65 4d 6f 6e 6f 43 6c 6f 63 6b useMonoClock
6040: 20 3d 20 72 65 74 3b 0a 2b 09 20 20 20 20 69 66 = ret;.+. if
6050: 20 28 21 72 65 74 29 20 7b 0a 2b 09 09 28 76 6f (!ret) {.+..(vo
6060: 69 64 29 20 63 6c 6f 63 6b 5f 67 65 74 74 69 6d id) clock_gettim
6070: 65 28 43 4c 4f 43 4b 5f 52 45 41 4c 54 49 4d 45 e(CLOCK_REALTIME
6080: 2c 20 26 74 73 29 3b 0a 2b 09 20 20 20 20 7d 0a , &ts);.+. }.
6090: 2b 09 7d 20 65 6c 73 65 20 69 66 20 28 21 72 65 +.} else if (!re
60a0: 74 29 20 7b 0a 2b 09 20 20 20 20 54 63 6c 5f 50 t) {.+. Tcl_P
60b0: 61 6e 69 63 28 22 63 6c 6f 63 6b 5f 67 65 74 74 anic("clock_gett
60c0: 69 6d 65 28 43 4c 4f 43 4b 5f 4d 4f 4e 4f 54 4f ime(CLOCK_MONOTO
60d0: 4e 49 43 29 20 66 61 69 6c 65 64 22 29 3b 0a 2b NIC) failed");.+
60e0: 09 7d 0a 2b 20 20 20 20 7d 20 65 6c 73 65 20 7b .}.+ } else {
60f0: 0a 2b 09 28 76 6f 69 64 29 20 63 6c 6f 63 6b 5f .+.(void) clock_
6100: 67 65 74 74 69 6d 65 28 43 4c 4f 43 4b 5f 52 45 gettime(CLOCK_RE
6110: 41 4c 54 49 4d 45 2c 20 26 74 73 29 3b 0a 2b 09 ALTIME, &ts);.+.
6120: 72 65 74 20 3d 20 30 3b 0a 2b 20 20 20 20 7d 0a ret = 0;.+ }.
6130: 2b 20 20 20 20 74 69 6d 65 50 74 72 2d 3e 73 65 + timePtr->se
6140: 63 20 3d 20 74 73 2e 74 76 5f 73 65 63 3b 0a 2b c = ts.tv_sec;.+
6150: 20 20 20 20 74 69 6d 65 50 74 72 2d 3e 75 73 65 timePtr->use
6160: 63 20 3d 20 74 73 2e 74 76 5f 6e 73 65 63 20 2f c = ts.tv_nsec /
6170: 20 31 30 30 30 3b 0a 2b 20 20 20 20 72 65 74 75 1000;.+ retu
6180: 72 6e 20 72 65 74 3b 0a 2b 23 65 6c 73 65 0a 2b rn ret;.+#else.+
6190: 20 20 20 20 73 74 72 75 63 74 20 74 69 6d 65 76 struct timev
61a0: 61 6c 20 74 76 3b 0a 2b 0a 2b 20 20 20 20 28 76 al tv;.+.+ (v
61b0: 6f 69 64 29 20 67 65 74 74 69 6d 65 6f 66 64 61 oid) gettimeofda
61c0: 79 28 26 74 76 2c 20 4e 55 4c 4c 29 3b 0a 2b 20 y(&tv, NULL);.+
61d0: 20 20 20 74 69 6d 65 50 74 72 2d 3e 73 65 63 20 timePtr->sec
61e0: 3d 20 74 76 2e 74 76 5f 73 65 63 3b 0a 2b 20 20 = tv.tv_sec;.+
61f0: 20 20 74 69 6d 65 50 74 72 2d 3e 75 73 65 63 20 timePtr->usec
6200: 3d 20 74 76 2e 74 76 5f 75 73 65 63 3b 0a 2b 20 = tv.tv_usec;.+
6210: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 2b 23 65 return 0;.+#e
6220: 6e 64 69 66 0a 2b 7d 0a 20 0c 0a 20 2f 2a 0a 20 ndif.+}. .. /*.
6230: 20 2a 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c * Local Variabl
6240: 65 73 3a 0a 20 20 2a 20 6d 6f 64 65 3a 20 63 0a es:. * mode: c.
6250: 20 20 2a 20 63 2d 62 61 73 69 63 2d 6f 66 66 73 * c-basic-offs
6260: 65 74 3a 20 34 0a 20 20 2a 20 66 69 6c 6c 2d 63 et: 4. * fill-c
6270: 6f 6c 75 6d 6e 3a 20 37 38 0a 20 20 2a 20 45 6e olumn: 78. * En
6280: 64 3a 0a 20 20 2a 2f 0a 0a 49 6e 64 65 78 3a 20 d:. */..Index:
6290: 77 69 6e 2f 63 6f 6e 66 69 67 75 72 65 0a 3d 3d win/configure.==
62a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
62b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
62c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
62d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
62e0: 0a 2d 2d 2d 20 77 69 6e 2f 63 6f 6e 66 69 67 75 .--- win/configu
62f0: 72 65 0a 2b 2b 2b 20 77 69 6e 2f 63 6f 6e 66 69 re.+++ win/confi
6300: 67 75 72 65 0a 40 40 20 2d 38 35 31 2c 31 30 20 gure.@@ -851,10
6310: 2b 38 35 31 2c 31 31 20 40 40 0a 20 4f 70 74 69 +851,11 @@. Opti
6320: 6f 6e 61 6c 20 50 61 63 6b 61 67 65 73 3a 0a 20 onal Packages:.
6330: 20 20 2d 2d 77 69 74 68 2d 50 41 43 4b 41 47 45 --with-PACKAGE
6340: 5b 3d 41 52 47 5d 20 20 20 20 75 73 65 20 50 41 [=ARG] use PA
6350: 43 4b 41 47 45 20 5b 41 52 47 3d 79 65 73 5d 0a CKAGE [ARG=yes].
6360: 20 20 20 2d 2d 77 69 74 68 6f 75 74 2d 50 41 43 --without-PAC
6370: 4b 41 47 45 20 20 20 20 20 20 20 64 6f 20 6e 6f KAGE do no
6380: 74 20 75 73 65 20 50 41 43 4b 41 47 45 20 28 73 t use PACKAGE (s
6390: 61 6d 65 20 61 73 20 2d 2d 77 69 74 68 2d 50 41 ame as --with-PA
63a0: 43 4b 41 47 45 3d 6e 6f 29 0a 20 20 20 2d 2d 77 CKAGE=no). --w
63b0: 69 74 68 2d 65 6e 63 6f 64 69 6e 67 20 20 20 20 ith-encoding
63c0: 20 20 20 20 20 65 6e 63 6f 64 69 6e 67 20 66 6f encoding fo
63d0: 72 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 r configuration
63e0: 76 61 6c 75 65 73 0a 20 20 20 2d 2d 77 69 74 68 values. --with
63f0: 2d 63 65 6c 69 62 3d 44 49 52 20 20 20 20 20 20 -celib=DIR
6400: 20 20 75 73 65 20 57 69 6e 64 6f 77 73 2f 43 45 use Windows/CE
6410: 20 73 75 70 70 6f 72 74 20 6c 69 62 72 61 72 79 support library
6420: 20 66 72 6f 6d 20 44 49 52 0a 2b 20 20 2d 2d 77 from DIR.+ --w
6430: 69 74 68 2d 74 69 63 6b 63 6f 75 6e 74 20 20 20 ith-tickcount
6440: 20 20 20 20 20 75 73 65 20 47 65 74 54 69 63 6b use GetTick
6450: 43 6f 75 6e 74 20 66 6f 72 20 74 69 6d 65 72 73 Count for timers
6460: 2c 20 74 75 72 6e 73 20 6f 66 66 20 54 49 50 20 , turns off TIP
6470: 23 32 33 33 0a 20 0a 20 53 6f 6d 65 20 69 6e 66 #233. . Some inf
6480: 6c 75 65 6e 74 69 61 6c 20 65 6e 76 69 72 6f 6e luential environ
6490: 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 73 3a 0a ment variables:.
64a0: 20 20 20 43 43 20 20 20 20 20 20 20 20 20 20 43 CC C
64b0: 20 63 6f 6d 70 69 6c 65 72 20 63 6f 6d 6d 61 6e compiler comman
64c0: 64 0a 20 20 20 43 46 4c 41 47 53 20 20 20 20 20 d. CFLAGS
64d0: 20 43 20 63 6f 6d 70 69 6c 65 72 20 66 6c 61 67 C compiler flag
64e0: 73 0a 20 20 20 4c 44 46 4c 41 47 53 20 20 20 20 s. LDFLAGS
64f0: 20 6c 69 6e 6b 65 72 20 66 6c 61 67 73 2c 20 65 linker flags, e
6500: 2e 67 2e 20 2d 4c 3c 6c 69 62 20 64 69 72 3e 20 .g. -L<lib dir>
6510: 69 66 20 79 6f 75 20 68 61 76 65 20 6c 69 62 72 if you have libr
6520: 61 72 69 65 73 20 69 6e 20 61 0a 40 40 20 2d 34 aries in a.@@ -4
6530: 32 36 38 2c 31 30 20 2b 34 32 36 39 2c 32 36 20 268,10 +4269,26
6540: 40 40 0a 20 0a 20 0a 20 0a 20 0a 20 0a 2b 23 20 @@. . . . . .+#
6550: 43 68 65 63 6b 20 77 68 65 74 68 65 72 20 2d 2d Check whether --
6560: 77 69 74 68 2d 74 69 63 6b 63 6f 75 6e 74 20 6f with-tickcount o
6570: 72 20 2d 2d 77 69 74 68 6f 75 74 2d 74 69 63 6b r --without-tick
6580: 63 6f 75 6e 74 20 77 61 73 20 67 69 76 65 6e 2e count was given.
6590: 0a 2b 69 66 20 74 65 73 74 20 22 24 7b 77 69 74 .+if test "${wit
65a0: 68 5f 74 69 63 6b 63 6f 75 6e 74 2b 73 65 74 7d h_tickcount+set}
65b0: 22 20 3d 20 73 65 74 3b 20 74 68 65 6e 0a 2b 20 " = set; then.+
65c0: 20 77 69 74 68 76 61 6c 3d 22 24 77 69 74 68 5f withval="$with_
65d0: 74 69 63 6b 63 6f 75 6e 74 22 0a 2b 20 20 74 63 tickcount".+ tc
65e0: 6c 5f 6f 6b 3d 24 77 69 74 68 76 61 6c 0a 2b 65 l_ok=$withval.+e
65f0: 6c 73 65 0a 2b 20 20 74 63 6c 5f 6f 6b 3d 6e 6f lse.+ tcl_ok=no
6600: 0a 2b 66 69 3b 0a 2b 65 63 68 6f 20 22 24 61 73 .+fi;.+echo "$as
6610: 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 72 65 73 _me:$LINENO: res
6620: 75 6c 74 3a 20 24 74 63 6c 5f 6f 6b 22 20 3e 26 ult: $tcl_ok" >&
6630: 35 0a 2b 65 63 68 6f 20 22 24 7b 45 43 48 4f 5f 5.+echo "${ECHO_
6640: 54 7d 24 74 63 6c 5f 6f 6b 22 20 3e 26 36 0a 2b T}$tcl_ok" >&6.+
6650: 69 66 20 74 65 73 74 20 24 74 63 6c 5f 6f 6b 20 if test $tcl_ok
6660: 3d 20 79 65 73 3b 20 74 68 65 6e 0a 2b 0a 2b 63 = yes; then.+.+c
6670: 61 74 20 3e 3e 63 6f 6e 66 64 65 66 73 2e 68 20 at >>confdefs.h
6680: 3c 3c 5c 5f 41 43 45 4f 46 0a 2b 23 64 65 66 69 <<\_ACEOF.+#defi
6690: 6e 65 20 57 49 4e 33 32 5f 55 53 45 5f 54 49 43 ne WIN32_USE_TIC
66a0: 4b 43 4f 55 4e 54 20 31 0a 2b 5f 41 43 45 4f 46 KCOUNT 1.+_ACEOF
66b0: 0a 2b 0a 2b 66 69 0a 20 0a 20 65 63 68 6f 20 22 .+.+fi. . echo "
66c0: 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 $as_me:$LINENO:
66d0: 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 69 6e 74 checking for int
66e0: 70 74 72 5f 74 22 20 3e 26 35 0a 20 65 63 68 6f ptr_t" >&5. echo
66f0: 20 24 45 43 48 4f 5f 4e 20 22 63 68 65 63 6b 69 $ECHO_N "checki
6700: 6e 67 20 66 6f 72 20 69 6e 74 70 74 72 5f 74 2e ng for intptr_t.
6710: 2e 2e 20 24 45 43 48 4f 5f 43 22 20 3e 26 36 0a .. $ECHO_C" >&6.
6720: 20 69 66 20 74 65 73 74 20 22 24 7b 61 63 5f 63 if test "${ac_c
6730: 76 5f 74 79 70 65 5f 69 6e 74 70 74 72 5f 74 2b v_type_intptr_t+
6740: 73 65 74 7d 22 20 3d 20 73 65 74 3b 20 74 68 65 set}" = set; the
6750: 6e 0a 20 20 20 65 63 68 6f 20 24 45 43 48 4f 5f n. echo $ECHO_
6760: 4e 20 22 28 63 61 63 68 65 64 29 20 24 45 43 48 N "(cached) $ECH
6770: 4f 5f 43 22 20 3e 26 36 0a 0a 49 6e 64 65 78 3a O_C" >&6..Index:
6780: 20 77 69 6e 2f 63 6f 6e 66 69 67 75 72 65 2e 69 win/configure.i
6790: 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d n.==============
67a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
67b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
67c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
67d0: 3d 3d 3d 3d 0a 2d 2d 2d 20 77 69 6e 2f 63 6f 6e ====.--- win/con
67e0: 66 69 67 75 72 65 2e 69 6e 0a 2b 2b 2b 20 77 69 figure.in.+++ wi
67f0: 6e 2f 63 6f 6e 66 69 67 75 72 65 2e 69 6e 0a 40 n/configure.in.@
6800: 40 20 2d 39 35 2c 31 30 20 2b 39 35 2c 31 39 20 @ -95,10 +95,19
6810: 40 40 0a 20 23 20 6d 61 63 72 6f 20 64 65 70 65 @@. # macro depe
6820: 6e 64 73 20 6f 6e 20 74 68 65 20 76 61 6c 75 65 nds on the value
6830: 20 6f 66 20 53 48 41 52 45 44 5f 42 55 49 4c 44 of SHARED_BUILD
6840: 2c 20 61 6e 64 20 73 68 6f 75 6c 64 20 62 65 20 , and should be
6850: 63 61 6c 6c 65 64 0a 20 23 20 61 66 74 65 72 20 called. # after
6860: 53 43 5f 45 4e 41 42 4c 45 5f 53 48 41 52 45 44 SC_ENABLE_SHARED
6870: 20 63 68 65 63 6b 73 20 74 68 65 20 63 6f 6e 66 checks the conf
6880: 69 67 75 72 65 20 73 77 69 74 63 68 65 73 2e 0a igure switches..
6890: 20 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d #--------------
68a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68d0: 2d 2d 2d 2d 2d 2d 0a 20 0a 20 53 43 5f 43 4f 4e ------. . SC_CON
68e0: 46 49 47 5f 43 46 4c 41 47 53 0a 2b 0a 2b 41 43 FIG_CFLAGS.+.+AC
68f0: 5f 41 52 47 5f 57 49 54 48 28 74 69 63 6b 63 6f _ARG_WITH(tickco
6900: 75 6e 74 2c 0a 2b 20 20 20 20 41 43 5f 48 45 4c unt,.+ AC_HEL
6910: 50 5f 53 54 52 49 4e 47 28 5b 2d 2d 77 69 74 68 P_STRING([--with
6920: 2d 74 69 63 6b 63 6f 75 6e 74 5d 2c 0a 2b 09 5b -tickcount],.+.[
6930: 75 73 65 20 47 65 74 54 69 63 6b 43 6f 75 6e 74 use GetTickCount
6940: 20 66 6f 72 20 74 69 6d 65 72 73 2c 20 74 75 72 for timers, tur
6950: 6e 73 20 6f 66 66 20 54 49 50 20 23 32 33 33 5d ns off TIP #233]
6960: 29 2c 0a 2b 20 20 20 20 5b 74 63 6c 5f 6f 6b 3d ),.+ [tcl_ok=
6970: 24 77 69 74 68 76 61 6c 5d 2c 20 5b 74 63 6c 5f $withval], [tcl_
6980: 6f 6b 3d 6e 6f 5d 29 0a 2b 41 43 5f 4d 53 47 5f ok=no]).+AC_MSG_
6990: 52 45 53 55 4c 54 28 5b 24 74 63 6c 5f 6f 6b 5d RESULT([$tcl_ok]
69a0: 29 0a 2b 69 66 20 74 65 73 74 20 24 74 63 6c 5f ).+if test $tcl_
69b0: 6f 6b 20 3d 20 79 65 73 3b 20 74 68 65 6e 0a 2b ok = yes; then.+
69c0: 20 20 20 20 41 43 5f 44 45 46 49 4e 45 28 57 49 AC_DEFINE(WI
69d0: 4e 33 32 5f 55 53 45 5f 54 49 43 4b 43 4f 55 4e N32_USE_TICKCOUN
69e0: 54 2c 20 31 2c 20 5b 55 73 65 20 47 65 74 54 69 T, 1, [Use GetTi
69f0: 63 6b 43 6f 75 6e 74 20 66 6f 72 20 74 69 6d 65 ckCount for time
6a00: 72 73 3f 5d 29 0a 2b 66 69 0a 20 0a 20 41 43 5f rs?]).+fi. . AC_
6a10: 43 48 45 43 4b 5f 54 59 50 45 28 5b 69 6e 74 70 CHECK_TYPE([intp
6a20: 74 72 5f 74 5d 2c 20 5b 0a 20 20 20 20 20 41 43 tr_t], [. AC
6a30: 5f 44 45 46 49 4e 45 28 5b 48 41 56 45 5f 49 4e _DEFINE([HAVE_IN
6a40: 54 50 54 52 5f 54 5d 2c 20 31 2c 20 5b 44 6f 20 TPTR_T], 1, [Do
6a50: 77 65 20 68 61 76 65 20 74 68 65 20 69 6e 74 70 we have the intp
6a60: 74 72 5f 74 20 74 79 70 65 3f 5d 29 5d 2c 20 5b tr_t type?])], [
6a70: 0a 20 20 20 20 20 41 43 5f 43 41 43 48 45 5f 43 . AC_CACHE_C
6a80: 48 45 43 4b 28 5b 66 6f 72 20 70 6f 69 6e 74 65 HECK([for pointe
6a90: 72 2d 73 69 7a 65 20 73 69 67 6e 65 64 20 69 6e r-size signed in
6aa0: 74 65 67 65 72 20 74 79 70 65 5d 2c 20 74 63 6c teger type], tcl
6ab0: 5f 63 76 5f 69 6e 74 70 74 72 5f 74 2c 20 5b 0a _cv_intptr_t, [.
6ac0: 20 20 20 20 20 66 6f 72 20 74 63 6c 5f 63 76 5f for tcl_cv_
6ad0: 69 6e 74 70 74 72 5f 74 20 69 6e 20 22 69 6e 74 intptr_t in "int
6ae0: 22 20 22 6c 6f 6e 67 22 20 22 6c 6f 6e 67 20 6c " "long" "long l
6af0: 6f 6e 67 22 20 6e 6f 6e 65 3b 20 64 6f 0a 0a 49 ong" none; do..I
6b00: 6e 64 65 78 3a 20 77 69 6e 2f 74 63 6c 57 69 6e ndex: win/tclWin
6b10: 49 6e 69 74 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d Init.c.=========
6b20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6b30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6b40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6b50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 77 69 =========.--- wi
6b60: 6e 2f 74 63 6c 57 69 6e 49 6e 69 74 2e 63 0a 2b n/tclWinInit.c.+
6b70: 2b 2b 20 77 69 6e 2f 74 63 6c 57 69 6e 49 6e 69 ++ win/tclWinIni
6b80: 74 2e 63 0a 40 40 20 2d 31 30 35 2c 31 30 20 2b t.c.@@ -105,10 +
6b90: 31 30 35 2c 31 38 20 40 40 0a 20 73 74 61 74 69 105,18 @@. stati
6ba0: 63 20 50 72 6f 63 65 73 73 47 6c 6f 62 61 6c 56 c ProcessGlobalV
6bb0: 61 6c 75 65 20 73 6f 75 72 63 65 4c 69 62 72 61 alue sourceLibra
6bc0: 72 79 44 69 72 20 3d 0a 20 09 7b 30 2c 20 30 2c ryDir =. .{0, 0,
6bd0: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 49 6e 69 NULL, NULL, Ini
6be0: 74 69 61 6c 69 7a 65 53 6f 75 72 63 65 4c 69 62 tializeSourceLib
6bf0: 72 61 72 79 44 69 72 2c 20 4e 55 4c 4c 2c 20 4e raryDir, NULL, N
6c00: 55 4c 4c 7d 3b 0a 20 0a 20 73 74 61 74 69 63 20 ULL};. . static
6c10: 76 6f 69 64 09 09 41 70 70 65 6e 64 45 6e 76 69 void..AppendEnvi
6c20: 72 6f 6e 6d 65 6e 74 28 54 63 6c 5f 4f 62 6a 20 ronment(Tcl_Obj
6c30: 2a 6c 69 73 74 50 74 72 2c 20 43 4f 4e 53 54 20 *listPtr, CONST
6c40: 63 68 61 72 20 2a 6c 69 62 29 3b 0a 20 73 74 61 char *lib);. sta
6c50: 74 69 63 20 69 6e 74 09 09 54 6f 55 74 66 28 43 tic int..ToUtf(C
6c60: 4f 4e 53 54 20 57 43 48 41 52 20 2a 77 53 72 63 ONST WCHAR *wSrc
6c70: 2c 20 63 68 61 72 20 2a 64 73 74 29 3b 0a 2b 0a , char *dst);.+.
6c80: 2b 23 69 66 64 65 66 20 57 49 4e 33 32 5f 55 53 +#ifdef WIN32_US
6c90: 45 5f 54 49 43 4b 43 4f 55 4e 54 0a 2b 74 79 70 E_TICKCOUNT.+typ
6ca0: 65 64 65 66 20 55 4c 4f 4e 47 4c 4f 4e 47 20 57 edef ULONGLONG W
6cb0: 49 4e 41 50 49 20 28 47 65 74 54 69 63 6b 43 6f INAPI (GetTickCo
6cc0: 75 6e 74 36 34 50 72 6f 63 29 28 76 6f 69 64 29 unt64Proc)(void)
6cd0: 3b 0a 2b 73 74 61 74 69 63 20 47 65 74 54 69 63 ;.+static GetTic
6ce0: 6b 43 6f 75 6e 74 36 34 50 72 6f 63 20 2a 47 65 kCount64Proc *Ge
6cf0: 74 54 69 63 6b 43 6f 75 6e 74 36 34 50 72 6f 63 tTickCount64Proc
6d00: 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 2b 73 74 61 Ptr = NULL;.+sta
6d10: 74 69 63 20 43 52 49 54 49 43 41 4c 5f 53 45 43 tic CRITICAL_SEC
6d20: 54 49 4f 4e 20 54 69 63 6b 4d 75 74 65 78 3b 0a TION TickMutex;.
6d30: 2b 73 74 61 74 69 63 20 44 57 4f 52 44 20 54 69 +static DWORD Ti
6d40: 63 6b 4f 66 66 73 65 74 2c 20 4c 61 73 74 54 69 ckOffset, LastTi
6d50: 63 6b 3b 0a 2b 73 74 61 74 69 63 20 55 4c 4f 4e ck;.+static ULON
6d60: 47 4c 4f 4e 47 20 54 69 63 6b 55 70 70 65 72 3b GLONG TickUpper;
6d70: 0a 2b 23 65 6e 64 69 66 0a 20 0c 0a 20 2f 2a 0a .+#endif. .. /*.
6d80: 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *-------------
6d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6dd0: 20 2a 0a 20 20 2a 20 54 63 6c 70 49 6e 69 74 50 *. * TclpInitP
6de0: 6c 61 74 66 6f 72 6d 20 2d 2d 0a 40 40 20 2d 31 latform --.@@ -1
6df0: 33 30 2c 31 38 20 2b 31 33 38 2c 34 34 20 40 40 30,18 +138,44 @@
6e00: 0a 20 76 6f 69 64 0a 20 54 63 6c 70 49 6e 69 74 . void. TclpInit
6e10: 50 6c 61 74 66 6f 72 6d 28 76 6f 69 64 29 0a 20 Platform(void).
6e20: 7b 0a 20 20 20 20 20 57 53 41 44 41 54 41 20 77 {. WSADATA w
6e30: 73 61 44 61 74 61 3b 0a 20 20 20 20 20 57 4f 52 saData;. WOR
6e40: 44 20 77 56 65 72 73 69 6f 6e 52 65 71 75 65 73 D wVersionReques
6e50: 74 65 64 20 3d 20 4d 41 4b 45 57 4f 52 44 28 32 ted = MAKEWORD(2
6e60: 2c 20 32 29 3b 0a 2b 23 69 66 64 65 66 20 57 49 , 2);.+#ifdef WI
6e70: 4e 33 32 5f 55 53 45 5f 54 49 43 4b 43 4f 55 4e N32_USE_TICKCOUN
6e80: 54 0a 2b 20 20 20 20 48 4d 4f 44 55 4c 45 20 68 T.+ HMODULE h
6e90: 61 6e 64 6c 65 3b 0a 2b 23 65 6e 64 69 66 0a 20 andle;.+#endif.
6ea0: 0a 20 20 20 20 20 74 63 6c 50 6c 61 74 66 6f 72 . tclPlatfor
6eb0: 6d 20 3d 20 54 43 4c 5f 50 4c 41 54 46 4f 52 4d m = TCL_PLATFORM
6ec0: 5f 57 49 4e 44 4f 57 53 3b 0a 20 0a 2d 09 2f 2a _WINDOWS;. .-./*
6ed0: 0a 2d 09 20 2a 20 49 6e 69 74 69 61 6c 69 7a 65 .-. * Initialize
6ee0: 20 74 68 65 20 77 69 6e 73 6f 63 6b 20 6c 69 62 the winsock lib
6ef0: 72 61 72 79 2e 20 4f 6e 20 57 69 6e 64 6f 77 73 rary. On Windows
6f00: 20 58 50 20 61 6e 64 20 68 69 67 68 65 72 20 74 XP and higher t
6f10: 68 69 73 0a 2d 09 20 2a 20 63 61 6e 20 6e 65 76 his.-. * can nev
6f20: 65 72 20 66 61 69 6c 2e 0a 2d 09 20 2a 2f 0a 2d er fail..-. */.-
6f30: 09 57 53 41 53 74 61 72 74 75 70 28 77 56 65 72 .WSAStartup(wVer
6f40: 73 69 6f 6e 52 65 71 75 65 73 74 65 64 2c 20 26 sionRequested, &
6f50: 77 73 61 44 61 74 61 29 3b 0a 2b 20 20 20 20 2f wsaData);.+ /
6f60: 2a 0a 2b 20 20 20 20 20 2a 20 49 6e 69 74 69 61 *.+ * Initia
6f70: 6c 69 7a 65 20 74 68 65 20 77 69 6e 73 6f 63 6b lize the winsock
6f80: 20 6c 69 62 72 61 72 79 2e 20 4f 6e 20 57 69 6e library. On Win
6f90: 64 6f 77 73 20 58 50 20 61 6e 64 20 68 69 67 68 dows XP and high
6fa0: 65 72 20 74 68 69 73 0a 2b 20 20 20 20 20 2a 20 er this.+ *
6fb0: 63 61 6e 20 6e 65 76 65 72 20 66 61 69 6c 2e 0a can never fail..
6fc0: 2b 20 20 20 20 20 2a 2f 0a 2b 20 20 20 20 57 53 + */.+ WS
6fd0: 41 53 74 61 72 74 75 70 28 77 56 65 72 73 69 6f AStartup(wVersio
6fe0: 6e 52 65 71 75 65 73 74 65 64 2c 20 26 77 73 61 nRequested, &wsa
6ff0: 44 61 74 61 29 3b 0a 2b 0a 2b 23 69 66 64 65 66 Data);.+.+#ifdef
7000: 20 57 49 4e 33 32 5f 55 53 45 5f 54 49 43 4b 43 WIN32_USE_TICKC
7010: 4f 55 4e 54 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 OUNT.+ /*.+
7020: 20 20 20 2a 20 43 68 65 63 6b 20 66 6f 72 20 61 * Check for a
7030: 76 61 69 6c 61 62 69 6c 69 74 79 20 6f 66 20 74 vailability of t
7040: 68 65 20 47 65 74 54 69 63 6b 43 6f 75 6e 74 36 he GetTickCount6
7050: 34 28 29 20 41 50 49 2e 0a 2b 20 20 20 20 20 2a 4() API..+ *
7060: 2f 0a 2b 0a 2b 20 20 20 20 68 61 6e 64 6c 65 20 /.+.+ handle
7070: 3d 20 47 65 74 4d 6f 64 75 6c 65 48 61 6e 64 6c = GetModuleHandl
7080: 65 41 28 22 4b 45 52 4e 45 4c 33 32 22 29 3b 0a eA("KERNEL32");.
7090: 2b 20 20 20 20 69 66 20 28 68 61 6e 64 6c 65 20 + if (handle
70a0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 47 65 74 != NULL) {.+.Get
70b0: 54 69 63 6b 43 6f 75 6e 74 36 34 50 72 6f 63 50 TickCount64ProcP
70c0: 74 72 20 3d 20 28 47 65 74 54 69 63 6b 43 6f 75 tr = (GetTickCou
70d0: 6e 74 36 34 50 72 6f 63 20 2a 29 0a 2b 09 09 47 nt64Proc *).+..G
70e0: 65 74 50 72 6f 63 41 64 64 72 65 73 73 28 68 61 etProcAddress(ha
70f0: 6e 64 6c 65 2c 20 22 47 65 74 54 69 63 6b 43 6f ndle, "GetTickCo
7100: 75 6e 74 36 34 22 29 3b 0a 2b 20 20 20 20 7d 0a unt64");.+ }.
7110: 2b 0a 2b 20 20 20 20 49 6e 69 74 69 61 6c 69 7a +.+ Initializ
7120: 65 43 72 69 74 69 63 61 6c 53 65 63 74 69 6f 6e eCriticalSection
7130: 28 26 54 69 63 6b 4d 75 74 65 78 29 3b 0a 2b 0a (&TickMutex);.+.
7140: 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 + /*.+ *
7150: 46 6f 72 63 65 20 61 20 77 72 61 70 20 61 72 6f Force a wrap aro
7160: 75 6e 64 20 77 69 74 68 69 6e 20 74 68 65 20 66 und within the f
7170: 69 72 73 74 20 66 65 77 20 73 65 63 6f 6e 64 73 irst few seconds
7180: 20 77 68 65 6e 0a 2b 20 20 20 20 20 2a 20 77 65 when.+ * we
7190: 20 6e 65 65 64 20 74 6f 20 66 61 6c 6c 20 62 61 need to fall ba
71a0: 63 6b 20 74 6f 20 47 65 74 54 69 63 6b 43 6f 75 ck to GetTickCou
71b0: 6e 74 28 29 2c 20 65 2e 67 2e 20 6f 6e 20 58 50 nt(), e.g. on XP
71c0: 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a 2b 20 20 ..+ */.+.+
71d0: 20 20 54 69 63 6b 4f 66 66 73 65 74 20 3d 20 30 TickOffset = 0
71e0: 78 66 66 66 66 65 30 30 30 20 2d 20 47 65 74 54 xffffe000 - GetT
71f0: 69 63 6b 43 6f 75 6e 74 28 29 3b 0a 2b 20 20 20 ickCount();.+
7200: 20 4c 61 73 74 54 69 63 6b 20 3d 20 54 69 63 6b LastTick = Tick
7210: 4f 66 66 73 65 74 3b 0a 2b 20 20 20 20 54 69 63 Offset;.+ Tic
7220: 6b 55 70 70 65 72 20 3d 20 30 3b 0a 2b 23 65 6e kUpper = 0;.+#en
7230: 64 69 66 0a 20 0a 20 23 69 66 64 65 66 20 53 54 dif. . #ifdef ST
7240: 41 54 49 43 5f 42 55 49 4c 44 0a 20 20 20 20 20 ATIC_BUILD.
7250: 2f 2a 0a 20 20 20 20 20 20 2a 20 49 66 20 77 65 /*. * If we
7260: 20 61 72 65 20 69 6e 20 61 20 73 74 61 74 69 63 are in a static
7270: 61 6c 6c 79 20 6c 69 6e 6b 65 64 20 65 78 65 63 ally linked exec
7280: 75 74 61 62 6c 65 2c 20 74 68 65 6e 20 77 65 20 utable, then we
7290: 6e 65 65 64 20 74 6f 20 65 78 70 6c 69 63 69 74 need to explicit
72a0: 6c 79 0a 20 20 20 20 20 20 2a 20 69 6e 69 74 69 ly. * initi
72b0: 61 6c 69 7a 65 20 74 68 65 20 57 69 6e 64 6f 77 alize the Window
72c0: 73 20 66 75 6e 63 74 69 6f 6e 20 74 61 62 6c 65 s function table
72d0: 73 20 68 65 72 65 20 73 69 6e 63 65 20 44 6c 6c s here since Dll
72e0: 4d 61 69 6e 28 29 20 77 69 6c 6c 20 6e 6f 74 20 Main() will not
72f0: 62 65 0a 40 40 20 2d 37 33 36 2c 31 33 20 2b 37 be.@@ -736,13 +7
7300: 37 30 2c 36 32 20 40 40 0a 20 20 20 64 6f 6e 65 70,62 @@. done
7310: 3a 0a 20 20 20 20 20 54 63 6c 5f 44 53 74 72 69 :. Tcl_DStri
7320: 6e 67 46 72 65 65 28 26 65 6e 76 53 74 72 69 6e ngFree(&envStrin
7330: 67 29 3b 0a 20 20 20 20 20 63 6b 66 72 65 65 28 g);. ckfree(
7340: 6e 61 6d 65 55 70 70 65 72 29 3b 0a 20 20 20 20 nameUpper);.
7350: 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 3b 0a return result;.
7360: 20 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d 2d 2d }.+..+/*.+ *---
7370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73b0: 2d 2d 2d 0a 2b 20 2a 0a 2b 20 2a 20 54 63 6c 70 ---.+ *.+ * Tclp
73c0: 47 65 74 4d 6f 6e 6f 6e 6f 74 69 63 54 69 6d 65 GetMononoticTime
73d0: 20 2d 2d 0a 2b 20 2a 0a 2b 20 2a 09 4c 69 6b 65 --.+ *.+ *.Like
73e0: 20 54 63 6c 5f 47 65 74 54 69 6d 65 28 29 20 62 Tcl_GetTime() b
73f0: 75 74 20 72 65 74 75 72 6e 20 61 20 6d 6f 6e 6f ut return a mono
7400: 74 6f 6e 69 63 20 63 6c 6f 63 6b 20 73 6f 75 72 tonic clock sour
7410: 63 65 2c 0a 2b 20 2a 09 69 66 20 70 6f 73 73 69 ce,.+ *.if possi
7420: 62 6c 65 2e 20 4f 74 68 65 72 77 69 73 65 20 66 ble. Otherwise f
7430: 61 6c 6c 20 62 61 63 6b 20 74 6f 20 72 65 61 6c all back to real
7440: 20 28 77 61 6c 6c 20 63 6c 6f 63 6b 29 20 74 69 (wall clock) ti
7450: 6d 65 2e 0a 2b 20 2a 0a 2b 20 2a 20 52 65 73 75 me..+ *.+ * Resu
7460: 6c 74 73 3a 0a 2b 20 2a 09 31 20 69 66 20 6d 6f lts:.+ *.1 if mo
7470: 6e 6f 74 6f 6e 69 63 2c 20 30 20 6f 74 68 65 72 notonic, 0 other
7480: 77 69 73 65 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 69 wise..+ *.+ * Si
7490: 64 65 20 65 66 66 65 63 74 73 3a 0a 2b 20 2a 09 de effects:.+ *.
74a0: 4e 6f 6e 65 2e 0a 2b 20 2a 0a 2b 20 2a 2d 2d 2d None..+ *.+ *---
74b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
74c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
74d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
74e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
74f0: 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a 2b 69 6e 74 0a ---.+ */.+.+int.
7500: 2b 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 +TclpGetMonotoni
7510: 63 54 69 6d 65 28 54 63 6c 5f 54 69 6d 65 20 2a cTime(Tcl_Time *
7520: 74 69 6d 65 50 74 72 29 0a 2b 7b 0a 2b 23 69 66 timePtr).+{.+#if
7530: 64 65 66 20 57 49 4e 33 32 5f 55 53 45 5f 54 49 def WIN32_USE_TI
7540: 43 4b 43 4f 55 4e 54 0a 2b 20 20 20 20 55 4c 4f CKCOUNT.+ ULO
7550: 4e 47 4c 4f 4e 47 20 6d 73 3b 0a 2b 20 20 20 20 NGLONG ms;.+
7560: 44 57 4f 52 44 20 74 69 63 6b 3b 0a 2b 0a 2b 20 DWORD tick;.+.+
7570: 20 20 20 69 66 20 28 47 65 74 54 69 63 6b 43 6f if (GetTickCo
7580: 75 6e 74 36 34 50 72 6f 63 50 74 72 20 21 3d 20 unt64ProcPtr !=
7590: 4e 55 4c 4c 29 20 7b 0a 2b 09 6d 73 20 3d 20 47 NULL) {.+.ms = G
75a0: 65 74 54 69 63 6b 43 6f 75 6e 74 36 34 50 72 6f etTickCount64Pro
75b0: 63 50 74 72 28 29 3b 0a 2b 20 20 20 20 7d 20 65 cPtr();.+ } e
75c0: 6c 73 65 20 7b 0a 2b 09 2f 2a 0a 2b 09 20 2a 20 lse {.+./*.+. *
75d0: 45 6d 75 6c 61 74 65 20 36 34 20 62 69 74 20 77 Emulate 64 bit w
75e0: 69 64 65 20 74 69 63 6b 20 63 6f 75 6e 74 65 72 ide tick counter
75f0: 2c 20 65 2e 67 2e 20 6f 6e 20 58 50 2e 0a 2b 09 , e.g. on XP..+.
7600: 20 2a 2f 0a 2b 0a 2b 09 45 6e 74 65 72 43 72 69 */.+.+.EnterCri
7610: 74 69 63 61 6c 53 65 63 74 69 6f 6e 28 26 54 69 ticalSection(&Ti
7620: 63 6b 4d 75 74 65 78 29 3b 0a 2b 09 74 69 63 6b ckMutex);.+.tick
7630: 20 3d 20 47 65 74 54 69 63 6b 43 6f 75 6e 74 28 = GetTickCount(
7640: 29 20 2b 20 54 69 63 6b 4f 66 66 73 65 74 3b 0a ) + TickOffset;.
7650: 2b 09 69 66 20 28 28 4c 61 73 74 54 69 63 6b 20 +.if ((LastTick
7660: 26 20 30 78 38 30 30 30 30 30 30 30 29 20 26 26 & 0x80000000) &&
7670: 20 21 28 74 69 63 6b 20 26 20 30 78 38 30 30 30 !(tick & 0x8000
7680: 30 30 30 30 29 29 20 7b 0a 2b 09 20 20 20 20 54 0000)) {.+. T
7690: 69 63 6b 55 70 70 65 72 20 2b 3d 20 30 78 31 30 ickUpper += 0x10
76a0: 30 30 30 30 30 30 30 55 4c 4c 3b 0a 2b 09 7d 0a 0000000ULL;.+.}.
76b0: 2b 09 4c 61 73 74 54 69 63 6b 20 3d 20 74 69 63 +.LastTick = tic
76c0: 6b 3b 0a 2b 09 6d 73 20 3d 20 54 69 63 6b 55 70 k;.+.ms = TickUp
76d0: 70 65 72 20 7c 20 4c 61 73 74 54 69 63 6b 3b 0a per | LastTick;.
76e0: 2b 09 4c 65 61 76 65 43 72 69 74 69 63 61 6c 53 +.LeaveCriticalS
76f0: 65 63 74 69 6f 6e 28 26 54 69 63 6b 4d 75 74 65 ection(&TickMute
7700: 78 29 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 x);.+ }.+
7710: 74 69 6d 65 50 74 72 2d 3e 73 65 63 20 3d 20 28 timePtr->sec = (
7720: 6c 6f 6e 67 29 28 6d 73 2f 31 30 30 30 29 3b 0a long)(ms/1000);.
7730: 2b 20 20 20 20 74 69 6d 65 50 74 72 2d 3e 75 73 + timePtr->us
7740: 65 63 20 3d 20 28 28 6c 6f 6e 67 29 28 6d 73 25 ec = ((long)(ms%
7750: 31 30 30 30 29 29 2a 31 30 30 30 3b 0a 2b 20 20 1000))*1000;.+
7760: 20 20 72 65 74 75 72 6e 20 31 3b 0a 2b 23 65 6c return 1;.+#el
7770: 73 65 0a 2b 20 20 20 20 54 63 6c 5f 47 65 74 54 se.+ Tcl_GetT
7780: 69 6d 65 28 74 69 6d 65 50 74 72 29 3b 0a 2b 20 ime(timePtr);.+
7790: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 2b 23 65 return 0;.+#e
77a0: 6e 64 69 66 0a 2b 7d 0a 20 0c 0a 20 2f 2a 0a 20 ndif.+}. .. /*.
77b0: 20 2a 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c * Local Variabl
77c0: 65 73 3a 0a 20 20 2a 20 6d 6f 64 65 3a 20 63 0a es:. * mode: c.
77d0: 20 20 2a 20 63 2d 62 61 73 69 63 2d 6f 66 66 73 * c-basic-offs
77e0: 65 74 3a 20 34 0a 20 20 2a 20 66 69 6c 6c 2d 63 et: 4. * fill-c
77f0: 6f 6c 75 6d 6e 3a 20 37 38 0a 20 20 2a 20 45 6e olumn: 78. * En
7800: 64 3a 0a 20 20 2a 2f 0a 0a 49 6e 64 65 78 3a 20 d:. */..Index:
7810: 77 69 6e 2f 74 63 6c 57 69 6e 4e 6f 74 69 66 79 win/tclWinNotify
7820: 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .c.=============
7830: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7840: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7850: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7860: 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 77 69 6e 2f 74 63 =====.--- win/tc
7870: 6c 57 69 6e 4e 6f 74 69 66 79 2e 63 0a 2b 2b 2b lWinNotify.c.+++
7880: 20 77 69 6e 2f 74 63 6c 57 69 6e 4e 6f 74 69 66 win/tclWinNotif
7890: 79 2e 63 0a 40 40 20 2d 34 33 35 2c 32 35 20 2b y.c.@@ -435,25 +
78a0: 34 33 35 2c 33 33 20 40 40 0a 20 20 20 20 20 2f 435,33 @@. /
78b0: 2a 0a 20 20 20 20 20 20 2a 20 43 6f 6d 70 75 74 *. * Comput
78c0: 65 20 74 68 65 20 74 69 6d 65 6f 75 74 20 69 6e e the timeout in
78d0: 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 2e 0a 20 milliseconds..
78e0: 20 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 69 */. . i
78f0: 66 20 28 74 69 6d 65 50 74 72 29 20 7b 0a 2b 09 f (timePtr) {.+.
7900: 54 63 6c 5f 54 69 6d 65 20 6d 79 54 69 6d 65 3b Tcl_Time myTime;
7910: 0a 2b 0a 2b 23 69 66 64 65 66 20 57 49 4e 33 32 .+.+#ifdef WIN32
7920: 5f 55 53 45 5f 54 49 43 4b 43 4f 55 4e 54 0a 2b _USE_TICKCOUNT.+
7930: 09 74 69 6d 65 6f 75 74 20 3d 20 6d 79 54 69 6d .timeout = myTim
7940: 65 2e 73 65 63 20 2a 20 31 30 30 30 20 2b 20 6d e.sec * 1000 + m
7950: 79 54 69 6d 65 2e 75 73 65 63 20 2f 20 31 30 30 yTime.usec / 100
7960: 30 3b 0a 2b 09 69 66 20 28 74 69 6d 65 6f 75 74 0;.+.if (timeout
7970: 20 3d 3d 20 49 4e 46 49 4e 49 54 45 29 20 7b 0a == INFINITE) {.
7980: 2b 09 20 20 20 20 74 69 6d 65 6f 75 74 2d 2d 3b +. timeout--;
7990: 0a 2b 09 7d 0a 2b 23 65 6c 73 65 0a 20 09 2f 2a .+.}.+#else. ./*
79a0: 0a 20 09 20 2a 20 54 49 50 20 23 32 33 33 20 28 . . * TIP #233 (
79b0: 56 69 72 74 75 61 6c 69 7a 65 64 20 54 69 6d 65 Virtualized Time
79c0: 29 2e 20 43 6f 6e 76 65 72 74 20 76 69 72 74 75 ). Convert virtu
79d0: 61 6c 20 64 6f 6d 61 69 6e 20 64 65 6c 61 79 20 al domain delay
79e0: 74 6f 0a 20 09 20 2a 20 72 65 61 6c 2d 74 69 6d to. . * real-tim
79f0: 65 2e 0a 20 09 20 2a 2f 0a 20 0a 2d 09 54 63 6c e.. . */. .-.Tcl
7a00: 5f 54 69 6d 65 20 6d 79 54 69 6d 65 3b 0a 20 0a _Time myTime;. .
7a10: 20 09 6d 79 54 69 6d 65 2e 73 65 63 20 20 3d 20 .myTime.sec =
7a20: 74 69 6d 65 50 74 72 2d 3e 73 65 63 3b 0a 20 09 timePtr->sec;. .
7a30: 6d 79 54 69 6d 65 2e 75 73 65 63 20 3d 20 74 69 myTime.usec = ti
7a40: 6d 65 50 74 72 2d 3e 75 73 65 63 3b 0a 20 0a 20 mePtr->usec;. .
7a50: 09 69 66 20 28 6d 79 54 69 6d 65 2e 73 65 63 20 .if (myTime.sec
7a60: 21 3d 20 30 20 7c 7c 20 6d 79 54 69 6d 65 2e 75 != 0 || myTime.u
7a70: 73 65 63 20 21 3d 20 30 29 20 7b 0a 20 09 20 20 sec != 0) {. .
7a80: 20 20 28 2a 74 63 6c 53 63 61 6c 65 54 69 6d 65 (*tclScaleTime
7a90: 50 72 6f 63 50 74 72 29 20 28 26 6d 79 54 69 6d ProcPtr) (&myTim
7aa0: 65 2c 20 74 63 6c 54 69 6d 65 43 6c 69 65 6e 74 e, tclTimeClient
7ab0: 44 61 74 61 29 3b 0a 20 09 7d 0a 20 0a 20 09 74 Data);. .}. . .t
7ac0: 69 6d 65 6f 75 74 20 3d 20 6d 79 54 69 6d 65 2e imeout = myTime.
7ad0: 73 65 63 20 2a 20 31 30 30 30 20 2b 20 6d 79 54 sec * 1000 + myT
7ae0: 69 6d 65 2e 75 73 65 63 20 2f 20 31 30 30 30 3b ime.usec / 1000;
7af0: 0a 2b 23 65 6e 64 69 66 0a 20 20 20 20 20 7d 20 .+#endif. }
7b00: 65 6c 73 65 20 7b 0a 20 09 74 69 6d 65 6f 75 74 else {. .timeout
7b10: 20 3d 20 49 4e 46 49 4e 49 54 45 3b 0a 20 20 20 = INFINITE;.
7b20: 20 20 7d 0a 20 0a 20 20 20 20 20 2f 2a 0a 40 40 }. . /*.@@
7b30: 20 2d 35 35 36 2c 31 31 20 2b 35 36 34 2c 31 31 -556,11 +564,11
7b40: 20 40 40 0a 20 20 20 20 20 44 57 4f 52 44 20 73 @@. DWORD s
7b50: 6c 65 65 70 54 69 6d 65 3b 09 09 2f 2a 20 54 69 leepTime;../* Ti
7b60: 6d 65 20 74 6f 20 73 6c 65 65 70 2c 20 72 65 61 me to sleep, rea
7b70: 6c 2d 74 69 6d 65 20 2a 2f 0a 20 0a 20 20 20 20 l-time */. .
7b80: 20 76 64 65 6c 61 79 2e 73 65 63 20 20 3d 20 6d vdelay.sec = m
7b90: 73 20 2f 20 31 30 30 30 3b 0a 20 20 20 20 20 76 s / 1000;. v
7ba0: 64 65 6c 61 79 2e 75 73 65 63 20 3d 20 28 6d 73 delay.usec = (ms
7bb0: 20 25 20 31 30 30 30 29 20 2a 20 31 30 30 30 3b % 1000) * 1000;
7bc0: 0a 20 0a 2d 20 20 20 20 54 63 6c 5f 47 65 74 54 . .- Tcl_GetT
7bd0: 69 6d 65 28 26 6e 6f 77 29 3b 0a 2b 20 20 20 20 ime(&now);.+
7be0: 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 TclpGetMonotonic
7bf0: 54 69 6d 65 28 26 6e 6f 77 29 3b 0a 20 20 20 20 Time(&now);.
7c00: 20 64 65 73 69 72 65 64 2e 73 65 63 20 20 3d 20 desired.sec =
7c10: 6e 6f 77 2e 73 65 63 20 20 2b 20 76 64 65 6c 61 now.sec + vdela
7c20: 79 2e 73 65 63 3b 0a 20 20 20 20 20 64 65 73 69 y.sec;. desi
7c30: 72 65 64 2e 75 73 65 63 20 3d 20 6e 6f 77 2e 75 red.usec = now.u
7c40: 73 65 63 20 2b 20 76 64 65 6c 61 79 2e 75 73 65 sec + vdelay.use
7c50: 63 3b 0a 20 20 20 20 20 69 66 20 28 64 65 73 69 c;. if (desi
7c60: 72 65 64 2e 75 73 65 63 20 3e 20 31 30 30 30 30 red.usec > 10000
7c70: 30 30 29 20 7b 0a 20 09 2b 2b 64 65 73 69 72 65 00) {. .++desire
7c80: 64 2e 73 65 63 3b 0a 20 09 64 65 73 69 72 65 64 d.sec;. .desired
7c90: 2e 75 73 65 63 20 2d 3d 20 31 30 30 30 30 30 30 .usec -= 1000000
7ca0: 3b 0a 40 40 20 2d 35 37 30 2c 31 34 20 2b 35 37 ;.@@ -570,14 +57
7cb0: 38 2c 31 37 20 40 40 0a 20 20 20 20 20 20 2a 20 8,17 @@. *
7cc0: 54 49 50 20 23 32 33 33 3a 20 53 63 61 6c 65 20 TIP #233: Scale
7cd0: 64 65 6c 61 79 20 66 72 6f 6d 20 76 69 72 74 75 delay from virtu
7ce0: 61 6c 20 74 6f 20 72 65 61 6c 2d 74 69 6d 65 2e al to real-time.
7cf0: 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 . */. .
7d00: 20 28 2a 74 63 6c 53 63 61 6c 65 54 69 6d 65 50 (*tclScaleTimeP
7d10: 72 6f 63 50 74 72 29 20 28 26 76 64 65 6c 61 79 rocPtr) (&vdelay
7d20: 2c 20 74 63 6c 54 69 6d 65 43 6c 69 65 6e 74 44 , tclTimeClientD
7d30: 61 74 61 29 3b 0a 20 20 20 20 20 73 6c 65 65 70 ata);. sleep
7d40: 54 69 6d 65 20 3d 20 76 64 65 6c 61 79 2e 73 65 Time = vdelay.se
7d50: 63 20 2a 20 31 30 30 30 20 2b 20 76 64 65 6c 61 c * 1000 + vdela
7d60: 79 2e 75 73 65 63 20 2f 20 31 30 30 30 3b 0a 2b y.usec / 1000;.+
7d70: 20 20 20 20 69 66 20 28 73 6c 65 65 70 54 69 6d if (sleepTim
7d80: 65 20 3d 3d 20 49 4e 46 49 4e 49 54 45 29 20 7b e == INFINITE) {
7d90: 0a 2b 09 2d 2d 73 6c 65 65 70 54 69 6d 65 3b 0a .+.--sleepTime;.
7da0: 2b 20 20 20 20 7d 0a 20 0a 20 20 20 20 20 66 6f + }. . fo
7db0: 72 20 28 3b 3b 29 20 7b 0a 20 09 53 6c 65 65 70 r (;;) {. .Sleep
7dc0: 28 73 6c 65 65 70 54 69 6d 65 29 3b 0a 2d 09 54 (sleepTime);.-.T
7dd0: 63 6c 5f 47 65 74 54 69 6d 65 28 26 6e 6f 77 29 cl_GetTime(&now)
7de0: 3b 0a 2b 09 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 ;.+.TclpGetMonot
7df0: 6f 6e 69 63 54 69 6d 65 28 26 6e 6f 77 29 3b 0a onicTime(&now);.
7e00: 20 09 69 66 20 28 6e 6f 77 2e 73 65 63 20 3e 20 .if (now.sec >
7e10: 64 65 73 69 72 65 64 2e 73 65 63 29 20 7b 0a 20 desired.sec) {.
7e20: 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 09 7d 20 . break;. .}
7e30: 65 6c 73 65 20 69 66 20 28 28 6e 6f 77 2e 73 65 else if ((now.se
7e40: 63 20 3d 3d 20 64 65 73 69 72 65 64 2e 73 65 63 c == desired.sec
7e50: 29 20 26 26 20 28 6e 6f 77 2e 75 73 65 63 20 3e ) && (now.usec >
7e60: 3d 20 64 65 73 69 72 65 64 2e 75 73 65 63 29 29 = desired.usec))
7e70: 20 7b 0a 20 09 20 20 20 20 62 72 65 61 6b 3b 0a {. . break;.
7e80: 20 09 7d 0a 40 40 20 2d 35 38 35 2c 31 30 20 2b .}.@@ -585,10 +
7e90: 35 39 36 2c 31 33 20 40 40 0a 20 09 76 64 65 6c 596,13 @@. .vdel
7ea0: 61 79 2e 73 65 63 20 20 3d 20 64 65 73 69 72 65 ay.sec = desire
7eb0: 64 2e 73 65 63 20 20 2d 20 6e 6f 77 2e 73 65 63 d.sec - now.sec
7ec0: 3b 0a 20 09 76 64 65 6c 61 79 2e 75 73 65 63 20 ;. .vdelay.usec
7ed0: 3d 20 64 65 73 69 72 65 64 2e 75 73 65 63 20 2d = desired.usec -
7ee0: 20 6e 6f 77 2e 75 73 65 63 3b 0a 20 0a 20 09 28 now.usec;. . .(
7ef0: 2a 74 63 6c 53 63 61 6c 65 54 69 6d 65 50 72 6f *tclScaleTimePro
7f00: 63 50 74 72 29 20 28 26 76 64 65 6c 61 79 2c 20 cPtr) (&vdelay,
7f10: 74 63 6c 54 69 6d 65 43 6c 69 65 6e 74 44 61 74 tclTimeClientDat
7f20: 61 29 3b 0a 20 09 73 6c 65 65 70 54 69 6d 65 20 a);. .sleepTime
7f30: 3d 20 76 64 65 6c 61 79 2e 73 65 63 20 2a 20 31 = vdelay.sec * 1
7f40: 30 30 30 20 2b 20 76 64 65 6c 61 79 2e 75 73 65 000 + vdelay.use
7f50: 63 20 2f 20 31 30 30 30 3b 0a 2b 09 69 66 20 28 c / 1000;.+.if (
7f60: 73 6c 65 65 70 54 69 6d 65 20 3d 3d 20 49 4e 46 sleepTime == INF
7f70: 49 4e 49 54 45 29 20 7b 0a 2b 09 20 20 20 20 2d INITE) {.+. -
7f80: 2d 73 6c 65 65 70 54 69 6d 65 3b 0a 2b 09 7d 0a -sleepTime;.+.}.
7f90: 20 20 20 20 20 7d 0a 20 7d 0a 20 0c 0a 20 2f 2a }. }. .. /*
7fa0: 0a 20 20 2a 20 4c 6f 63 61 6c 20 56 61 72 69 61 . * Local Varia
7fb0: 62 6c 65 73 3a 0a 0a 49 6e 64 65 78 3a 20 77 69 bles:..Index: wi
7fc0: 6e 2f 74 63 6c 57 69 6e 54 69 6d 65 2e 63 0a 3d n/tclWinTime.c.=
7fd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7fe0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7ff0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8000: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8010: 3d 0a 2d 2d 2d 20 77 69 6e 2f 74 63 6c 57 69 6e =.--- win/tclWin
8020: 54 69 6d 65 2e 63 0a 2b 2b 2b 20 77 69 6e 2f 74 Time.c.+++ win/t
8030: 63 6c 57 69 6e 54 69 6d 65 2e 63 0a 40 40 20 2d clWinTime.c.@@ -
8040: 31 32 33 33 2c 31 33 20 2b 31 32 33 33 2c 31 35 1233,13 +1233,15
8050: 20 40 40 0a 20 54 63 6c 5f 53 65 74 54 69 6d 65 @@. Tcl_SetTime
8060: 50 72 6f 63 28 0a 20 20 20 20 20 54 63 6c 5f 47 Proc(. Tcl_G
8070: 65 74 54 69 6d 65 50 72 6f 63 20 2a 67 65 74 50 etTimeProc *getP
8080: 72 6f 63 2c 0a 20 20 20 20 20 54 63 6c 5f 53 63 roc,. Tcl_Sc
8090: 61 6c 65 54 69 6d 65 50 72 6f 63 20 2a 73 63 61 aleTimeProc *sca
80a0: 6c 65 50 72 6f 63 2c 0a 20 20 20 20 20 43 6c 69 leProc,. Cli
80b0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
80c0: 74 61 29 0a 20 7b 0a 2b 23 69 66 6e 64 65 66 20 ta). {.+#ifndef
80d0: 57 49 4e 33 32 5f 55 53 45 5f 54 49 43 4b 43 4f WIN32_USE_TICKCO
80e0: 55 4e 54 0a 20 20 20 20 20 74 63 6c 47 65 74 54 UNT. tclGetT
80f0: 69 6d 65 50 72 6f 63 50 74 72 20 3d 20 67 65 74 imeProcPtr = get
8100: 50 72 6f 63 3b 0a 20 20 20 20 20 74 63 6c 53 63 Proc;. tclSc
8110: 61 6c 65 54 69 6d 65 50 72 6f 63 50 74 72 20 3d aleTimeProcPtr =
8120: 20 73 63 61 6c 65 50 72 6f 63 3b 0a 20 20 20 20 scaleProc;.
8130: 20 74 63 6c 54 69 6d 65 43 6c 69 65 6e 74 44 61 tclTimeClientDa
8140: 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b ta = clientData;
8150: 0a 2b 23 65 6e 64 69 66 0a 20 7d 0a 20 0c 0a 20 .+#endif. }. ..
8160: 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *----------
8170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 2a ------------. *
81b0: 0a 0a ..
