Tcl Source Code

Check-in [e6c75f634f]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Deleted unused code.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-1-branch-old
Files: files | file ages | folders
SHA1:e6c75f634f4e97cd208c7cd321b51f9b23dcd586
User & Date: welch 1999-04-01 23:23:43
Context
1999-04-01
23:25
Reimplemented Tcl_ConditionNotify and Tcl_ConditionWait based on an algorithm contributed by Jim Dav... check-in: 87deb82e27 user: welch tags: core-8-1-branch-old
23:23
Deleted unused code. check-in: e6c75f634f user: welch tags: core-8-1-branch-old
23:23
Added file used with test for BUG 1327 check-in: a2c1963b2c user: welch tags: core-8-1-branch-old
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to unix/tclUnixThrd.c.

31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
/*
 * initLock is used to serialize initialization and finalization
 * of Tcl.  It cannot use any dyamically allocated storage.
 */

static pthread_mutex_t initLock = PTHREAD_MUTEX_INITIALIZER;

/*
 * allocLock is used to serialize memory allocation.
 */

static pthread_mutex_t allocLock = PTHREAD_MUTEX_INITIALIZER; 
TCL_DECLARE_MUTEX(allocMutex)

/*
 * These are for the critical sections inside this file.
 */

#define MASTER_LOCK	pthread_mutex_lock(&masterLock)
#define MASTER_UNLOCK	pthread_mutex_unlock(&masterLock)

#endif /* TCL_THREADS */

 
/*
 *----------------------------------------------------------------------
 *
 * TclpMutexBootstrap --
 *
 *	This procedure gives out a pointer to a pre-allocated mutex.
 *	This is used by memory allocators for their own mutex.
 * 
 * Results:
 *	None.
 *
 * Side effects:
 *	None.
 *
 *----------------------------------------------------------------------
 */

Tcl_Mutex *
TclpMutexBootstrap()
{
#ifdef TCL_THREADS
    pthread_mutex_init(&allocLock, NULL);
    allocMutex = (Tcl_Mutex)&allocLock;
    return &allocMutex;
#else
    return NULL;
#endif
}

#ifdef TCL_THREADS
 
/*
 *----------------------------------------------------------------------
 *
 * TclpThreadCreate --






<
<
<
<
<
<
<










<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<







31
32
33
34
35
36
37







38
39
40
41
42
43
44
45
46
47




























48
49
50
51
52
53
54
/*
 * initLock is used to serialize initialization and finalization
 * of Tcl.  It cannot use any dyamically allocated storage.
 */

static pthread_mutex_t initLock = PTHREAD_MUTEX_INITIALIZER;








/*
 * These are for the critical sections inside this file.
 */

#define MASTER_LOCK	pthread_mutex_lock(&masterLock)
#define MASTER_UNLOCK	pthread_mutex_unlock(&masterLock)

#endif /* TCL_THREADS */

 





























#ifdef TCL_THREADS
 
/*
 *----------------------------------------------------------------------
 *
 * TclpThreadCreate --