From: Ricardo Markiewicz <gazer.arg@gmail.com>
Date: Wed, 7 Apr 2004 04:55:12 +0000 (+0000)
Subject:  * BUGFIX : corrijo desplazamiento en borrar_registro
X-Git-Tag: svn_import_r684~614
X-Git-Url: https://git.llucax.com/z.facultad/75.06/emufs.git/commitdiff_plain/b34b49273c929fcf21d7dcbd8895225cc126d7cf

 * BUGFIX : corrijo desplazamiento en borrar_registro
---

diff --git a/tipo3/param_cte.c b/tipo3/param_cte.c
index a4d60c4..680a537 100644
--- a/tipo3/param_cte.c
+++ b/tipo3/param_cte.c
@@ -400,6 +400,7 @@ int borrar_registro(EMUFS *emu, int ID, int tam_reg)
 		if ( reg_b.id_reg == ID )
 			break;
 	}
+	fseek(f_block_reg, -sizeof(BLOCK_REG_T), SEEK_CUR);
 	/* Estoy parado sobre el punto id/registro que debo borrar */
 	printf("registro borrado= %ld   en bloque = %d\n",reg_b.id_reg,reg_b.block);
 	/*justifico en archivo a la izquieda*/
@@ -431,10 +432,10 @@ int borrar_registro(EMUFS *emu, int ID, int tam_reg)
 		}
 
 	}
-	/*trunco el ultimo registro del archivo
+	/*trunco el ultimo registro del archiv*/
 	fseek(f_block_reg,0,SEEK_END);
 	truncate(name_f_block_reg,ftell(f_block_reg)-sizeof(BLOCK_REG_T));
-	*/
+
 	fclose(f_block_reg);
 
 	free(bloque);