X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput%2Fascii.c;h=d821993e3bc8bd283b771e5a95cb7fc245195d17;hb=c53e5d60298cba39cad94ad6daa14e6038a6762c;hp=afd915262478a8c9d9bc921181c469df4b56ecca;hpb=c9c6d86621b611f04b9132400ead11681fb9df2b;p=pspp-builds.git

diff --git a/src/output/ascii.c b/src/output/ascii.c
index afd91526..d821993e 100644
--- a/src/output/ascii.c
+++ b/src/output/ascii.c
@@ -333,6 +333,8 @@ ascii_destroy (struct output_driver *driver)
   if (a->y > 0)
     ascii_close_page (a);
 
+  if (a->file != NULL)
+    fn_close (a->file_name, a->file);
   free (a->title);
   free (a->subtitle);
   free (a->file_name);
@@ -340,8 +342,6 @@ ascii_destroy (struct output_driver *driver)
   for (i = 0; i < LNS_COUNT; i++)
     free (a->box[i]);
   free (a->init);
-  if (a->file != NULL)
-    fclose (a->file);
   for (i = 0; i < a->allocated_lines; i++)
     free (a->lines[i].chars);
   free (a->lines);