From 3950ffe2a485479f6561c27364d3d7df5a21d124 Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Sun, 24 Jun 2012 22:28:35 +0000 Subject: Imported Upstream version 93u+ --- src/lib/libast/vmalloc/vmdisc.c | 55 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 55 insertions(+) create mode 100644 src/lib/libast/vmalloc/vmdisc.c (limited to 'src/lib/libast/vmalloc/vmdisc.c') diff --git a/src/lib/libast/vmalloc/vmdisc.c b/src/lib/libast/vmalloc/vmdisc.c new file mode 100644 index 0000000..3f4efbf --- /dev/null +++ b/src/lib/libast/vmalloc/vmdisc.c @@ -0,0 +1,55 @@ +/*********************************************************************** +* * +* This software is part of the ast package * +* Copyright (c) 1985-2011 AT&T Intellectual Property * +* and is licensed under the * +* Eclipse Public License, Version 1.0 * +* by AT&T Intellectual Property * +* * +* A copy of the License is available at * +* http://www.eclipse.org/org/documents/epl-v10.html * +* (with md5 checksum b35adb5213ca9657e911e9befb180842) * +* * +* Information and Software Systems Research * +* AT&T Research * +* Florham Park NJ * +* * +* Glenn Fowler * +* David Korn * +* Phong Vo * +* * +***********************************************************************/ +#if defined(_UWIN) && defined(_BLD_ast) + +void _STUB_vmdisc(){} + +#else + +#include "vmhdr.h" + +/* Change the discipline for a region. The old discipline +** is returned. If the new discipline is NULL then the +** discipline is not changed. +** +** Written by Kiem-Phong Vo, kpv@research.att.com, 01/16/94. +*/ +#if __STD_C +Vmdisc_t* vmdisc(Vmalloc_t* vm, Vmdisc_t* disc) +#else +Vmdisc_t* vmdisc(vm, disc) +Vmalloc_t* vm; +Vmdisc_t* disc; +#endif +{ + Vmdisc_t* old = vm->disc; + + if(disc) + { if(old->exceptf && + (*old->exceptf)(vm,VM_DISC,(Void_t*)disc,old) != 0 ) + return NIL(Vmdisc_t*); + vm->disc = disc; + } + return old; +} + +#endif -- cgit v1.2.3