1*b30d1939SAndy Fiddaman /*********************************************************************** 2*b30d1939SAndy Fiddaman * * 3*b30d1939SAndy Fiddaman * This software is part of the ast package * 4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2011 AT&T Intellectual Property * 5*b30d1939SAndy Fiddaman * and is licensed under the * 6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 * 7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property * 8*b30d1939SAndy Fiddaman * * 9*b30d1939SAndy Fiddaman * A copy of the License is available at * 10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html * 11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) * 12*b30d1939SAndy Fiddaman * * 13*b30d1939SAndy Fiddaman * Information and Software Systems Research * 14*b30d1939SAndy Fiddaman * AT&T Research * 15*b30d1939SAndy Fiddaman * Florham Park NJ * 16*b30d1939SAndy Fiddaman * * 17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> * 18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> * 19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> * 20*b30d1939SAndy Fiddaman * * 21*b30d1939SAndy Fiddaman ***********************************************************************/ 22*b30d1939SAndy Fiddaman #if defined(_UWIN) && defined(_BLD_ast) 23*b30d1939SAndy Fiddaman _STUB_vmclear()24*b30d1939SAndy Fiddamanvoid _STUB_vmclear(){} 25*b30d1939SAndy Fiddaman 26*b30d1939SAndy Fiddaman #else 27*b30d1939SAndy Fiddaman 28*b30d1939SAndy Fiddaman #include "vmhdr.h" 29*b30d1939SAndy Fiddaman 30*b30d1939SAndy Fiddaman /* Clear out all allocated space. 31*b30d1939SAndy Fiddaman ** 32*b30d1939SAndy Fiddaman ** Written by Kiem-Phong Vo, kpv@research.att.com, 01/16/94. 33*b30d1939SAndy Fiddaman */ 34*b30d1939SAndy Fiddaman #if __STD_C vmclear(Vmalloc_t * vm)35*b30d1939SAndy Fiddamanint vmclear(Vmalloc_t* vm) 36*b30d1939SAndy Fiddaman #else 37*b30d1939SAndy Fiddaman int vmclear(vm) 38*b30d1939SAndy Fiddaman Vmalloc_t* vm; 39*b30d1939SAndy Fiddaman #endif 40*b30d1939SAndy Fiddaman { 41*b30d1939SAndy Fiddaman Seg_t *seg, *next; 42*b30d1939SAndy Fiddaman Block_t *tp; 43*b30d1939SAndy Fiddaman size_t size, s; 44*b30d1939SAndy Fiddaman Vmdata_t *vd = vm->data; 45*b30d1939SAndy Fiddaman 46*b30d1939SAndy Fiddaman SETLOCK(vm, 0); 47*b30d1939SAndy Fiddaman 48*b30d1939SAndy Fiddaman vd->free = vd->wild = NIL(Block_t*); 49*b30d1939SAndy Fiddaman vd->pool = 0; 50*b30d1939SAndy Fiddaman 51*b30d1939SAndy Fiddaman if(vd->mode&(VM_MTBEST|VM_MTDEBUG|VM_MTPROFILE) ) 52*b30d1939SAndy Fiddaman { vd->root = NIL(Block_t*); 53*b30d1939SAndy Fiddaman for(s = 0; s < S_TINY; ++s) 54*b30d1939SAndy Fiddaman TINY(vd)[s] = NIL(Block_t*); 55*b30d1939SAndy Fiddaman for(s = 0; s <= S_CACHE; ++s) 56*b30d1939SAndy Fiddaman CACHE(vd)[s] = NIL(Block_t*); 57*b30d1939SAndy Fiddaman } 58*b30d1939SAndy Fiddaman 59*b30d1939SAndy Fiddaman for(seg = vd->seg; seg; seg = next) 60*b30d1939SAndy Fiddaman { next = seg->next; 61*b30d1939SAndy Fiddaman 62*b30d1939SAndy Fiddaman tp = SEGBLOCK(seg); 63*b30d1939SAndy Fiddaman size = seg->baddr - ((Vmuchar_t*)tp) - 2*sizeof(Head_t); 64*b30d1939SAndy Fiddaman 65*b30d1939SAndy Fiddaman SEG(tp) = seg; 66*b30d1939SAndy Fiddaman SIZE(tp) = size; 67*b30d1939SAndy Fiddaman if((vd->mode&(VM_MTLAST|VM_MTPOOL)) ) 68*b30d1939SAndy Fiddaman seg->free = tp; 69*b30d1939SAndy Fiddaman else 70*b30d1939SAndy Fiddaman { SIZE(tp) |= BUSY|JUNK; 71*b30d1939SAndy Fiddaman LINK(tp) = CACHE(vd)[C_INDEX(SIZE(tp))]; 72*b30d1939SAndy Fiddaman CACHE(vd)[C_INDEX(SIZE(tp))] = tp; 73*b30d1939SAndy Fiddaman } 74*b30d1939SAndy Fiddaman 75*b30d1939SAndy Fiddaman tp = BLOCK(seg->baddr); 76*b30d1939SAndy Fiddaman SEG(tp) = seg; 77*b30d1939SAndy Fiddaman SIZE(tp) = BUSY; 78*b30d1939SAndy Fiddaman } 79*b30d1939SAndy Fiddaman 80*b30d1939SAndy Fiddaman CLRLOCK(vm, 0); 81*b30d1939SAndy Fiddaman 82*b30d1939SAndy Fiddaman return 0; 83*b30d1939SAndy Fiddaman } 84*b30d1939SAndy Fiddaman 85*b30d1939SAndy Fiddaman #endif 86