#include "vmhdr.h"
#if __STD_C
int vmclose(Vmalloc_t* vm)
#else
int vmclose(vm)
Vmalloc_t* vm;
#endif
{
reg Seg_t *seg, *vmseg;
reg Vmemory_f memoryf;
reg Vmdata_t* vd = vm->data;
reg Vmalloc_t *v, *last;
if(vm == Vmheap)
return -1;
if(!(vd->mode&VM_TRUST) && ISLOCK(vd,0))
return -1;
if(vm->disc->exceptf &&
(*vm->disc->exceptf)(vm,VM_CLOSE,NIL(Void_t*),vm->disc) < 0)
return -1;
vd->mode &= ~VM_TRUST;
SETLOCK(vd,0);
if((vd->mode&VM_MTPROFILE) && _Vmpfclose)
(*_Vmpfclose)(vm);
for(last = Vmheap, v = last->next; v; last = v, v = v->next)
{ if(v == vm)
{ last->next = v->next;
break;
}
}
memoryf = vm->disc->memoryf;
vmseg = NIL(Seg_t*);
for(seg = vd->seg; seg; )
{ reg Seg_t* next = seg->next;
if(seg->extent != seg->size)
(void)(*memoryf)(vm,seg->addr,seg->extent,0,vm->disc);
else vmseg = seg;
seg = next;
}
CLRLOCK(vd,0);
if(vmseg)
(void)(*memoryf)(vm,vmseg->addr,vmseg->extent,0,vm->disc);
vmfree(Vmheap,vm);
return 0;
}