Tcl Source Code

Check-in [c6f4b50fbf]
Login

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

Overview
Comment:Fix gcc compiler warning
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | core-8-branch
Files: files | file ages | folders
SHA3-256: c6f4b50fbf15ff9a6b9f8514ad35563212b437d5f84df0bddb7c0605bbb7e5e2
User & Date: jan.nijtmans 2019-03-07 21:59:22.346
Context
2019-03-08
14:47
merge 8.6 check-in: 8d5d640832 user: dgp tags: core-8-branch
2019-03-07
22:03
Merge 8.7 check-in: d6eb82a174 user: jan.nijtmans tags: trunk
22:02
Fixes for TCL_UTF_MAX=6, (gcc compiler warnings). Also make everything work on win32/win64. Patch ad... check-in: 650574e0fb user: jan.nijtmans tags: utf-max-6
21:59
Fix gcc compiler warning check-in: c6f4b50fbf user: jan.nijtmans tags: core-8-branch
14:17
(core-8-6-branch merge) Fix automatic pkgIndex generation for multiplatform installs. check-in: d48cced50f user: apnadkarni tags: core-8-branch
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/tclEnv.c.
115
116
117
118
119
120
121

122
123
124
125
126
127
128
129

    if (environ[0] != NULL) {
	int i;

	Tcl_MutexLock(&envMutex);
	for (i = 0; environ[i] != NULL; i++) {
	    Tcl_Obj *obj1, *obj2;

	    char *p1, *p2;

	    p1 = Tcl_ExternalToUtfDString(NULL, environ[i], -1, &envString);
	    p2 = strchr(p1, '=');
	    if (p2 == NULL) {
		/*
		 * This condition seem to happen occasionally under some
		 * versions of Solaris, or when encoding accidents swallow the







>
|







115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130

    if (environ[0] != NULL) {
	int i;

	Tcl_MutexLock(&envMutex);
	for (i = 0; environ[i] != NULL; i++) {
	    Tcl_Obj *obj1, *obj2;
	    const char *p1;
	    char *p2;

	    p1 = Tcl_ExternalToUtfDString(NULL, environ[i], -1, &envString);
	    p2 = strchr(p1, '=');
	    if (p2 == NULL) {
		/*
		 * This condition seem to happen occasionally under some
		 * versions of Solaris, or when encoding accidents swallow the