I checked more the XH_uninit function and saw that most of 
time is wasted doing

if (back) {
for (i=0;i<back_max;i++){
    back_delete(&opt,&cahce,back,i);
}
freet(back);
}

Is this really necessary? How could I optimize this delete?thank you