Fix some valgrind issues
[scilab.git] / scilab / modules / fftw / src / c / fftwlibname.c
index aa63439..0429d57 100644 (file)
@@ -21,22 +21,34 @@ char *fftwlibname = NULL;
 /*--------------------------------------------------------------------------*/
 void setfftwlibname(char *libname)
 {
-  if (libname)
+    if (libname)
     {
-      if (fftwlibname) {FREE(fftwlibname);fftwlibname = NULL;}
-      fftwlibname = strdup(libname);
+        if (fftwlibname)
+        {
+            FREE(fftwlibname);
+            fftwlibname = NULL;
+        }
+        fftwlibname = strdup(libname);
     }
 }
 /*--------------------------------------------------------------------------*/
 char *getfftwlibname(void)
 {
-  char *name = NULL;
+    char *name = NULL;
 
-  if (fftwlibname)
+    if (fftwlibname)
     {
-      name = strdup(fftwlibname);
+        name = strdup(fftwlibname);
     }
 
-  return name;
+    return name;
+}
+/*--------------------------------------------------------------------------*/
+void freefftwlibname(void)
+{
+    if (fftwlibname)
+    {
+        FREE(fftwlibname);
+    }
 }
 /*--------------------------------------------------------------------------*/