X-Git-Url: https://pd.if.org/git/?p=pdclib;a=blobdiff_plain;f=functions%2Fstdio%2Ffclose.c;h=5c1e4d44d96c0b44e44a990468f25b32c3159769;hp=2b686946c2f55ed9f5d594cec18b579dbccfb7a9;hb=e34c756b945fd7970875fd42e81e636fe5dbd247;hpb=f0f7e907e0a8e1fd021b8e66e4ba37149d5bf24a

diff --git a/functions/stdio/fclose.c b/functions/stdio/fclose.c
index 2b68694..5c1e4d4 100644
--- a/functions/stdio/fclose.c
+++ b/functions/stdio/fclose.c
@@ -49,8 +49,10 @@ int fclose( struct _PDCLIB_file_t * stream )
                 remove( stream->filename );
             }
             /* Free stream */
-            free( stream );
-
+            if ( ! stream->status & _PDCLIB_STATIC )
+            {
+                free( stream );
+            }
             return 0;
         }
         previous = current;