* Me preparo para otro tamaño de bloque

[z.facultad/75.06/emufs.git] / emufs / tipo2.c

diff --git a/emufs/tipo2.c b/emufs/tipo2.c
index 1858c75f30b12b4e75152d486aa9387f1aa7c19e..b2724e931d88667126b1ed8148322e07f97074d4 100644 (file)
--- a/emufs/tipo2.c
+++ b/emufs/tipo2.c
@@ -318,6 +318,7 @@ void emufs_tipo2_compactar(EMUFS *efs)
        /* Obtengo la cantidad de gaps */
        if ( (fscfile = fopen(name_ffsc,"rb")) == NULL){
                        PERR("No se pudo abrir el archivo");
+                       fclose(datfile);
                        return;
        }
        fseek(fscfile,0,SEEK_END);