asrcdest.c

来自「ngspice又一个电子CAD仿真软件代码.功能更全」· C语言 代码 · 共 31 行

/**********
Copyright 1990 Regents of the University of California.  All rights reserved.
Author: 1987 Kanwar Jit Singh
**********/

#include "ngspice.h"
#include "asrcdefs.h"
#include "suffix.h"

void
ASRCdestroy(GENmodel **model)

{
    ASRCmodel **start = (ASRCmodel**)model; /* starting model */
    ASRCinstance *here;     /* current instance */
    ASRCinstance *next;
    ASRCmodel *mod = *start;    /* current model */
    ASRCmodel *nextmod;

    for( ; mod ; mod = nextmod) {
        for(here = mod->ASRCinstances ; here ; here = next) {
            next = here->ASRCnextInstance;
	    FREE(here->ASRCacValues);
            FREE(here);
        }
        nextmod = mod->ASRCnextModel;
        FREE(mod);
    }
    *model = NULL;
}