36 #define PFVM(pf)	((pf)->data.data.vm)
54 	Vmalloc_t*	vm;	/* region alloc from 		*/  member
76 static Pfobj_t* pfsearch(Vmalloc_t* vm, const char* file, int line)  in pfsearch()  argument
78 static Pfobj_t* pfsearch(vm, file, line)  in pfsearch()
79 Vmalloc_t*	vm;	/* region allocating from			*/  in pfsearch()
101 	h = line + (((Vmulong_t)vm)>>4);
106 		if(PFLINE(pf) == line && PFVM(pf) == vm && strcmp(PFFILE(pf),file) == 0)
137 			if(vm >= PFVM(pfvm))
139 		if(!pfvm || PFVM(pfvm) > vm)
153 			PFVM(pfvm) = vm;
165 		PFVM(pf) = vm;
182 static void pfclose(Vmalloc_t* vm)  in pfclose()  argument
184 static void pfclose(vm)  in pfclose()
185 Vmalloc_t*	vm;  in pfclose()
196 			if(PFLINE(pf) >= 0 && PFVM(pf) == vm)
210 static void pfsetinfo(Vmalloc_t* vm, Vmuchar_t* data, size_t size, const char* file, int line)  in pfsetinfo()  argument
212 static void pfsetinfo(vm, data, size, file, line)  in pfsetinfo()
213 Vmalloc_t*	vm;  in pfsetinfo()
231 	if((pf = pfsearch(vm,file,line)) )
354 int vmprofile(Vmalloc_t* vm, int fd)  in vmprofile()  argument
356 int vmprofile(vm, fd)  in vmprofile()
357 Vmalloc_t*	vm;  in vmprofile()
383 			if(PFLINE(pf) < 0  || (vm && vm != PFVM(pf)) )
412 	{	if(vm && PFVM(pf) != vm)
464 static Void_t* pfalloc(Vmalloc_t* vm, size_t size)  in pfalloc()  argument
466 static Void_t* pfalloc(vm, size)  in pfalloc()
467 Vmalloc_t*	vm;  in pfalloc()
476 	reg Vmdata_t*		vd = vm->data;
478 	VMFLF(vm,file,line,func);
490 	if(!(data = KPVALLOC(vm,s,(*(Vmbest->allocf))) ) )
493 	pfsetinfo(vm,(Vmuchar_t*)data,size,file,line);
496 	{	vm->file = file; vm->line = line; vm->func = func;
497 		(*_Vmtrace)(vm,NIL(Vmuchar_t*),(Vmuchar_t*)data,size,0);
501 	ANNOUNCE(local, vm, VM_ALLOC, (Void_t*)data, vm->disc);
507 static int pffree(Vmalloc_t* vm, Void_t* data)  in pffree()  argument
509 static int pffree(vm, data)  in pffree()
510 Vmalloc_t*	vm;  in pffree()
519 	reg Vmdata_t*		vd = vm->data;
521 	VMFLF(vm,file,line,func);
536 	if(KPVADDR(vm,data,Vmbest->addrf) != 0 )
537 	{	if(vm->disc->exceptf)
538 			(void)(*vm->disc->exceptf)(vm,VM_BADADDR,data,vm->disc);
555 	{	vm->file = file; vm->line = line; vm->func = func;
556 		(*_Vmtrace)(vm,(Vmuchar_t*)data,NIL(Vmuchar_t*),s,0);
559 	rv = KPVFREE((vm), (Void_t*)data, (*Vmbest->freef));
561         ANNOUNCE(local, vm, VM_FREE, data, vm->disc);
567 static Void_t* pfresize(Vmalloc_t* vm, Void_t* data, size_t size, int type)  in pfresize()  argument
569 static Void_t* pfresize(vm, data, size, type)  in pfresize()
570 Vmalloc_t*	vm;  in pfresize()
584 	reg Vmdata_t*		vd = vm->data;
589 		addr = pfalloc(vm,size);
593 	{	(void)pffree(vm,data);
598 	VMFLF(vm,file,line,func);
608 	if(KPVADDR(vm,data,Vmbest->addrf) != 0 )
609 	{	if(vm->disc->exceptf)
610 			(void)(*vm->disc->exceptf)(vm,VM_BADADDR,data,vm->disc);
620 	if((addr = KPVRESIZE(vm,data,news,(type&~VM_RSZERO),Vmbest->resizef)) )
627 			pfsetinfo(vm,(Vmuchar_t*)addr,size,file,line);
631 		{	vm->file = file; vm->line = line; vm->func = func;
632 			(*_Vmtrace)(vm,(Vmuchar_t*)data,(Vmuchar_t*)addr,size,0);
643 		pfsetinfo(vm,(Vmuchar_t*)data,s,file,line);
647 	ANNOUNCE(local, vm, VM_RESIZE, (Void_t*)addr, vm->disc);
659 static long pfsize(Vmalloc_t* vm, Void_t* addr)  in pfsize()  argument
661 static long pfsize(vm, addr)  in pfsize()
662 Vmalloc_t*	vm;  in pfsize()
666 	return (*Vmbest->addrf)(vm,addr) != 0 ? -1L : (long)PFSIZE(addr);
670 static long pfaddr(Vmalloc_t* vm, Void_t* addr)  in pfaddr()  argument
672 static long pfaddr(vm, addr)  in pfaddr()
673 Vmalloc_t*	vm;  in pfaddr()
677 	return (*Vmbest->addrf)(vm,addr);
681 static int pfcompact(Vmalloc_t* vm)  in pfcompact()  argument
683 static int pfcompact(vm)  in pfcompact()
684 Vmalloc_t*	vm;  in pfcompact()
687 	return (*Vmbest->compactf)(vm);
691 static Void_t* pfalign(Vmalloc_t* vm, size_t size, size_t align)  in pfalign()  argument
693 static Void_t* pfalign(vm, size, align)  in pfalign()
694 Vmalloc_t*	vm;  in pfalign()
704 	reg Vmdata_t*		vd = vm->data;
706 	VMFLF(vm,file,line,func);
719 	if(!(data = KPVALIGN(vm,s,align,Vmbest->alignf)) )
722 	pfsetinfo(vm,(Vmuchar_t*)data,size,file,line);
725 	{	vm->file = file; vm->line = line; vm->func = func;
726 		(*_Vmtrace)(vm,NIL(Vmuchar_t*),(Vmuchar_t*)data,size,align);
730 	ANNOUNCE(local, vm, VM_ALLOC, data, vm->disc);