Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | [3590483]: Some compilers cannot initialize with complex non-constants. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
7d73c405e13762b042dc731b8ca17d26 |
| User & Date: | dkf 2012-11-28 00:04:31 |
| Original Comment: | [Bug 3590483]: Some compilers cannot initialize with complex non-constants. |
Context
|
2012-11-28
| ||
| 08:52 | Silence some (unimportant) warnings from the MIPSpro compiler. check-in: 3b738c70ee user: dkf tags: trunk | |
| 00:04 | [3590483]: Some compilers cannot initialize with complex non-constants. check-in: 7d73c405e1 user: dkf tags: trunk | |
|
2012-11-26
| ||
| 17:40 | Factor out creation of the -sockname and -peername lists from TcpGetOptionProc() to TcpHostPortList(... check-in: d2d9d14de4 user: max tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2012-11-26 Reinhard Max <[email protected]> * unix/tclUnixSock.c: Factor out creation of the -sockname and -peername lists from TcpGetOptionProc() to TcpHostPortList(). Make it robust against implementations of getnameinfo() that error out if reverse mapping fails instead of falling back to the numeric representation. | > > > > > > | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | 2012-11-28 Donal K. Fellows <[email protected]> * generic/tclZlib.c (ZlibStreamSubcmd): [Bug 3590483]: Use a mechanism for complex option resolution that has fewer problems with more finicky compilers. 2012-11-26 Reinhard Max <[email protected]> * unix/tclUnixSock.c: Factor out creation of the -sockname and -peername lists from TcpGetOptionProc() to TcpHostPortList(). Make it robust against implementations of getnameinfo() that error out if reverse mapping fails instead of falling back to the numeric representation. 2012-11-20 Donal K. Fellows <[email protected]> * generic/tclBinary.c (BinaryDecode64): [Bug 3033307]: Corrected handling of trailing whitespace when decoding base64. Thanks to Anton Kovalenko for reporting, and Andy Goth for the fix and tests. 2012-11-19 Donal K. Fellows <[email protected]> |
| ︙ | ︙ |
Changes to generic/tclZlib.c.
| ︙ | ︙ | |||
2173 2174 2175 2176 2177 2178 2179 2180 2181 |
NULL
};
enum zlibFormats {
FMT_COMPRESS, FMT_DECOMPRESS, FMT_DEFLATE, FMT_GUNZIP, FMT_GZIP,
FMT_INFLATE
};
int i, format, mode = 0, option, level;
typedef struct {
const char *name;
| > > > > > > > > > | < < < | | | | | | | | | | | | | | 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 2208 2209 2210 2211 2212 2213 2214 2215 |
NULL
};
enum zlibFormats {
FMT_COMPRESS, FMT_DECOMPRESS, FMT_DEFLATE, FMT_GUNZIP, FMT_GZIP,
FMT_INFLATE
};
int i, format, mode = 0, option, level;
enum objIndices {
OPT_COMPRESSION_DICTIONARY = 0,
OPT_GZIP_HEADER = 1,
OPT_COMPRESSION_LEVEL = 2
};
Tcl_Obj *obj[3] = { NULL, NULL, NULL };
#define compDictObj obj[OPT_COMPRESSION_DICTIONARY]
#define gzipHeaderObj obj[OPT_GZIP_HEADER]
#define levelObj obj[OPT_COMPRESSION_LEVEL]
typedef struct {
const char *name;
enum objIndices offset;
} OptDescriptor;
static const OptDescriptor compressionOpts[] = {
{ "-dictionary", OPT_COMPRESSION_DICTIONARY },
{ "-level", OPT_COMPRESSION_LEVEL },
{ NULL, 0 }
};
static const OptDescriptor gzipOpts[] = {
{ "-header", OPT_GZIP_HEADER },
{ "-level", OPT_COMPRESSION_LEVEL },
{ NULL, 0 }
};
static const OptDescriptor expansionOpts[] = {
{ "-dictionary", OPT_COMPRESSION_DICTIONARY },
{ NULL, 0 }
};
static const OptDescriptor gunzipOpts[] = {
{ NULL, 0 }
};
const OptDescriptor *desc = NULL;
Tcl_ZlibStream zh;
if (objc < 3 || !(objc & 1)) {
Tcl_WrongNumArgs(interp, 2, objv, "mode ?-option value...?");
return TCL_ERROR;
|
| ︙ | ︙ | |||
2258 2259 2260 2261 2262 2263 2264 |
*/
for (i=3 ; i<objc ; i+=2) {
if (Tcl_GetIndexFromObjStruct(interp, objv[i], desc,
sizeof(OptDescriptor), "option", 0, &option) != TCL_OK) {
return TCL_ERROR;
}
| | < < < < < < | 2264 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 |
*/
for (i=3 ; i<objc ; i+=2) {
if (Tcl_GetIndexFromObjStruct(interp, objv[i], desc,
sizeof(OptDescriptor), "option", 0, &option) != TCL_OK) {
return TCL_ERROR;
}
obj[desc[option].offset] = objv[i+1];
}
/*
* If a compression level was given, parse it (integral: 0..9). Otherwise
* use the default.
*/
|
| ︙ | ︙ | |||
2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 |
return TCL_ERROR;
}
if (compDictObj != NULL) {
Tcl_ZlibStreamSetCompressionDictionary(zh, compDictObj);
}
Tcl_SetObjResult(interp, Tcl_ZlibStreamGetCommandName(zh));
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* ZlibPushSubcmd --
*
| > > > | 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 |
return TCL_ERROR;
}
if (compDictObj != NULL) {
Tcl_ZlibStreamSetCompressionDictionary(zh, compDictObj);
}
Tcl_SetObjResult(interp, Tcl_ZlibStreamGetCommandName(zh));
return TCL_OK;
#undef compDictObj
#undef gzipHeaderObj
#undef levelObj
}
/*
*----------------------------------------------------------------------
*
* ZlibPushSubcmd --
*
|
| ︙ | ︙ |