in tcl_misc.c [66:81]
int vasprintf(char **result, const char *format, va_list args)
{
char p;
int ret;
ret = vsnprintf(&p, 1, format, args);
if (ret > 0) {
*result = malloc(ret + 1);
return vsprintf(*result, format, args);
}
*result = NULL;
return ret;
}