summaryrefslogtreecommitdiff
path: root/Build/source/utils/asymptote/runarray.in
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/asymptote/runarray.in')
-rw-r--r--Build/source/utils/asymptote/runarray.in9
1 files changed, 4 insertions, 5 deletions
diff --git a/Build/source/utils/asymptote/runarray.in b/Build/source/utils/asymptote/runarray.in
index c9f80a12297..ca2f0bc6d39 100644
--- a/Build/source/utils/asymptote/runarray.in
+++ b/Build/source/utils/asymptote/runarray.in
@@ -1044,8 +1044,8 @@ array* :array3Transpose(array *a, array *perm)
}
}
- delete [] i;
- delete [] size;
+ delete[] i;
+ delete[] size;
return c;
}
@@ -1109,7 +1109,7 @@ realarray2 *inverse(realarray2 *a)
copyArray2C(A,a,true,0,NoGC);
inverse(A,n);
a=copyCArray2(n,n,A);
- delete A;
+ delete[] A;
return a;
}
@@ -1611,8 +1611,8 @@ real simpson(callableReal *f, real a, real b, real acc=DBL_EPSILON,
// Compute the fast Fourier transform of a pair array
pairarray* fft(pairarray *a, Int sign=1)
{
- unsigned n=(unsigned) checkArray(a);
#ifdef HAVE_LIBFFTW3
+ unsigned n=(unsigned) checkArray(a);
array *c=new array(n);
if(n) {
Complex *f=fftwpp::ComplexAlign(n);
@@ -1631,7 +1631,6 @@ pairarray* fft(pairarray *a, Int sign=1)
fftwpp::deleteAlign(f);
}
#else
- unused(&n);
unused(&sign);
array *c=new array(0);
error("Please install fftw3, run ./configure, and recompile");