X-Git-Url: https://git.llucax.com/z.facultad/75.06/emufs.git/blobdiff_plain/0e4db6997a0ac80650f3ec37ba58f7e9a8083147..b004e49297244d2d3ebdd4c9adb91031cf045e10:/emufs_gui/facturas.c

diff --git a/emufs_gui/facturas.c b/emufs_gui/facturas.c
index b9b798a..00b5276 100644
--- a/emufs_gui/facturas.c
+++ b/emufs_gui/facturas.c
@@ -281,10 +281,16 @@ t_LstFacturas *fact_cargar(const char *filename, int tipo, int tam_bloque)
 
 int fact_liberar(t_LstFacturas *l)
 {
+	t_Reg_Factura *del;
 	if (l == NULL) l = lst_facturas;
 	if (l == NULL) return 1;
 
 	emufs_destruir(l->fp);
+	while (l->primero) {
+		del = l->primero;
+		l->primero = l->primero->sig;
+		free(del);
+	}
 	free(l);
 
 	lst_facturas = NULL;