Check-in [3567d254c3]
Not logged in

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: 3567d254c3e3a1a5b6ce106d1bbceffc4928c3b9
User & Date: chw 2019-07-02 04:06:35
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;
}
 
/*
 *----------------------------------------------------------------------