1 files changed, 2 insertions, 14 deletions
diff --git a/fourier.c b/fourier.c
index 5596e7a..c3bd58b 100644
--- a/fourier.c
+++ b/fourier.c
@@ -34,25 +34,15 @@ static double thefunction(double x,
 */
 void DoFourier(void)
 {
-FourierStruct *locfourierstruct;        /* Local fourier struct */
+FourierStruct *locfourierstruct=&global_fourierstruct;        /* Local fourier struct */
 double *abase = NULL;               /* Base of A[] coefficients array */
 double *bbase = NULL;               /* Base of B[] coefficients array */
 unsigned long accumtime;        /* Accumulated time in ticks */
 double iterations;              /* # of iterations */
-char *context;             /* Error context string pointer */
+char *context = "FPU:Transcendental";             /* Error context string pointer */
 int systemerror;                /* For error code */
 
 /*
-** Link to global structure
-*/
-locfourierstruct=&global_fourierstruct;
-
-/*
-** Set error context string
-*/
-context="FPU:Transcendental";
-
-/*
 ** See if we need to do self-adjustment code.
 */
 if(locfourierstruct->adjust==0)
@@ -84,8 +74,6 @@ if(locfourierstruct->adjust==0)
 		/*
 		** Make bigger arrays and try again.
 		*/
-		FreeMemory((void *)abase,&systemerror);
-		FreeMemory((void *)bbase,&systemerror);
 		locfourierstruct->arraysize+=50L;
 	}
 }