Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Silence come compiler warnings. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
846d6d75751f7ff6a27d45787f6bf704 |
| User & Date: | dgp 2013-01-24 19:09:33 |
Context
|
2013-01-24
| ||
| 21:29 | revert [f3509c3d35]: it doesn't work on i386 check-in: 5aa72128a9 user: jan.nijtmans tags: core-8-5-branch | |
| 20:46 | Silence some compiler warnings. check-in: cd00ede986 user: dgp tags: trunk | |
| 20:25 | Bug 3599789: Proposed fix by Serg G. Brester Closed-Leaf check-in: dc427c5f49 user: jan.nijtmans tags: bug-3599789 | |
| 19:09 | Silence come compiler warnings. check-in: 846d6d7575 user: dgp tags: core-8-5-branch | |
| 18:47 | Silence some compiler warnings. check-in: f169839228 user: dgp tags: core-8-4-branch | |
| 08:05 | Simplify STRING_AT macro. Protect Tcl_GetIndexFromObjStruct from invalid "offset" values, like 0 or ... check-in: 8d90ad34d1 user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to generic/tclCkalloc.c.
| ︙ | ︙ | |||
146 147 148 149 150 151 152 153 154 155 156 157 158 159 |
void
TclInitDbCkalloc(void)
{
if (!ckallocInit) {
ckallocInit = 1;
ckallocMutexPtr = Tcl_GetAllocMutex();
}
}
/*
*----------------------------------------------------------------------
*
* TclDumpMemoryInfo --
| > > > > | 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 |
void
TclInitDbCkalloc(void)
{
if (!ckallocInit) {
ckallocInit = 1;
ckallocMutexPtr = Tcl_GetAllocMutex();
#ifndef TCL_THREADS
/* Silence compiler warning */
(void)ckallocMutexPtr;
#endif
}
}
/*
*----------------------------------------------------------------------
*
* TclDumpMemoryInfo --
|
| ︙ | ︙ |
Changes to generic/tclCompCmds.c.
| ︙ | ︙ | |||
4076 4077 4078 4079 4080 4081 4082 |
while (numBytes > 0) {
CONST char *prevBytes = bytes;
int literal;
if (TCL_OK != TclFindElement(NULL, bytes, numBytes,
&(bodyTokenArray[numWords].start), &bytes,
&(bodyTokenArray[numWords].size), &literal) || !literal) {
| | < < < < < | 4076 4077 4078 4079 4080 4081 4082 4083 4084 4085 4086 4087 4088 4089 4090 |
while (numBytes > 0) {
CONST char *prevBytes = bytes;
int literal;
if (TCL_OK != TclFindElement(NULL, bytes, numBytes,
&(bodyTokenArray[numWords].start), &bytes,
&(bodyTokenArray[numWords].size), &literal) || !literal) {
goto abort;
}
bodyTokenArray[numWords].type = TCL_TOKEN_TEXT;
bodyTokenArray[numWords].numComponents = 0;
bodyToken[numWords] = bodyTokenArray + numWords;
/*
|
| ︙ | ︙ | |||
4106 4107 4108 4109 4110 4111 4112 |
TclAdvanceLines(&bline, bodyTokenArray[numWords].start, bytes);
TclAdvanceContinuations (&bline, &clNext, bytes - envPtr->source);
numBytes -= (bytes - prevBytes);
numWords++;
}
if (numWords % 2) {
| | > > > > > | 4101 4102 4103 4104 4105 4106 4107 4108 4109 4110 4111 4112 4113 4114 4115 4116 4117 4118 4119 4120 |
TclAdvanceLines(&bline, bodyTokenArray[numWords].start, bytes);
TclAdvanceContinuations (&bline, &clNext, bytes - envPtr->source);
numBytes -= (bytes - prevBytes);
numWords++;
}
if (numWords % 2) {
abort:
ckfree((char *) bodyToken);
ckfree((char *) bodyTokenArray);
ckfree((char *) bodyLines);
ckfree((char *) bodyNext);
return TCL_ERROR;
}
} else if (numWords % 2 || numWords == 0) {
/*
* Odd number of words (>1) available, or no words at all available.
* Both are error cases, so punt and let the interpreted-version
* generate the error message. Note that the second case probably
* should get caught earlier, but it's easy to check here again anyway
|
| ︙ | ︙ |