Artifact
2246ac0e8c8357943968a8c0a3af0f37361c8bbb:
Attachment "tclEvent_ExitChange-6.patch" to
ticket [2001201fff]
added by
ferrieux
2009-06-16 04:43:17.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 45 76 65 6e 74 2e 63 0a 3d 3d 3d 3d 3d 3d clEvent.c.======
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 =============.RC
0060: 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 S file: /cvsroot
0070: 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 /tcl/tcl/generic
0080: 2f 74 63 6c 45 76 65 6e 74 2e 63 2c 76 0a 72 65 /tclEvent.c,v.re
0090: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
00a0: 6e 20 31 2e 38 38 0a 64 69 66 66 20 2d 75 20 2d n 1.88.diff -u -
00b0: 72 31 2e 38 38 20 74 63 6c 45 76 65 6e 74 2e 63 r1.88 tclEvent.c
00c0: 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c .--- generic/tcl
00d0: 45 76 65 6e 74 2e 63 09 31 30 20 46 65 62 20 32 Event.c.10 Feb 2
00e0: 30 30 39 20 32 32 3a 34 39 3a 34 32 20 2d 30 30 009 22:49:42 -00
00f0: 30 30 09 31 2e 38 38 0a 2b 2b 2b 20 67 65 6e 65 00.1.88.+++ gene
0100: 72 69 63 2f 74 63 6c 45 76 65 6e 74 2e 63 09 31 ric/tclEvent.c.1
0110: 35 20 4a 75 6e 20 32 30 30 39 20 32 31 3a 34 30 5 Jun 2009 21:40
0120: 3a 33 30 20 2d 30 30 30 30 0a 40 40 20 2d 37 36 :30 -0000.@@ -76
0130: 2c 31 33 20 2b 37 36 2c 31 33 20 40 40 0a 20 54 ,13 +76,13 @@. T
0140: 43 4c 5f 44 45 43 4c 41 52 45 5f 4d 55 54 45 58 CL_DECLARE_MUTEX
0150: 28 65 78 69 74 4d 75 74 65 78 29 0a 20 0a 20 2f (exitMutex). . /
0160: 2a 0a 2d 20 2a 20 54 68 69 73 20 76 61 72 69 61 *.- * This varia
0170: 62 6c 65 20 69 73 20 73 65 74 20 74 6f 20 31 20 ble is set to 1
0180: 77 68 65 6e 20 54 63 6c 5f 46 69 6e 61 6c 69 7a when Tcl_Finaliz
0190: 65 20 69 73 20 63 61 6c 6c 65 64 2c 20 61 6e 64 e is called, and
01a0: 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 0a 2d at the end of.-
01b0: 20 2a 20 69 74 73 20 77 6f 72 6b 2c 20 69 74 20 * its work, it
01c0: 69 73 20 72 65 73 65 74 20 74 6f 20 30 2e 20 54 is reset to 0. T
01d0: 68 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 63 he variable is c
01e0: 68 65 63 6b 65 64 20 62 79 20 54 63 6c 49 6e 45 hecked by TclInE
01f0: 78 69 74 28 29 20 74 6f 20 61 6c 6c 6f 77 0a 2d xit() to allow.-
0200: 20 2a 20 64 69 66 66 65 72 65 6e 74 20 62 65 68 * different beh
0210: 61 76 69 6f 72 20 66 6f 72 20 65 78 69 74 2d 74 avior for exit-t
0220: 69 6d 65 20 70 72 6f 63 65 73 73 69 6e 67 2c 20 ime processing,
0230: 65 2e 67 2e 20 69 6e 20 63 6c 6f 73 69 6e 67 20 e.g. in closing
0240: 6f 66 20 66 69 6c 65 73 20 61 6e 64 0a 2d 20 2a of files and.- *
0250: 20 70 69 70 65 73 2e 0a 2b 20 2a 20 54 68 69 73 pipes..+ * This
0260: 20 76 61 72 69 61 62 6c 65 20 69 73 20 73 65 74 variable is set
0270: 20 74 6f 20 31 20 77 68 65 6e 20 54 63 6c 5f 45 to 1 when Tcl_E
0280: 78 69 74 20 69 73 20 63 61 6c 6c 65 64 2e 20 20 xit is called.
0290: 54 68 65 20 76 61 72 69 61 62 6c 65 20 69 73 0a The variable is.
02a0: 2b 20 2a 20 63 68 65 63 6b 65 64 20 62 79 20 54 + * checked by T
02b0: 63 6c 49 6e 45 78 69 74 28 29 20 74 6f 20 61 6c clInExit() to al
02c0: 6c 6f 77 20 64 69 66 66 65 72 65 6e 74 20 62 65 low different be
02d0: 68 61 76 69 6f 72 20 66 6f 72 0a 2b 20 2a 20 65 havior for.+ * e
02e0: 78 69 74 2d 74 69 6d 65 20 70 72 6f 63 65 73 73 xit-time process
02f0: 69 6e 67 2c 20 65 2e 67 2e 20 69 6e 20 63 6c 6f ing, e.g. in clo
0300: 73 69 6e 67 20 6f 66 20 66 69 6c 65 73 20 61 6e sing of files an
0310: 64 20 70 69 70 65 73 2e 0a 20 20 2a 2f 0a 20 0a d pipes.. */. .
0320: 2d 73 74 61 74 69 63 20 69 6e 74 20 69 6e 46 69 -static int inFi
0330: 6e 61 6c 69 7a 65 20 3d 20 30 3b 0a 2b 73 74 61 nalize = 0;.+sta
0340: 74 69 63 20 69 6e 74 20 69 6e 45 78 69 74 20 3d tic int inExit =
0350: 20 30 3b 0a 2b 0a 20 73 74 61 74 69 63 20 69 6e 0;.+. static in
0360: 74 20 73 75 62 73 79 73 74 65 6d 73 49 6e 69 74 t subsystemsInit
0370: 69 61 6c 69 7a 65 64 20 3d 20 30 3b 0a 20 0a 20 ialized = 0;. .
0380: 2f 2a 0a 40 40 20 2d 31 31 39 2c 36 20 2b 31 31 /*.@@ -119,6 +11
0390: 39 2c 38 20 40 40 0a 20 73 74 61 74 69 63 20 76 9,8 @@. static v
03a0: 6f 69 64 09 09 48 61 6e 64 6c 65 42 67 45 72 72 oid..HandleBgErr
03b0: 6f 72 73 28 43 6c 69 65 6e 74 44 61 74 61 20 63 ors(ClientData c
03c0: 6c 69 65 6e 74 44 61 74 61 29 3b 0a 20 73 74 61 lientData);. sta
03d0: 74 69 63 20 63 68 61 72 20 2a 09 09 56 77 61 69 tic char *..Vwai
03e0: 74 56 61 72 50 72 6f 63 28 43 6c 69 65 6e 74 44 tVarProc(ClientD
03f0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
0400: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
0410: 72 70 2c 0a 20 09 09 09 20 20 20 20 63 6f 6e 73 rp,. ... cons
0420: 74 20 63 68 61 72 20 2a 6e 61 6d 65 31 2c 20 63 t char *name1, c
0430: 6f 6e 73 74 20 63 68 61 72 20 2a 6e 61 6d 65 32 onst char *name2
0440: 2c 20 69 6e 74 20 66 6c 61 67 73 29 3b 0a 2b 73 , int flags);.+s
0450: 74 61 74 69 63 20 76 6f 69 64 20 20 20 20 20 20 tatic void
0460: 20 20 20 20 20 20 20 49 6e 76 6f 6b 65 45 78 69 InvokeExi
0470: 74 48 61 6e 64 6c 65 72 73 28 76 6f 69 64 29 3b tHandlers(void);
0480: 0a 2b 0a 20 0c 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d .+. .. /*. *---
0490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04d0: 2d 2d 2d 0a 40 40 20 2d 38 36 32 2c 36 20 2b 38 ---.@@ -862,6 +8
04e0: 36 34 2c 34 39 20 40 40 0a 20 0a 20 20 20 20 20 64,49 @@. .
04f0: 72 65 74 75 72 6e 20 70 72 65 76 45 78 69 74 50 return prevExitP
0500: 72 6f 63 3b 0a 20 7d 0a 2b 0a 2b 0c 0a 2b 2f 2a roc;. }.+.+..+/*
0510: 0a 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .+ *------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 0a 2b ----------.+ *.+
0560: 20 2a 20 49 6e 76 6f 6b 65 45 78 69 74 48 61 6e * InvokeExitHan
0570: 64 6c 65 72 73 20 2d 2d 0a 2b 20 2a 0a 2b 20 2a dlers --.+ *.+ *
0580: 20 20 20 20 20 20 43 61 6c 6c 20 74 68 65 20 72 Call the r
0590: 65 67 69 73 74 65 72 65 64 20 65 78 69 74 20 68 egistered exit h
05a0: 61 6e 64 6c 65 72 73 2e 0a 2b 20 2a 0a 2b 20 2a andlers..+ *.+ *
05b0: 20 52 65 73 75 6c 74 73 3a 0a 2b 20 2a 09 4e 6f Results:.+ *.No
05c0: 6e 65 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 69 64 65 ne..+ *.+ * Side
05d0: 20 65 66 66 65 63 74 73 3a 0a 2b 20 2a 09 54 68 effects:.+ *.Th
05e0: 65 20 65 78 69 74 20 68 61 6e 64 6c 65 72 73 20 e exit handlers
05f0: 61 72 65 20 69 6e 76 6f 6b 65 64 2c 20 61 6e 64 are invoked, and
0600: 20 74 68 65 20 45 78 69 74 48 61 6e 64 6c 65 72 the ExitHandler
0610: 20 73 74 72 75 63 74 20 69 73 0a 2b 20 2a 20 20 struct is.+ *
0620: 20 20 20 20 66 72 65 65 64 2e 0a 2b 20 2a 0a 2b freed..+ *.+
0630: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0670: 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 73 --------.+ */.+s
0680: 74 61 74 69 63 20 76 6f 69 64 0a 2b 49 6e 76 6f tatic void.+Invo
0690: 6b 65 45 78 69 74 48 61 6e 64 6c 65 72 73 28 76 keExitHandlers(v
06a0: 6f 69 64 29 20 0a 2b 7b 0a 2b 20 20 20 20 45 78 oid) .+{.+ Ex
06b0: 69 74 48 61 6e 64 6c 65 72 20 2a 65 78 69 74 50 itHandler *exitP
06c0: 74 72 3b 0a 2b 0a 2b 20 20 20 20 54 63 6c 5f 4d tr;.+.+ Tcl_M
06d0: 75 74 65 78 4c 6f 63 6b 28 26 65 78 69 74 4d 75 utexLock(&exitMu
06e0: 74 65 78 29 3b 0a 2b 20 20 20 20 69 6e 45 78 69 tex);.+ inExi
06f0: 74 20 3d 20 31 3b 0a 2b 0a 2b 20 20 20 20 66 6f t = 1;.+.+ fo
0700: 72 20 28 65 78 69 74 50 74 72 20 3d 20 66 69 72 r (exitPtr = fir
0710: 73 74 45 78 69 74 50 74 72 3b 20 65 78 69 74 50 stExitPtr; exitP
0720: 74 72 20 21 3d 20 4e 55 4c 4c 3b 20 65 78 69 74 tr != NULL; exit
0730: 50 74 72 20 3d 20 66 69 72 73 74 45 78 69 74 50 Ptr = firstExitP
0740: 74 72 29 20 7b 0a 2b 09 2f 2a 0a 2b 09 20 2a 20 tr) {.+./*.+. *
0750: 42 65 20 63 61 72 65 66 75 6c 20 74 6f 20 72 65 Be careful to re
0760: 6d 6f 76 65 20 74 68 65 20 68 61 6e 64 6c 65 72 move the handler
0770: 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20 62 from the list b
0780: 65 66 6f 72 65 20 69 6e 76 6f 6b 69 6e 67 20 69 efore invoking i
0790: 74 73 0a 2b 09 20 2a 20 63 61 6c 6c 62 61 63 6b ts.+. * callback
07a0: 2e 20 54 68 69 73 20 70 72 6f 74 65 63 74 73 20 . This protects
07b0: 75 73 20 61 67 61 69 6e 73 74 20 64 6f 75 62 6c us against doubl
07c0: 65 2d 66 72 65 65 69 6e 67 20 69 66 20 74 68 65 e-freeing if the
07d0: 20 63 61 6c 6c 62 61 63 6b 0a 2b 09 20 2a 20 73 callback.+. * s
07e0: 68 6f 75 6c 64 20 63 61 6c 6c 20 54 63 6c 5f 44 hould call Tcl_D
07f0: 65 6c 65 74 65 45 78 69 74 48 61 6e 64 6c 65 72 eleteExitHandler
0800: 20 6f 6e 20 69 74 73 65 6c 66 2e 0a 2b 09 20 2a on itself..+. *
0810: 2f 0a 2b 0a 2b 09 66 69 72 73 74 45 78 69 74 50 /.+.+.firstExitP
0820: 74 72 20 3d 20 65 78 69 74 50 74 72 2d 3e 6e 65 tr = exitPtr->ne
0830: 78 74 50 74 72 3b 0a 2b 09 54 63 6c 5f 4d 75 74 xtPtr;.+.Tcl_Mut
0840: 65 78 55 6e 6c 6f 63 6b 28 26 65 78 69 74 4d 75 exUnlock(&exitMu
0850: 74 65 78 29 3b 0a 2b 09 28 2a 65 78 69 74 50 74 tex);.+.(*exitPt
0860: 72 2d 3e 70 72 6f 63 29 28 65 78 69 74 50 74 72 r->proc)(exitPtr
0870: 2d 3e 63 6c 69 65 6e 74 44 61 74 61 29 3b 0a 2b ->clientData);.+
0880: 09 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 .ckfree((char *)
0890: 20 65 78 69 74 50 74 72 29 3b 0a 2b 09 54 63 6c exitPtr);.+.Tcl
08a0: 5f 4d 75 74 65 78 4c 6f 63 6b 28 26 65 78 69 74 _MutexLock(&exit
08b0: 4d 75 74 65 78 29 3b 0a 2b 20 20 20 20 7d 0a 2b Mutex);.+ }.+
08c0: 20 20 20 20 66 69 72 73 74 45 78 69 74 50 74 72 firstExitPtr
08d0: 20 3d 20 4e 55 4c 4c 3b 0a 2b 20 20 20 20 54 63 = NULL;.+ Tc
08e0: 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b 28 26 65 l_MutexUnlock(&e
08f0: 78 69 74 4d 75 74 65 78 29 3b 0a 2b 7d 0a 2b 0a xitMutex);.+}.+.
0900: 20 0c 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d .. /*. *------
0910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0950: 0a 40 40 20 2d 39 30 34 2c 37 20 2b 39 34 39 2c .@@ -904,7 +949,
0960: 31 34 20 40 40 0a 20 09 20 2a 20 55 73 65 20 64 14 @@. . * Use d
0970: 65 66 61 75 6c 74 20 68 61 6e 64 6c 69 6e 67 2e efault handling.
0980: 0a 20 09 20 2a 2f 0a 20 0a 2d 09 54 63 6c 5f 46 . . */. .-.Tcl_F
0990: 69 6e 61 6c 69 7a 65 28 29 3b 0a 2b 09 49 6e 76 inalize();.+.Inv
09a0: 6f 6b 65 45 78 69 74 48 61 6e 64 6c 65 72 73 28 okeExitHandlers(
09b0: 29 3b 0a 2b 0a 2b 09 2f 2a 0a 2b 09 20 2a 20 54 );.+.+./*.+. * T
09c0: 68 69 73 20 74 72 69 67 67 65 72 73 20 61 20 66 his triggers a f
09d0: 6c 75 73 68 20 6f 66 20 74 68 65 20 54 63 6c 5f lush of the Tcl_
09e0: 43 68 61 6e 6e 65 6c 73 20 74 68 61 74 20 6d 61 Channels that ma
09f0: 79 20 68 61 76 65 0a 2b 09 20 2a 20 64 61 74 61 y have.+. * data
0a00: 20 65 6e 71 75 65 75 65 64 2e 0a 2b 09 20 2a 2f enqueued..+. */
0a10: 0a 2b 09 54 63 6c 46 69 6e 61 6c 69 7a 65 49 4f .+.TclFinalizeIO
0a20: 53 75 62 73 79 73 74 65 6d 28 29 3b 0a 2b 0a 20 Subsystem();.+.
0a30: 09 54 63 6c 70 45 78 69 74 28 73 74 61 74 75 73 .TclpExit(status
0a40: 29 3b 0a 20 09 54 63 6c 5f 50 61 6e 69 63 28 22 );. .Tcl_Panic("
0a50: 4f 53 20 65 78 69 74 20 66 61 69 6c 65 64 21 22 OS exit failed!"
0a60: 29 3b 0a 20 20 20 20 20 7d 0a 40 40 20 2d 39 33 );. }.@@ -93
0a70: 38 2c 38 20 2b 39 39 30 2c 38 20 40 40 0a 20 76 8,8 +990,8 @@. v
0a80: 6f 69 64 0a 20 54 63 6c 49 6e 69 74 53 75 62 73 oid. TclInitSubs
0a90: 79 73 74 65 6d 73 28 76 6f 69 64 29 0a 20 7b 0a ystems(void). {.
0aa0: 2d 20 20 20 20 69 66 20 28 69 6e 46 69 6e 61 6c - if (inFinal
0ab0: 69 7a 65 20 21 3d 20 30 29 20 7b 0a 2d 09 54 63 ize != 0) {.-.Tc
0ac0: 6c 5f 50 61 6e 69 63 28 22 54 63 6c 49 6e 69 74 l_Panic("TclInit
0ad0: 53 75 62 73 79 73 74 65 6d 73 20 63 61 6c 6c 65 Subsystems calle
0ae0: 64 20 77 68 69 6c 65 20 66 69 6e 61 6c 69 7a 69 d while finalizi
0af0: 6e 67 22 29 3b 0a 2b 20 20 20 20 69 66 20 28 69 ng");.+ if (i
0b00: 6e 45 78 69 74 20 21 3d 20 30 29 20 7b 0a 2b 09 nExit != 0) {.+.
0b10: 54 63 6c 5f 50 61 6e 69 63 28 22 54 63 6c 49 6e Tcl_Panic("TclIn
0b20: 69 74 53 75 62 73 79 73 74 65 6d 73 20 63 61 6c itSubsystems cal
0b30: 6c 65 64 20 77 68 69 6c 65 20 65 78 69 74 69 6e led while exitin
0b40: 67 22 29 3b 0a 20 20 20 20 20 7d 0a 20 0a 20 20 g");. }. .
0b50: 20 20 20 69 66 20 28 73 75 62 73 79 73 74 65 6d if (subsystem
0b60: 73 49 6e 69 74 69 61 6c 69 7a 65 64 20 3d 3d 20 sInitialized ==
0b70: 30 29 20 7b 0a 40 40 20 2d 39 39 33 2c 39 20 2b 0) {.@@ -993,9 +
0b80: 31 30 34 35 2c 38 20 40 40 0a 20 20 2a 20 54 63 1045,8 @@. * Tc
0b90: 6c 5f 46 69 6e 61 6c 69 7a 65 20 2d 2d 0a 20 20 l_Finalize --.
0ba0: 2a 0a 20 20 2a 09 53 68 75 74 20 64 6f 77 6e 20 *. *.Shut down
0bb0: 54 63 6c 2e 20 46 69 72 73 74 20 63 61 6c 6c 73 Tcl. First calls
0bc0: 20 72 65 67 69 73 74 65 72 65 64 20 65 78 69 74 registered exit
0bd0: 20 68 61 6e 64 6c 65 72 73 2c 20 74 68 65 6e 20 handlers, then
0be0: 63 61 72 65 66 75 6c 6c 79 0a 2d 20 2a 09 73 68 carefully.- *.sh
0bf0: 75 74 73 20 64 6f 77 6e 20 76 61 72 69 6f 75 73 uts down various
0c00: 20 73 75 62 73 79 73 74 65 6d 73 2e 20 20 43 61 subsystems. Ca
0c10: 6c 6c 65 64 20 62 79 20 54 63 6c 5f 45 78 69 74 lled by Tcl_Exit
0c20: 2c 20 6f 72 20 73 68 6f 75 6c 64 20 62 65 0a 2d , or should be.-
0c30: 20 2a 09 69 6e 76 6f 6b 65 64 20 62 79 20 75 73 *.invoked by us
0c40: 65 72 20 62 65 66 6f 72 65 20 74 68 65 20 54 63 er before the Tc
0c50: 6c 20 73 68 61 72 65 64 20 6c 69 62 72 61 72 79 l shared library
0c60: 20 69 73 20 62 65 69 6e 67 20 75 6e 6c 6f 61 64 is being unload
0c70: 65 64 20 69 6e 0a 2d 20 2a 09 61 6e 20 65 6d 62 ed in.- *.an emb
0c80: 65 64 64 65 64 20 63 6f 6e 74 65 78 74 2e 0a 2b edded context..+
0c90: 20 2a 09 73 68 75 74 73 20 64 6f 77 6e 20 76 61 *.shuts down va
0ca0: 72 69 6f 75 73 20 73 75 62 73 79 73 74 65 6d 73 rious subsystems
0cb0: 2e 20 20 53 68 6f 75 6c 64 20 62 65 20 69 6e 76 . Should be inv
0cc0: 6f 6b 65 64 20 62 79 20 75 73 65 72 20 62 65 66 oked by user bef
0cd0: 6f 72 65 20 74 68 65 0a 2b 20 2a 09 54 63 6c 20 ore the.+ *.Tcl
0ce0: 73 68 61 72 65 64 20 6c 69 62 72 61 72 79 20 69 shared library i
0cf0: 73 20 62 65 69 6e 67 20 75 6e 6c 6f 61 64 65 64 s being unloaded
0d00: 20 69 6e 20 61 6e 20 65 6d 62 65 64 64 65 64 20 in an embedded
0d10: 63 6f 6e 74 65 78 74 2e 0a 20 20 2a 0a 20 20 2a context.. *. *
0d20: 20 52 65 73 75 6c 74 73 3a 0a 20 20 2a 09 4e 6f Results:. *.No
0d30: 6e 65 2e 0a 40 40 20 2d 31 30 31 30 2c 32 38 20 ne..@@ -1010,28
0d40: 2b 31 30 36 31 2c 31 30 20 40 40 0a 20 54 63 6c +1061,10 @@. Tcl
0d50: 5f 46 69 6e 61 6c 69 7a 65 28 76 6f 69 64 29 0a _Finalize(void).
0d60: 20 7b 0a 20 20 20 20 20 45 78 69 74 48 61 6e 64 {. ExitHand
0d70: 6c 65 72 20 2a 65 78 69 74 50 74 72 3b 0a 2d 0a ler *exitPtr;.-.
0d80: 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 /*. *
0d90: 49 6e 76 6f 6b 65 20 65 78 69 74 20 68 61 6e 64 Invoke exit hand
0da0: 6c 65 72 73 20 66 69 72 73 74 2e 0a 20 20 20 20 lers first..
0db0: 20 20 2a 2f 0a 2d 0a 2d 20 20 20 20 54 63 6c 5f */.-.- Tcl_
0dc0: 4d 75 74 65 78 4c 6f 63 6b 28 26 65 78 69 74 4d MutexLock(&exitM
0dd0: 75 74 65 78 29 3b 0a 2d 20 20 20 20 69 6e 46 69 utex);.- inFi
0de0: 6e 61 6c 69 7a 65 20 3d 20 31 3b 0a 2d 20 20 20 nalize = 1;.-
0df0: 20 66 6f 72 20 28 65 78 69 74 50 74 72 20 3d 20 for (exitPtr =
0e00: 66 69 72 73 74 45 78 69 74 50 74 72 3b 20 65 78 firstExitPtr; ex
0e10: 69 74 50 74 72 20 21 3d 20 4e 55 4c 4c 3b 20 65 itPtr != NULL; e
0e20: 78 69 74 50 74 72 20 3d 20 66 69 72 73 74 45 78 xitPtr = firstEx
0e30: 69 74 50 74 72 29 20 7b 0a 2d 09 2f 2a 0a 2d 09 itPtr) {.-./*.-.
0e40: 20 2a 20 42 65 20 63 61 72 65 66 75 6c 20 74 6f * Be careful to
0e50: 20 72 65 6d 6f 76 65 20 74 68 65 20 68 61 6e 64 remove the hand
0e60: 6c 65 72 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 ler from the lis
0e70: 74 20 62 65 66 6f 72 65 20 69 6e 76 6f 6b 69 6e t before invokin
0e80: 67 20 69 74 73 0a 2d 09 20 2a 20 63 61 6c 6c 62 g its.-. * callb
0e90: 61 63 6b 2e 20 54 68 69 73 20 70 72 6f 74 65 63 ack. This protec
0ea0: 74 73 20 75 73 20 61 67 61 69 6e 73 74 20 64 6f ts us against do
0eb0: 75 62 6c 65 2d 66 72 65 65 69 6e 67 20 69 66 20 uble-freeing if
0ec0: 74 68 65 20 63 61 6c 6c 62 61 63 6b 0a 2d 09 20 the callback.-.
0ed0: 2a 20 73 68 6f 75 6c 64 20 63 61 6c 6c 20 54 63 * should call Tc
0ee0: 6c 5f 44 65 6c 65 74 65 45 78 69 74 48 61 6e 64 l_DeleteExitHand
0ef0: 6c 65 72 20 6f 6e 20 69 74 73 65 6c 66 2e 0a 2d ler on itself..-
0f00: 09 20 2a 2f 0a 2d 0a 2d 09 66 69 72 73 74 45 78 . */.-.-.firstEx
0f10: 69 74 50 74 72 20 3d 20 65 78 69 74 50 74 72 2d itPtr = exitPtr-
0f20: 3e 6e 65 78 74 50 74 72 3b 0a 2d 09 54 63 6c 5f >nextPtr;.-.Tcl_
0f30: 4d 75 74 65 78 55 6e 6c 6f 63 6b 28 26 65 78 69 MutexUnlock(&exi
0f40: 74 4d 75 74 65 78 29 3b 0a 2d 09 65 78 69 74 50 tMutex);.-.exitP
0f50: 74 72 2d 3e 70 72 6f 63 28 65 78 69 74 50 74 72 tr->proc(exitPtr
0f60: 2d 3e 63 6c 69 65 6e 74 44 61 74 61 29 3b 0a 2d ->clientData);.-
0f70: 09 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 .ckfree((char *)
0f80: 20 65 78 69 74 50 74 72 29 3b 0a 2d 09 54 63 6c exitPtr);.-.Tcl
0f90: 5f 4d 75 74 65 78 4c 6f 63 6b 28 26 65 78 69 74 _MutexLock(&exit
0fa0: 4d 75 74 65 78 29 3b 0a 2d 20 20 20 20 7d 0a 2d Mutex);.- }.-
0fb0: 20 20 20 20 66 69 72 73 74 45 78 69 74 50 74 72 firstExitPtr
0fc0: 20 3d 20 4e 55 4c 4c 3b 0a 2d 20 20 20 20 54 63 = NULL;.- Tc
0fd0: 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b 28 26 65 l_MutexUnlock(&e
0fe0: 78 69 74 4d 75 74 65 78 29 3b 0a 2b 20 20 20 20 xitMutex);.+
0ff0: 49 6e 76 6f 6b 65 45 78 69 74 48 61 6e 64 6c 65 InvokeExitHandle
1000: 72 73 28 29 3b 20 20 20 0a 20 0a 20 20 20 20 20 rs(); . .
1010: 54 63 6c 70 49 6e 69 74 4c 6f 63 6b 28 29 3b 0a TclpInitLock();.
1020: 20 20 20 20 20 69 66 20 28 73 75 62 73 79 73 74 if (subsyst
1030: 65 6d 73 49 6e 69 74 69 61 6c 69 7a 65 64 20 3d emsInitialized =
1040: 3d 20 30 29 20 7b 0a 40 40 20 2d 31 31 38 37 2c = 0) {.@@ -1187,
1050: 37 20 2b 31 32 32 30 2c 36 20 40 40 0a 20 20 20 7 +1220,6 @@.
1060: 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 54 63 6c */. . Tcl
1070: 46 69 6e 61 6c 69 7a 65 4d 65 6d 6f 72 79 53 75 FinalizeMemorySu
1080: 62 73 79 73 74 65 6d 28 29 3b 0a 2d 20 20 20 20 bsystem();.-
1090: 69 6e 46 69 6e 61 6c 69 7a 65 20 3d 20 30 3b 0a inFinalize = 0;.
10a0: 20 0a 20 20 20 61 6c 72 65 61 64 79 46 69 6e 61 . alreadyFina
10b0: 6c 69 7a 65 64 3a 0a 20 20 20 20 20 54 63 6c 46 lized:. TclF
10c0: 69 6e 61 6c 69 7a 65 4c 6f 63 6b 28 29 3b 0a 40 inalizeLock();.@
10d0: 40 20 2d 31 32 37 35 2c 37 20 2b 31 33 30 37 2c @ -1275,7 +1307,
10e0: 37 20 40 40 0a 20 69 6e 74 0a 20 54 63 6c 49 6e 7 @@. int. TclIn
10f0: 45 78 69 74 28 76 6f 69 64 29 0a 20 7b 0a 2d 20 Exit(void). {.-
1100: 20 20 20 72 65 74 75 72 6e 20 69 6e 46 69 6e 61 return inFina
1110: 6c 69 7a 65 3b 0a 2b 20 20 20 20 72 65 74 75 72 lize;.+ retur
1120: 6e 20 69 6e 45 78 69 74 3b 0a 20 7d 0a 20 0c 0a n inExit;. }. ..
1130: 20 2f 2a 0a /*.
