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_vmdisc()244887Schinvoid _STUB_vmdisc(){} 254887Schin 264887Schin #else 274887Schin 284887Schin #include "vmhdr.h" 294887Schin 304887Schin /* Change the discipline for a region. The old discipline 314887Schin ** is returned. If the new discipline is NIL then the 324887Schin ** discipline is not changed. 334887Schin ** 344887Schin ** Written by Kiem-Phong Vo, kpv@research.att.com, 01/16/94. 354887Schin */ 364887Schin #if __STD_C vmdisc(Vmalloc_t * vm,Vmdisc_t * disc)374887SchinVmdisc_t* vmdisc(Vmalloc_t* vm, Vmdisc_t* disc) 384887Schin #else 394887Schin Vmdisc_t* vmdisc(vm, disc) 404887Schin Vmalloc_t* vm; 414887Schin Vmdisc_t* disc; 424887Schin #endif 434887Schin { 444887Schin Vmdisc_t* old = vm->disc; 454887Schin 464887Schin if(disc) 474887Schin { if(disc->memoryf != old->memoryf) 484887Schin return NIL(Vmdisc_t*); 494887Schin if(old->exceptf && 504887Schin (*old->exceptf)(vm,VM_DISC,(Void_t*)disc,old) != 0 ) 514887Schin return NIL(Vmdisc_t*); 524887Schin vm->disc = disc; 534887Schin } 544887Schin return old; 554887Schin } 564887Schin 574887Schin #endif 58