X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/5dd6771b28c257af405d7248639ed0e3bcdce38b..db744b85cee9eccd9840823d06fa8ea1ff124993:/sbr/fmt_new.c

diff --git a/sbr/fmt_new.c b/sbr/fmt_new.c
index 44a18b37..078831a5 100644
--- a/sbr/fmt_new.c
+++ b/sbr/fmt_new.c
@@ -28,7 +28,7 @@ char *
 new_fs (char *form, char *format, char *default_fs)
 {
     struct stat st;
-    register FILE *fp;
+    FILE *fp;
 
     if (formats)
 	free (formats);
@@ -58,6 +58,13 @@ new_fs (char *form, char *format, char *default_fs)
 }
 
 
+void
+free_fs (){
+    free (formats);
+    formats = 0;
+}
+
+
 /*
  * Expand escapes in format strings
  */