flush and release buffers before closing files

SCCS-vsn: usr.bin/pascal/libpc/GETNAME.c 1.2
SCCS-vsn: usr.bin/pascal/libpc/PCLOSE.c 1.2

diff --git a/usr/src/usr.bin/pascal/libpc/GETNAME.c b/usr/src/usr.bin/pascal/libpc/GETNAME.c
index 7b6af55..eef3b64 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/GETNAME.c
+++ b/usr/src/usr.bin/pascal/libpc/GETNAME.c
@@ -77,6 +77,10 @@ GETNAME(filep, name, maxnamlen, datasize)
                        /*
                         * have a previous buffer, close associated file
                         */
+                       if (filep->fblk > PREDEF) {
+                               fflush(filep->fbuf);
+                               setbuf(filep->fbuf, NULL);
+                       }
                        fclose(filep->fbuf);
                        if (ferror(filep->fbuf)) {
                                ERROR(ECLOSE, filep->pfname);

diff --git a/usr/src/usr.bin/pascal/libpc/PCLOSE.c b/usr/src/usr.bin/pascal/libpc/PCLOSE.c
index 3bb4198..aa1c5aa 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PCLOSE.c
+++ b/usr/src/usr.bin/pascal/libpc/PCLOSE.c
@@ -15,6 +15,10 @@ PCLOSE(level)
        while(next != FILNIL && next->flev <= level) {
                if (next->fbuf != 0) {
                        if ((next->funit & FDEF) == 0) {
+                               if (next->fblk > PREDEF) {
+                                       fflush(next->fblk);
+                                       setbuf(next->fbuf, NULL);
+                               }
                                fclose(next->fbuf);
                                if (ferror(next->fbuf)) {
                                        ERROR(ECLOSE, next->pfname);