/*
 *  Copyright 2002 by Texas Instruments Incorporated.
 *  All rights reserved. Property of Texas Instruments Incorporated.
 *  Restricted rights to use, duplicate or disclose this code are
 *  granted through contract.
 *  
 */
/* "@(#) ReferenceFrameworks 2.00.00 11-14-02 (swat-c17)" */
/*
 *  ======== algrf_delScratchSupport.c ========
 */

#pragma CODE_SECTION(ALGRF_deleteScratchSupport, ".text:delete")

#include <std.h>

#include <ialg.h>
#include <algrf.h>


/*
 *  ======== ALGRF_deleteScratchSupport ========
 *  Delete an instance of an algorithm.
 *  Do not delete memory blocks that are for internal scratch memory.
 */
Bool ALGRF_deleteScratchSupport(ALGRF_Handle alg)
{
    IALG_MemRec memTab[ALGRF_MAXMEMRECS];       /* Stack-based avoids frag. */
    Int numRecs;
    IALG_Fxns *fxns;

    if (alg == NULL || alg->fxns == NULL) {
        return (FALSE);
    }
    
    fxns = alg->fxns;
    numRecs = (fxns->algNumAlloc != NULL) ?
        fxns->algNumAlloc() : IALG_DEFMEMRECS;

    /* 
     *  Heap-based memTab[] avoided due to risk of fragmentation
     *  A maximum number of memRecs is set. If, in the unlikely case,
     *  more memRecs than max are requested, return failure.
     */
    if (numRecs > ALGRF_MAXMEMRECS) {
        return (FALSE);
    }  
    
    memTab[0].base = alg;

    /*
     *  query the algorithm about its memory allocations, and
     *  then free the memory allocated to the algorithm as long
     *  as the memory is not an internal scratch buffer. 
     */
    numRecs = fxns->algFree(alg, memTab);
    ALGRF_memFreeScratchSupport(memTab, numRecs);
    
    return (TRUE);
}