Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | silence compiler warning |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
b447c19b77a84b64b76c3951a682b6c0 |
User & Date: | dgp 2012-11-29 13:15:36 |
Context
2012-11-29
| ||
14:54 | 3588687 When detecting incompatibility during stubs initialization, the error message has always ass... check-in: 115032dc74 user: dgp tags: trunk | |
13:15 | silence compiler warning check-in: b447c19b77 user: dgp tags: trunk | |
2012-11-28
| ||
08:52 | Silence some (unimportant) warnings from the MIPSpro compiler. check-in: 3b738c70ee user: dkf tags: trunk | |
Changes
Changes to generic/tclCompCmdsSZ.c.
︙ | ︙ | |||
1220 1221 1222 1223 1224 1225 1226 | 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) { | | < < < < < | 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 | 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; /* |
︙ | ︙ | |||
1250 1251 1252 1253 1254 1255 1256 | TclAdvanceLines(&bline, bodyTokenArray[numWords].start, bytes); TclAdvanceContinuations(&bline, &clNext, bytes - envPtr->source); numBytes -= (bytes - prevBytes); numWords++; } if (numWords % 2) { | | > > > > > | 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 | 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 *) bodyContLines); 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 |
︙ | ︙ |