rem: STRNEQU(elementPtr, ((char *) fieldName), fieldNameSize)))
add: STRNEQU(elementPtr, ((char *) fieldName), (size_t)fieldNameSize)))
context:                     CompareKeyListField(interp, fieldName, field, valuePtr, valueSizePtr,                    bracedPtr)    Tcl_Interp     *interp;    CONST char     *fieldName;    CONST char     *field;    char          **valuePtr;    int            *valueSizePtr;    int            *bracedPtr;{    char           *elementPtr, *nextPtr;    int             fieldNameSize, elementSize;    if (field[0] == '\0') {        interp->result =            "invalid keyed list format: list contains an empty field entry";        return TCL_ERROR;    }    if (TclFindElement(interp, (char *) field, &elementPtr, &nextPtr,            &elementSize, NULL) != TCL_OK)        return TCL_ERROR;    if (elementSize == 0) {        interp->result =            "invalid keyed list format: list contains an empty field name";        return TCL_ERROR;    }    if (nextPtr[0] == '\0') {        Tcl_AppendResult(interp, "invalid keyed list format or inconsistent ",            "field name scoping: no value associated with ",            "field \"", elementPtr, "\"", (char *) NULL);        return TCL_ERROR;    }    fieldNameSize = strlen((char *) fieldName);    if (!((elementSize == fieldNameSize) &&            STRNEQU(elementPtr, ((char *) fieldName), fieldNameSize)))        return TCL_BREAK;               /* Names do not match */    /*     * Extract the value from the list.     */    if (TclFindElement(interp, nextPtr, &elementPtr, &nextPtr, &elementSize,            bracedPtr) != TCL_OK)        return TCL_ERROR;    if (nextPtr[0] != '\0') {        Tcl_AppendResult(interp, "invalid keyed list format: ",            "trailing data following value in field: \"",            elementPtr, "\"", (char *) NULL);        return TCL_ERROR;    }    *valuePtr = elementPtr;    *valueSizePtr = elementSize;    return TCL_OK;}