}

void *
TclInterpAlloc(
    Tcl_Interp *interp,
    unsigned int size)
{
    void *result;
#ifdef USE_THREAD_ALLOC 

#ifndef HAVE_FAST_TSD
    Interp *iPtr = (Interp *)interp;
    void *result;

    if (!iPtr) {
        return Tcl_Alloc(size);
    }

    result = TclAttemptAlloc(iPtr->cachePtr, size);
#else
    /* return Tcl_Alloc(size); */
    result = Tcl_AttemptAlloc(size);
#endif
    if ((result == NULL) && size) {
	Tcl_Panic("unable to alloc %u bytes", size);
    }
    return result;
#else
    return Tcl_Alloc(size);
#endif
}


/*
 *----------------------------------------------------------------------
 *
 * Tcl_AttemptAlloc --