Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | resolves some warnings by compiling with new gcc-versions (>= 7.x): - '*' in boolean context, suggest '&&' instead [-Wint-in-bool-context] - passing argument 1 of 'Tcl_CreateExitHandler' from incompatible pointer type [-Wincompatible-pointer-types] |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
9ea4420be8e80012f7dbf156e5ae4eac |
| User & Date: | sebres 2018-06-08 12:50:43.582 |
Context
|
2018-06-09
| ||
| 07:41 | Update to latest tzdata (backported from 8.6) check-in: 8fb0134372 user: jan.nijtmans tags: core-8-5-branch | |
|
2018-06-08
| ||
| 13:28 | fixes [815e246806], extend Tcl_RegisterChannel/Tcl_UnregisterChannel with preserving of ref-count of... check-in: dafa1a0859 user: sebres tags: fix-815e246806-8-5 | |
| 13:02 | merge 8.5 (empty merge point, no functional changes, because does not affect 8.6) check-in: 9cfddbdc92 user: sebres tags: core-8-6-branch | |
| 12:50 | resolves some warnings by compiling with new gcc-versions (>= 7.x): - '*' in boolean context, sugg... check-in: 9ea4420be8 user: sebres tags: core-8-5-branch | |
|
2018-06-04
| ||
| 13:49 | fixes [92564326a9] if compiled on some x86 systems (with dirent64 but without DIR64, partially cherr... check-in: 32babd8ff2 user: sebres tags: core-8-5-branch | |
Changes
Changes to generic/tclStringObj.c.
| ︙ | ︙ | |||
109 110 111 112 113 114 115 | } String; #define STRING_MAXCHARS \ (1 + (int)(((size_t)UINT_MAX - sizeof(String))/sizeof(Tcl_UniChar))) #define STRING_UALLOC(numChars) \ ((numChars) * sizeof(Tcl_UniChar)) #define STRING_SIZE(ualloc) \ | | | 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 |
} String;
#define STRING_MAXCHARS \
(1 + (int)(((size_t)UINT_MAX - sizeof(String))/sizeof(Tcl_UniChar)))
#define STRING_UALLOC(numChars) \
((numChars) * sizeof(Tcl_UniChar))
#define STRING_SIZE(ualloc) \
((unsigned) ((ualloc != 0) \
? (sizeof(String) - sizeof(Tcl_UniChar) + (ualloc)) \
: sizeof(String)))
#define stringCheckLimits(numChars) \
if ((numChars) < 0 || (numChars) > STRING_MAXCHARS) { \
Tcl_Panic("max length for a Tcl unicode value (%d chars) exceeded", \
STRING_MAXCHARS); \
}
|
| ︙ | ︙ |
Changes to win/tclWinFile.c.
| ︙ | ︙ | |||
1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 |
return 0;
}
}
}
return 1;
}
/*
*----------------------------------------------------------------------
*
* TclpGetUserHome --
*
* This function takes the passed in user name and finds the
* corresponding home directory specified in the password file.
| > > > > > > | 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 |
return 0;
}
}
}
return 1;
}
static void
FreeLoadLibHandle(
ClientData clientData)
{
FreeLibrary((HMODULE)clientData);
}
/*
*----------------------------------------------------------------------
*
* TclpGetUserHome --
*
* This function takes the passed in user name and finds the
* corresponding home directory specified in the password file.
|
| ︙ | ︙ | |||
1441 1442 1443 1444 1445 1446 1447 |
if (handle) {
netApiBufferFreeProc = (NETAPIBUFFERFREEPROC *)
GetProcAddress(handle, "NetApiBufferFree");
netGetDCNameProc = (NETGETDCNAMEPROC *)
GetProcAddress(handle, "NetGetDCName");
netUserGetInfoProc = (NETUSERGETINFOPROC *)
GetProcAddress(handle, "NetUserGetInfo");
| | | | 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 |
if (handle) {
netApiBufferFreeProc = (NETAPIBUFFERFREEPROC *)
GetProcAddress(handle, "NetApiBufferFree");
netGetDCNameProc = (NETGETDCNAMEPROC *)
GetProcAddress(handle, "NetGetDCName");
netUserGetInfoProc = (NETUSERGETINFOPROC *)
GetProcAddress(handle, "NetUserGetInfo");
Tcl_CreateExitHandler(FreeLoadLibHandle, handle);
}
handle = LoadLibraryA("userenv.dll");
if (handle) {
getProfilesDirectoryProc = (GETPROFILESDIRECTORYPROC *)
GetProcAddress(handle, "GetProfilesDirectoryW");
Tcl_CreateExitHandler(FreeLoadLibHandle, handle);
}
apistubs = -1;
if ( (netUserGetInfoProc != NULL) && (netGetDCNameProc != NULL)
&& (netApiBufferFreeProc != NULL) && (getProfilesDirectoryProc != NULL)
) {
apistubs = 1;
|
| ︙ | ︙ |