in tcl_misc.c [83:93]
int asprintf(char **result, const char *format, ...) { va_list va; int ret; va_start(va, format); ret = vasprintf(result, format, va); va_end(va); return ret; }