Tcl Source Code

Check-in [cd00ede986]
Login

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

Overview
Comment:Silence some compiler warnings.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: cd00ede9868623a7d7eb4f99abf5c5ae373d5e53
User & Date: dgp 2013-01-24 20:46:58
Context
2013-01-24
21:31
revert [8e83219e38]: it doesn't work on i386 check-in: 16e86f8613 user: jan.nijtmans tags: trunk
21:04
merge trunk check-in: ca479183a2 user: dgp tags: dgp-refactor
20:46
Silence some compiler warnings. check-in: cd00ede986 user: dgp tags: trunk
19:09
Silence come compiler warnings. check-in: 846d6d7575 user: dgp tags: core-8-5-branch
08:22
Simplify STRING_AT macro. Protect Tcl_GetIndexFromObjStruct from invalid "offset" values, like 0 or ... check-in: 4d66f17ddb user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCkalloc.c.

152
153
154
155
156
157
158




159
160
161
162
163
164
165

void
TclInitDbCkalloc(void)
{
    if (!ckallocInit) {
	ckallocInit = 1;
	ckallocMutexPtr = Tcl_GetAllocMutex();




    }
}

/*
 *----------------------------------------------------------------------
 *
 * TclDumpMemoryInfo --







>
>
>
>







152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169

void
TclInitDbCkalloc(void)
{
    if (!ckallocInit) {
	ckallocInit = 1;
	ckallocMutexPtr = Tcl_GetAllocMutex();
#ifndef TCL_THREADS
	/* Silence compiler warning */
	(void)ckallocMutexPtr;
#endif
    }
}

/*
 *----------------------------------------------------------------------
 *
 * TclDumpMemoryInfo --

Changes to generic/tclExecute.c.

7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097
7098

	    codePtr->flags |= TCL_BYTECODE_RECOMPILE;
	    bytes = GetSrcInfoForPc(pc, codePtr, &length, NULL);
	    opnd = TclGetUInt4AtPtr(pc+1);
	    pc += (opnd-1);
	    PUSH_OBJECT(Tcl_NewStringObj(bytes, length));
	    goto instEvalStk;
	    NEXT_INST_F(9, 0, 0);
	}
}

#undef codePtr
#undef iPtr
#undef bcFramePtr
#undef initCatchTop







<







7084
7085
7086
7087
7088
7089
7090

7091
7092
7093
7094
7095
7096
7097

	    codePtr->flags |= TCL_BYTECODE_RECOMPILE;
	    bytes = GetSrcInfoForPc(pc, codePtr, &length, NULL);
	    opnd = TclGetUInt4AtPtr(pc+1);
	    pc += (opnd-1);
	    PUSH_OBJECT(Tcl_NewStringObj(bytes, length));
	    goto instEvalStk;

	}
}

#undef codePtr
#undef iPtr
#undef bcFramePtr
#undef initCatchTop