strtod: Add safety check.

[pspp] / lib / at-func2.c

diff --git a/lib/at-func2.c b/lib/at-func2.c
index 078d79bfbab41632e41eb382f7cf1ccd0808db75..f19d2ed478a79b0614659e7695115a6562a8c720 100644 (file)
--- a/lib/at-func2.c
+++ b/lib/at-func2.c
@@ -110,7 +110,7 @@ at_func2 (int fd1, char const *file1,
               }
           }
         else if (proc_file1 != proc_buf1 && proc_file1 != file1)
-          free (proc_buf1);
+          free (proc_file1);
       }
   }