1N/A/***********************************************************************
1N/A* *
1N/A* This software is part of the ast package *
1N/A* Copyright (c) 1985-2011 AT&T Intellectual Property *
1N/A* and is licensed under the *
1N/A* Common Public License, Version 1.0 *
1N/A* by AT&T Intellectual Property *
1N/A* *
1N/A* A copy of the License is available at *
1N/A* http://www.opensource.org/licenses/cpl1.0.txt *
1N/A* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
1N/A* *
1N/A* Information and Software Systems Research *
1N/A* AT&T Research *
1N/A* Florham Park NJ *
1N/A* *
1N/A* Glenn Fowler <gsf@research.att.com> *
1N/A* David Korn <dgk@research.att.com> *
1N/A* Phong Vo <kpv@research.att.com> *
1N/A* *
1N/A***********************************************************************/
1N/A#if defined(_UWIN) && defined(_BLD_ast)
1N/A
1N/Avoid _STUB_vmclear(){}
1N/A
1N/A#else
1N/A
1N/A#include "vmhdr.h"
1N/A
1N/A/* Clear out all allocated space.
1N/A**
1N/A** Written by Kiem-Phong Vo, kpv@research.att.com, 01/16/94.
1N/A*/
1N/A#if __STD_C
1N/Aint vmclear(Vmalloc_t* vm)
1N/A#else
1N/Aint vmclear(vm)
1N/AVmalloc_t* vm;
1N/A#endif
1N/A{
1N/A reg Seg_t* seg;
1N/A reg Seg_t* next;
1N/A reg Block_t* tp;
1N/A reg size_t size, s;
1N/A reg Vmdata_t* vd = vm->data;
1N/A reg int inuse;
1N/A
1N/A SETINUSE(vd, inuse);
1N/A if(!(vd->mode&VM_TRUST) )
1N/A { if(ISLOCK(vd,0))
1N/A { CLRINUSE(vd, inuse);
1N/A return -1;
1N/A }
1N/A SETLOCK(vd,0);
1N/A }
1N/A
1N/A vd->free = vd->wild = NIL(Block_t*);
1N/A vd->pool = 0;
1N/A
1N/A if(vd->mode&(VM_MTBEST|VM_MTDEBUG|VM_MTPROFILE) )
1N/A { vd->root = NIL(Block_t*);
1N/A for(s = 0; s < S_TINY; ++s)
1N/A TINY(vd)[s] = NIL(Block_t*);
1N/A for(s = 0; s <= S_CACHE; ++s)
1N/A CACHE(vd)[s] = NIL(Block_t*);
1N/A }
1N/A
1N/A for(seg = vd->seg; seg; seg = next)
1N/A { next = seg->next;
1N/A
1N/A tp = SEGBLOCK(seg);
1N/A size = seg->baddr - ((Vmuchar_t*)tp) - 2*sizeof(Head_t);
1N/A
1N/A SEG(tp) = seg;
1N/A SIZE(tp) = size;
1N/A if((vd->mode&(VM_MTLAST|VM_MTPOOL)) )
1N/A seg->free = tp;
1N/A else
1N/A { SIZE(tp) |= BUSY|JUNK;
1N/A LINK(tp) = CACHE(vd)[C_INDEX(SIZE(tp))];
1N/A CACHE(vd)[C_INDEX(SIZE(tp))] = tp;
1N/A }
1N/A
1N/A tp = BLOCK(seg->baddr);
1N/A SEG(tp) = seg;
1N/A SIZE(tp) = BUSY;
1N/A }
1N/A
1N/A CLRLOCK(vd,0);
1N/A CLRINUSE(vd, inuse);
1N/A return 0;
1N/A}
1N/A
1N/A#endif