Artifact
06c2c1b147e0aedf9c883c841570102fe3808c14:
Attachment "tclLoadDl-2.patch" to
ticket [1967630fff]
added by
georgeps
2008-05-20 11:15:19.
0000: 49 6e 64 65 78 3a 20 74 63 6c 4c 6f 61 64 44 6c Index: tclLoadDl
0010: 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .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 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
0060: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
0070: 6c 2f 75 6e 69 78 2f 74 63 6c 4c 6f 61 64 44 6c l/unix/tclLoadDl
0080: 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 .c,v.retrieving
0090: 72 65 76 69 73 69 6f 6e 20 31 2e 31 37 0a 64 69 revision 1.17.di
00a0: 66 66 20 2d 75 20 2d 72 31 2e 31 37 20 74 63 6c ff -u -r1.17 tcl
00b0: 4c 6f 61 64 44 6c 2e 63 0a 2d 2d 2d 20 74 63 6c LoadDl.c.--- tcl
00c0: 4c 6f 61 64 44 6c 2e 63 09 32 37 20 41 70 72 20 LoadDl.c.27 Apr
00d0: 32 30 30 38 20 32 32 3a 32 31 3a 33 33 20 2d 30 2008 22:21:33 -0
00e0: 30 30 30 09 31 2e 31 37 0a 2b 2b 2b 20 74 63 6c 000.1.17.+++ tcl
00f0: 4c 6f 61 64 44 6c 2e 63 09 32 30 20 4d 61 79 20 LoadDl.c.20 May
0100: 32 30 30 38 20 30 33 3a 34 38 3a 35 36 20 2d 30 2008 03:48:56 -0
0110: 30 30 30 0a 40 40 20 2d 33 33 2c 36 20 2b 33 33 000.@@ -33,6 +33
0120: 2c 31 33 20 40 40 0a 20 23 69 66 6e 64 65 66 20 ,13 @@. #ifndef
0130: 52 54 4c 44 5f 47 4c 4f 42 41 4c 0a 20 23 20 20 RTLD_GLOBAL. #
0140: 20 64 65 66 69 6e 65 20 52 54 4c 44 5f 47 4c 4f define RTLD_GLO
0150: 42 41 4c 20 30 0a 20 23 65 6e 64 69 66 0a 2b 0a BAL 0. #endif.+.
0160: 2b 2f 2a 20 0a 2b 20 2a 20 54 68 69 73 20 69 73 +/* .+ * This is
0170: 20 75 73 65 64 20 74 6f 20 70 72 6f 74 65 63 74 used to protect
0180: 20 74 68 65 20 64 6c 65 72 72 6f 72 28 29 20 6d the dlerror() m
0190: 65 73 73 61 67 65 20 73 74 61 74 65 2e 0a 2b 20 essage state..+
01a0: 2a 20 54 68 65 20 50 4f 53 49 58 20 32 30 30 34 * The POSIX 2004
01b0: 20 73 74 61 6e 64 61 72 64 20 73 74 61 74 65 73 standard states
01c0: 3a 20 22 54 68 65 20 64 6c 65 72 72 6f 72 28 29 : "The dlerror()
01d0: 20 66 75 6e 63 74 69 6f 6e 20 6e 65 65 64 20 6e function need n
01e0: 6f 74 20 62 65 20 72 65 65 6e 74 72 61 6e 74 2e ot be reentrant.
01f0: 22 0a 2b 20 2a 2f 0a 2b 54 43 4c 5f 44 45 43 4c ".+ */.+TCL_DECL
0200: 41 52 45 5f 4d 55 54 45 58 28 64 6c 4d 75 74 65 ARE_MUTEX(dlMute
0210: 78 29 3b 0a 2b 0a 20 0c 0a 20 2f 2a 0a 20 20 2a x);.+. .. /*. *
0220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 40 20 2d -----------.@@ -
0270: 37 35 2c 36 20 2b 38 32 2c 31 32 20 40 40 0a 20 75,6 +82,12 @@.
0280: 20 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 6e */. . n
0290: 61 74 69 76 65 20 3d 20 54 63 6c 5f 46 53 47 65 ative = Tcl_FSGe
02a0: 74 4e 61 74 69 76 65 50 61 74 68 28 70 61 74 68 tNativePath(path
02b0: 50 74 72 29 3b 0a 2b 0a 2b 20 20 20 20 54 63 6c Ptr);.+.+ Tcl
02c0: 5f 4d 75 74 65 78 4c 6f 63 6b 28 26 64 6c 4d 75 _MutexLock(&dlMu
02d0: 74 65 78 29 3b 20 20 20 20 0a 2b 0a 2b 20 20 20 tex); .+.+
02e0: 20 2f 2a 20 44 72 61 69 6e 20 64 6c 65 72 72 6f /* Drain dlerro
02f0: 72 20 2a 2f 0a 2b 20 20 20 20 28 76 6f 69 64 29 r */.+ (void)
0300: 64 6c 65 72 72 6f 72 28 29 3b 0a 2b 0a 20 20 20 dlerror();.+.
0310: 20 20 68 61 6e 64 6c 65 20 3d 20 64 6c 6f 70 65 handle = dlope
0320: 6e 28 6e 61 74 69 76 65 2c 20 52 54 4c 44 5f 4e n(native, RTLD_N
0330: 4f 57 20 7c 20 52 54 4c 44 5f 47 4c 4f 42 41 4c OW | RTLD_GLOBAL
0340: 29 3b 0a 20 20 20 20 20 69 66 20 28 68 61 6e 64 );. if (hand
0350: 6c 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 20 09 le == NULL) {. .
0360: 2f 2a 0a 40 40 20 2d 31 30 31 2c 39 20 2b 31 31 /*.@@ -101,9 +11
0370: 34 2c 31 34 20 40 40 0a 20 0a 20 09 54 63 6c 5f 4,14 @@. . .Tcl_
0380: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
0390: 65 72 70 2c 20 22 63 6f 75 6c 64 6e 27 74 20 6c erp, "couldn't l
03a0: 6f 61 64 20 66 69 6c 65 20 5c 22 22 2c 0a 20 09 oad file \"",. .
03b0: 09 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 70 .Tcl_GetString(p
03c0: 61 74 68 50 74 72 29 2c 20 22 5c 22 3a 20 22 2c athPtr), "\": ",
03d0: 20 65 72 72 6f 72 53 74 72 2c 20 4e 55 4c 4c 29 errorStr, NULL)
03e0: 3b 0a 2b 0a 2b 09 54 63 6c 5f 4d 75 74 65 78 55 ;.+.+.Tcl_MutexU
03f0: 6e 6c 6f 63 6b 28 26 64 6c 4d 75 74 65 78 29 3b nlock(&dlMutex);
0400: 0a 2b 0a 20 09 72 65 74 75 72 6e 20 54 43 4c 5f .+. .return TCL_
0410: 45 52 52 4f 52 3b 0a 20 20 20 20 20 7d 0a 20 0a ERROR;. }. .
0420: 2b 20 20 20 20 54 63 6c 5f 4d 75 74 65 78 55 6e + Tcl_MutexUn
0430: 6c 6f 63 6b 28 26 64 6c 4d 75 74 65 78 29 3b 0a lock(&dlMutex);.
0440: 2b 0a 20 20 20 20 20 2a 75 6e 6c 6f 61 64 50 72 +. *unloadPr
0450: 6f 63 50 74 72 20 3d 20 26 54 63 6c 70 55 6e 6c ocPtr = &TclpUnl
0460: 6f 61 64 46 69 6c 65 3b 0a 20 20 20 20 20 2a 6c oadFile;. *l
0470: 6f 61 64 48 61 6e 64 6c 65 20 3d 20 28 54 63 6c oadHandle = (Tcl
0480: 5f 4c 6f 61 64 48 61 6e 64 6c 65 29 20 68 61 6e _LoadHandle) han
0490: 64 6c 65 3b 0a 20 20 20 20 20 72 65 74 75 72 6e dle;. return
04a0: 20 54 43 4c 5f 4f 4b 3b 0a 40 40 20 2d 31 34 33 TCL_OK;.@@ -143
04b0: 2c 36 20 2b 31 36 31 2c 31 32 20 40 40 0a 20 20 ,6 +161,12 @@.
04c0: 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 6e 61 */. . na
04d0: 74 69 76 65 20 3d 20 54 63 6c 5f 55 74 66 54 6f tive = Tcl_UtfTo
04e0: 45 78 74 65 72 6e 61 6c 44 53 74 72 69 6e 67 28 ExternalDString(
04f0: 4e 55 4c 4c 2c 20 73 79 6d 62 6f 6c 2c 20 2d 31 NULL, symbol, -1
0500: 2c 20 26 64 73 29 3b 0a 2b 0a 2b 20 20 20 20 54 , &ds);.+.+ T
0510: 63 6c 5f 4d 75 74 65 78 4c 6f 63 6b 28 26 64 6c cl_MutexLock(&dl
0520: 4d 75 74 65 78 29 3b 0a 2b 0a 2b 20 20 20 20 2f Mutex);.+.+ /
0530: 2a 20 44 72 61 69 6e 20 64 6c 65 72 72 6f 72 20 * Drain dlerror
0540: 2a 2f 0a 2b 20 20 20 20 28 76 6f 69 64 29 64 6c */.+ (void)dl
0550: 65 72 72 6f 72 28 29 3b 0a 2b 0a 20 20 20 20 20 error();.+.
0560: 70 72 6f 63 20 3d 20 28 54 63 6c 5f 50 61 63 6b proc = (Tcl_Pack
0570: 61 67 65 49 6e 69 74 50 72 6f 63 20 2a 29 20 64 ageInitProc *) d
0580: 6c 73 79 6d 28 68 61 6e 64 6c 65 2c 09 2f 2a 20 lsym(handle,./*
0590: 49 4e 54 4c 3a 20 4e 61 74 69 76 65 2e 20 2a 2f INTL: Native. */
05a0: 0a 20 09 20 20 20 20 6e 61 74 69 76 65 29 3b 0a . . native);.
05b0: 20 20 20 20 20 69 66 20 28 70 72 6f 63 20 3d 3d if (proc ==
05c0: 20 4e 55 4c 4c 29 20 7b 0a 40 40 20 2d 31 35 35 NULL) {.@@ -155
05d0: 2c 36 20 2b 31 37 39 2c 31 31 20 40 40 0a 20 20 ,6 +179,11 @@.
05e0: 20 20 20 7d 0a 20 20 20 20 20 54 63 6c 5f 44 53 }. Tcl_DS
05f0: 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a tringFree(&ds);.
0600: 20 0a 2b 20 20 20 20 54 63 6c 5f 41 70 70 65 6e .+ Tcl_Appen
0610: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
0620: 22 63 6f 75 6c 64 6e 27 74 20 66 69 6e 64 20 73 "couldn't find s
0630: 79 6d 62 6f 6c 20 5c 22 22 2c 20 73 79 6d 62 6f ymbol \"", symbo
0640: 6c 2c 20 0a 2b 09 09 20 20 20 20 20 22 5c 22 3a l, .+.. "\":
0650: 20 22 2c 20 64 6c 65 72 72 6f 72 28 29 2c 20 4e ", dlerror(), N
0660: 55 4c 4c 29 3b 0a 2b 0a 2b 20 20 20 20 54 63 6c ULL);.+.+ Tcl
0670: 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b 28 26 64 6c _MutexUnlock(&dl
0680: 4d 75 74 65 78 29 3b 0a 2b 0a 20 20 20 20 20 72 Mutex);.+. r
0690: 65 74 75 72 6e 20 70 72 6f 63 3b 0a 20 7d 0a 20 eturn proc;. }.
06a0: 0c 0a ..
