no anda perfecto pero ahora actualiza mucho mejor el fsc

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

diff --git a/emufs/tipo1.c b/emufs/tipo1.c
index a8b5102fdb784c2de1a571430616ee91f821369a..e7033268ca151c059c6cf175bb3079fcadbec8f4 100644 (file)
--- a/emufs/tipo1.c
+++ b/emufs/tipo1.c
@@ -240,10 +240,12 @@ void* emufs_tipo1_leer_bloque(EMUFS* efs, EMUFS_BLOCK_ID block_id, int* err)
        if (block == NULL) {
                PERR("No hay memoria");
                *err = EMUFS_ERROR_OUT_OF_MEMORY;
+               fclose(file);
                return NULL;
        }
        if (fread(block, efs->tam_bloque, 1, file) != 1) {
                free(block);
+               fclose(file);
                PERR("Error al leer bloque");
                *err = EMUFS_ERROR_FILE_READ;
                return NULL;