Differences From Artifact [51a15ac874]:

• File generic/tclResult.c — part of check-in [0256b2a319] at 2024-04-04 11:09:44 on branch core-8-6-branch — Tcl_GetString() -> TclGetString(), for minor speedup. (user: jan.nijtmans size: 46279)

To Artifact [a525b5e84c]:

• File generic/tclResult.c — part of check-in [80e4f71f99] at 2024-05-27 20:19:59 on branch dkf/experimental-more-list-c-funcs — Some more functions for lists, a bit like the ones for dicts (user: dkf size: 46255)

1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050

    TclNewObj(errorObj);
    while (1) {
	char *elem = va_arg(argList, char *);

	if (elem == NULL) {
	    break;
	}
	Tcl_ListObjAppendElement(NULL, errorObj, Tcl_NewStringObj(elem, -1));
    }
    Tcl_SetObjErrorCode(interp, errorObj);
}

/*
 *----------------------------------------------------------------------
 *

|

1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050

    TclNewObj(errorObj);
    while (1) {
	char *elem = va_arg(argList, char *);

	if (elem == NULL) {
	    break;
	}
	TclListObjAppendString(NULL, errorObj, elem);
    }
    Tcl_SetObjErrorCode(interp, errorObj);
}

/*
 *----------------------------------------------------------------------
 *