X-Git-Url: https://git.llucax.com/z.facultad/75.06/emufs.git/blobdiff_plain/7cd2e930f9665432a3bfa725b90bf3c0a3cb5617..92aca5d432abb85476f6c100fb55190cd5947a00:/tipo3/emufs.c

diff --git a/tipo3/emufs.c b/tipo3/emufs.c
index 4d74097..ae302fd 100644
--- a/tipo3/emufs.c
+++ b/tipo3/emufs.c
@@ -7,6 +7,8 @@
 #define EXT_TIPO3_DISP ".fsc"
 #define EXT_TIPO3_IDS ".ids"
 
+char *str_dup(const char *s);
+
 char *str_dup(const char *s)
 {
 	char *tmp;
@@ -85,6 +87,8 @@ EMUFS *emufs_abrir(const char *filename)
 
 	strcpy(name, filename);
 	strcat(name, EXT_TIPO3_DATA);
+
+	/* Trato de determinar el tipo de archivo */
 	fp = fopen(name, "r");
 	if (fp == NULL) return NULL;
 	fread(&tipo, sizeof(char), 1, fp);
@@ -94,7 +98,10 @@ EMUFS *emufs_abrir(const char *filename)
 	}
 	
 	tmp = (EMUFS *)malloc(sizeof(EMUFS));
-	if (tmp == NULL) return NULL;
+	if (tmp == NULL) {
+		fclose(fp);
+		return NULL;
+	}
 
 	switch (tipo) {
 		case T1: