14887Schin /***********************************************************************
24887Schin * *
34887Schin * This software is part of the ast package *
4*12068SRoger.Faulkner@Oracle.COM * Copyright (c) 1985-2010 AT&T Intellectual Property *
54887Schin * and is licensed under the *
64887Schin * Common Public License, Version 1.0 *
78462SApril.Chin@Sun.COM * by AT&T Intellectual Property *
84887Schin * *
94887Schin * A copy of the License is available at *
104887Schin * http://www.opensource.org/licenses/cpl1.0.txt *
114887Schin * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
124887Schin * *
134887Schin * Information and Software Systems Research *
144887Schin * AT&T Research *
154887Schin * Florham Park NJ *
164887Schin * *
174887Schin * Glenn Fowler <gsf@research.att.com> *
184887Schin * David Korn <dgk@research.att.com> *
194887Schin * Phong Vo <kpv@research.att.com> *
204887Schin * *
214887Schin ***********************************************************************/
224887Schin #if defined(_UWIN) && defined(_BLD_ast)
234887Schin
_STUB_vmwalk()244887Schin void _STUB_vmwalk(){}
254887Schin
264887Schin #else
274887Schin
284887Schin #include "vmhdr.h"
294887Schin
304887Schin /* Walks all segments created in region(s)
314887Schin **
324887Schin ** Written by Kiem-Phong Vo, kpv@research.att.com (02/08/96)
334887Schin */
344887Schin
354887Schin #if __STD_C
vmwalk(Vmalloc_t * vm,int (* segf)(Vmalloc_t *,Void_t *,size_t,Vmdisc_t *,Void_t *),Void_t * handle)36*12068SRoger.Faulkner@Oracle.COM int vmwalk(Vmalloc_t* vm, int(*segf)(Vmalloc_t*, Void_t*, size_t, Vmdisc_t*, Void_t*), Void_t* handle )
374887Schin #else
38*12068SRoger.Faulkner@Oracle.COM int vmwalk(vm, segf, handle)
394887Schin Vmalloc_t* vm;
404887Schin int(* segf)(/* Vmalloc_t*, Void_t*, size_t, Vmdisc_t* */);
41*12068SRoger.Faulkner@Oracle.COM Void_t* handle;
424887Schin #endif
434887Schin {
444887Schin reg Seg_t* seg;
454887Schin reg int rv;
464887Schin
474887Schin if(!vm)
484887Schin { for(vm = Vmheap; vm; vm = vm->next)
494887Schin { if(!(vm->data->mode&VM_TRUST) && ISLOCK(vm->data,0) )
504887Schin continue;
514887Schin
524887Schin SETLOCK(vm->data,0);
534887Schin for(seg = vm->data->seg; seg; seg = seg->next)
54*12068SRoger.Faulkner@Oracle.COM { rv = (*segf)(vm, seg->addr, seg->extent, vm->disc, handle);
554887Schin if(rv < 0)
564887Schin return rv;
574887Schin }
584887Schin CLRLOCK(vm->data,0);
594887Schin }
604887Schin }
614887Schin else
624887Schin { if(!(vm->data->mode&VM_TRUST) && ISLOCK(vm->data,0) )
634887Schin return -1;
644887Schin
654887Schin SETLOCK(vm->data,0);
664887Schin for(seg = vm->data->seg; seg; seg = seg->next)
67*12068SRoger.Faulkner@Oracle.COM { rv = (*segf)(vm, seg->addr, seg->extent, vm->disc, handle);
684887Schin if(rv < 0)
694887Schin return rv;
704887Schin }
714887Schin CLRLOCK(vm->data,0);
724887Schin }
734887Schin
744887Schin return 0;
754887Schin }
764887Schin
774887Schin #endif
78