luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

cleanup wallace arrays on program termination

This commit is contained in:
rlar 2012-08-22 21:57:07 +02:00
parent 590fc543f8
commit 83c99bece4
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/frontend/trannoise/wallace.c
View File

@ -70,6 +70,13 @@ void PolarGauss(double* py1, double* py2)
static void destroy_wallace(void)
{
tfree(pool1);
tfree(pool2);
tfree(addrif);
tfree(addrib);
}
void initw(void) void initw(void)
@ -87,10 +94,12 @@ void initw(void)
newpools = 1; newpools = 1;
/* set up the two pools */ /* set up the two pools */
pool1 = TMALLOC(double, n); //(double*)malloc(n * sizeof(double)); pool1 = TMALLOC(double, n);
pool2 = TMALLOC(double, n); //(double*)malloc(n * sizeof(double)); pool2 = TMALLOC(double, n);
addrif = TMALLOC(unsigned int, (n + NOTRANS)); //(unsigned int*)malloc((n + NOTRANS) * sizeof(unsigned int)); addrif = TMALLOC(unsigned int, (n + NOTRANS));
addrib = TMALLOC(unsigned int, (n + NOTRANS)); //(unsigned int*)malloc((n + NOTRANS) * sizeof(unsigned int)); addrib = TMALLOC(unsigned int, (n + NOTRANS));
atexit(destroy_wallace);
/* fill the first pool with normally distributed values */ /* fill the first pool with normally distributed values */
PolarGauss(&pool1[0], &pool1[1]); PolarGauss(&pool1[0], &pool1[1]);