}

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

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


    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;



}

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