* BUGFIX : corrijo desplazamiento en borrar_registro

diff --git a/tipo3/param_cte.c b/tipo3/param_cte.c
index a4d60c403bfeeae853a13a7988440a587ddcdd7f..680a5372cc67ce80c099f52c5e42579358794bed 100644 (file)
--- 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);