Imported Upstream version 93u+upstream

1 files changed, 91 insertions, 0 deletions

diff --git a/src/lib/libast/vmalloc/vmclose.c b/src/lib/libast/vmalloc/vmclose.c
new file mode 100644
index 0000000..65a3a7e
--- /dev/null
+++ b/src/lib/libast/vmalloc/vmclose.c
@@ -0,0 +1,91 @@
+/***********************************************************************
+*                                                                      *
+*               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 <gsf@research.att.com>                  *
+*                  David Korn <dgk@research.att.com>                   *
+*                   Phong Vo <kpv@research.att.com>                    *
+*                                                                      *
+***********************************************************************/
+#if defined(_UWIN) && defined(_BLD_ast)
+
+void _STUB_vmclose(){}
+
+#else
+
+#include	"vmhdr.h"
+
+/*	Close down a region.
+**
+**	Written by Kiem-Phong Vo, kpv@research.att.com, 01/16/94.
+*/
+#if __STD_C
+int vmclose(Vmalloc_t* vm)
+#else
+int vmclose(vm)
+Vmalloc_t*	vm;
+#endif
+{
+	Seg_t		*seg, *vmseg, *next;
+	Vmalloc_t	*v, *last, vmp;
+	Vmdata_t*	vd = vm->data;
+	Vmdisc_t*	disc = vm->disc;
+	int		mode, rv = 0;
+
+	if(vm == Vmheap) /* the heap is never freed */
+		return -1;
+
+	if(vm->disc->exceptf && /* announcing closing event */
+	   (rv = (*vm->disc->exceptf)(vm,VM_CLOSE,(Void_t*)1,vm->disc)) < 0 )
+		return -1;
+
+	mode = vd->mode; /* remember this in case it gets destroyed below */
+
+	if((mode&VM_MTPROFILE) && _Vmpfclose)
+		(*_Vmpfclose)(vm);
+
+	/* remove from linked list of regions */
+	_vmlock(NIL(Vmalloc_t*), 1);
+	for(last = Vmheap, v = last->next; v; last = v, v = v->next)
+	{	if(v == vm)
+		{	last->next = v->next;
+			break;
+		}
+	}
+	_vmlock(NIL(Vmalloc_t*), 0);
+
+	if(rv == 0) /* deallocate memory obtained from the system */
+	{	/* lock-free because alzheimer can cause deadlocks :) */
+		vmseg = NIL(Seg_t*);
+		for(seg = vd->seg; seg; seg = next)
+		{	next = seg->next;
+			if(seg->extent == seg->size) /* root segment */
+				vmseg = seg; /* don't free this yet */
+			else	(*disc->memoryf)(vm,seg->addr,seg->extent,0,disc);
+		}
+		if(vmseg) /* now safe to free root segment */
+			(*disc->memoryf)(vm,vmseg->addr,vmseg->extent,0,disc);
+	}
+
+	if(disc->exceptf) /* finalizing closing */
+		(void)(*disc->exceptf)(vm, VM_ENDCLOSE, (Void_t*)0, disc);
+
+	if(!(mode & VM_MEMORYF) )
+		vmfree(Vmheap,vm);
+
+	return 0;
+}
+
+#endif