/* si el bloque es mas chico que el registro no hace falta compactar */
/*if( emu->tam_reg-sizeof(EMUFS_REG_ID) > emu->tam_bloque ) return; */
/* si el bloque es mas chico que el registro no hace falta compactar */
/*if( emu->tam_reg-sizeof(EMUFS_REG_ID) > emu->tam_bloque ) return; */
*/
block_id = emufs_fsc_buscar_lugar(emu, emu->tam_bloque, &fs);
size = sizeof(EMUFS_Tipo)+sizeof(EMUFS_REG_SIZE)+sizeof(EMUFS_BLOCK_SIZE)+block_id*emu->tam_bloque;
*/
block_id = emufs_fsc_buscar_lugar(emu, emu->tam_bloque, &fs);
size = sizeof(EMUFS_Tipo)+sizeof(EMUFS_REG_SIZE)+sizeof(EMUFS_BLOCK_SIZE)+block_id*emu->tam_bloque;
if (truncate(name, size)!=0)
PERR("NO TRUNQUE NADA");
/*hay que truncar el fsc!!!*/
if (truncate(name, size)!=0)
PERR("NO TRUNQUE NADA");
/*hay que truncar el fsc!!!*/
if (emufs_fsc_truncate(emu, block_id)!= 0)
PERR("NO TURNQUE EL FSC");
free(reg);
if (emufs_fsc_truncate(emu, block_id)!= 0)
PERR("NO TURNQUE EL FSC");
free(reg);