Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | add tcl upstream changes |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3567d254c3e3a1a5b6ce106d1bbceffc |
| User & Date: | chw 2019-07-02 04:06:35.005 |
Context
|
2019-07-02
| ||
| 04:40 | add selected tcllib upstream changes check-in: b811cbd1a6 user: chw tags: trunk | |
| 04:07 | merge with trunk check-in: d751ac6185 user: chw tags: wtf-8-experiment | |
| 04:06 | add tcl upstream changes check-in: 3567d254c3 user: chw tags: trunk | |
| 04:04 | add tk upstream changes check-in: 4063ca24da user: chw tags: trunk | |
Changes
Changes to jni/tcl/generic/tclHash.c.
| ︙ | ︙ | |||
835 836 837 838 839 840 841 842 843 844 845 846 847 848 |
unsigned int size, allocsize;
allocsize = size = strlen(string) + 1;
if (size < sizeof(hPtr->key)) {
allocsize = sizeof(hPtr->key);
}
hPtr = ckalloc(TclOffset(Tcl_HashEntry, key) + allocsize);
memcpy(hPtr->key.string, string, size);
hPtr->clientData = 0;
return hPtr;
}
/*
*----------------------------------------------------------------------
| > | 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 |
unsigned int size, allocsize;
allocsize = size = strlen(string) + 1;
if (size < sizeof(hPtr->key)) {
allocsize = sizeof(hPtr->key);
}
hPtr = ckalloc(TclOffset(Tcl_HashEntry, key) + allocsize);
memset(hPtr, 0, sizeof(Tcl_HashEntry) + allocsize - sizeof(hPtr->key));
memcpy(hPtr->key.string, string, size);
hPtr->clientData = 0;
return hPtr;
}
/*
*----------------------------------------------------------------------
|
| ︙ | ︙ |