Tcl package Thread source code

Changes On Branch mistake
Login

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

Changes In Branch mistake Excluding Merge-Ins

This is equivalent to a diff from dbe9994ced to 26b072f161

2012-07-17
09:15
[Bug 3543020]: Thread extension not building with makefile. when in release check-in: ba613d7ff4 user: jan.nijtmans tags: trunk
09:10
[Bug 3543020]: Thread extension not building with makefile. when in release Closed-Leaf check-in: 26b072f161 user: jan.nijtmans tags: mistake
2012-07-16
19:17
[bug 3543020]: Thread extension not building with makefile. when in release check-in: dbe9994ced user: jan.nijtmans tags: trunk
2012-07-13
01:53
Allow package to be compiled with MSVC again by defining MODULE_SCOPE in the MSVC makefile. check-in: 8f62b3ac7f user: mistachkin tags: trunk

Changes to Makefile.in.

296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316

	mkdir $(DIST_DIR)/unix
	cp $(srcdir)/unix/README $(srcdir)/unix/CONFIG \
		$(srcdir)/unix/threadUnix.c $(DIST_DIR)/unix/

	mkdir $(DIST_DIR)/win
	cp $(srcdir)/win/README.txt $(srcdir)/win/CONFIG $(srcdir)/win/thread.rc \
		$(srcdir)/win/threadWin.c $(DIST_DIR)/win/

	cp $(srcdir)/win/vc/makefile.vc \
		$(srcdir)/win/vc/nmakehlp.c $(srcdir)/win/vc/pkg.vc \
		$(srcdir)/win/vc/rules.vc   $(srcdir)/win/vc/thread_win.dsw \
		$(srcdir)/win/vc/thread_win.dsp $(DIST_DIR)/win/
	cp $(srcdir)/win/vc/README.txt $(DIST_DIR)/win/README.vc.txt

	mkdir $(DIST_DIR)/tcl
	cp $(srcdir)/tcl/README $(DIST_DIR)/tcl/

	list='tests doc doc/man doc/html generic lib tcl/cmdsrv tcl/phttpd tcl/tpool';\
	for p in $$list; do \
	    if test -d $(srcdir)/$$p ; then \







|
<
<
|
|
|
<







296
297
298
299
300
301
302
303


304
305
306

307
308
309
310
311
312
313

	mkdir $(DIST_DIR)/unix
	cp $(srcdir)/unix/README $(srcdir)/unix/CONFIG \
		$(srcdir)/unix/threadUnix.c $(DIST_DIR)/unix/

	mkdir $(DIST_DIR)/win
	cp $(srcdir)/win/README.txt $(srcdir)/win/CONFIG $(srcdir)/win/thread.rc \
		$(srcdir)/win/threadWin.c $(srcdir)/win/makefile.vc \


		$(srcdir)/win/nmakehlp.c $(srcdir)/win/pkg.vc \
		$(srcdir)/win/rules.vc   $(srcdir)/win/thread_win.dsw \
		$(srcdir)/win/thread_win.dsp $(DIST_DIR)/win/


	mkdir $(DIST_DIR)/tcl
	cp $(srcdir)/tcl/README $(DIST_DIR)/tcl/

	list='tests doc doc/man doc/html generic lib tcl/cmdsrv tcl/phttpd tcl/tpool';\
	for p in $$list; do \
	    if test -d $(srcdir)/$$p ; then \

Changes to generic/threadSvListCmd.c.

908
909
910
911
912
913
914



915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
 *
 *  Exact copy from the TclCheckBadOctal found in tclUtil.c
 *  since this is not in the stubs table.
 *
 *-----------------------------------------------------------------------------
 */




static int
SvCheckBadOctal(interp, value)
    Tcl_Interp *interp;     /* Interpreter to use for error reporting.
                             * If NULL, then no error message is left
                             * after errors. */
    const char *value;      /* String to check. */
{
    register const char *p = value;

    /*
     * A frequent mistake is invalid octal values due to an unwanted
     * leading zero. Try to generate a meaningful error message.
     */

    while (isspace((unsigned char)(*p))) { /* INTL: ISO space. */
        p++;
    }
    if (*p == '+' || *p == '-') {
        p++;
    }
    if (*p == '0') {
        while (isdigit((unsigned char)(*p))) { /* INTL: digit. */
            p++;
        }
        while (isspace((unsigned char)(*p))) { /* INTL: ISO space. */
            p++;
        }
        if (*p == '\0') {
            /* Reached end of string */
            if (interp != NULL) {
                Tcl_AppendResult(interp, " (looks like invalid octal number)",
                        (char *) NULL);







>
>
>














|






|


|







908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
 *
 *  Exact copy from the TclCheckBadOctal found in tclUtil.c
 *  since this is not in the stubs table.
 *
 *-----------------------------------------------------------------------------
 */

#define ISSPACE(a)	(a == ' ' || a == '\t')
#define ISDIGIT(a)	(a >= '0' || a <= '9')

static int
SvCheckBadOctal(interp, value)
    Tcl_Interp *interp;     /* Interpreter to use for error reporting.
                             * If NULL, then no error message is left
                             * after errors. */
    const char *value;      /* String to check. */
{
    register const char *p = value;

    /*
     * A frequent mistake is invalid octal values due to an unwanted
     * leading zero. Try to generate a meaningful error message.
     */

    while (ISSPACE((unsigned char)(*p))) { /* INTL: ISO space. */
        p++;
    }
    if (*p == '+' || *p == '-') {
        p++;
    }
    if (*p == '0') {
        while (ISDIGIT((unsigned char)(*p))) { /* INTL: digit. */
            p++;
        }
        while (ISSPACE((unsigned char)(*p))) { /* INTL: ISO space. */
            p++;
        }
        if (*p == '\0') {
            /* Reached end of string */
            if (interp != NULL) {
                Tcl_AppendResult(interp, " (looks like invalid octal number)",
                        (char *) NULL);

Changes to win/threadWin.c.

12
13
14
15
16
17
18

19

20
21
22
23
24
25
26
 * Copyright (c) 1999,2000 by Scriptics Corporation.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 */

#include "../generic/tclThread.h"

#include <windows.h>

#include <process.h>

#if 0
/* only Windows 2000 (XP, too??) has this function */
HANDLE (WINAPI *winOpenThreadProc)(DWORD, BOOL, DWORD);

void







>

>







12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 * Copyright (c) 1999,2000 by Scriptics Corporation.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 */

#include "../generic/tclThread.h"
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#undef WIN32_LEAN_AND_MEAN
#include <process.h>

#if 0
/* only Windows 2000 (XP, too??) has this function */
HANDLE (WINAPI *winOpenThreadProc)(DWORD, BOOL, DWORD);

void