OpenSolaris Launch

6 files changed, 541 insertions, 0 deletions

diff --git a/usr/src/lib/libmapmalloc/common/calloc.c b/usr/src/lib/libmapmalloc/common/calloc.c
new file mode 100644
index 0000000000..762d03d2b8
--- /dev/null
+++ b/usr/src/lib/libmapmalloc/common/calloc.c
@@ -0,0 +1,54 @@
+/*
+ * CDDL HEADER START
+ *
+ * The contents of this file are subject to the terms of the
+ * Common Development and Distribution License, Version 1.0 only
+ * (the "License").  You may not use this file except in compliance
+ * with the License.
+ *
+ * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+ * or http://www.opensolaris.org/os/licensing.
+ * See the License for the specific language governing permissions
+ * and limitations under the License.
+ *
+ * When distributing Covered Code, include this CDDL HEADER in each
+ * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+ * If applicable, add the following below this CDDL HEADER, with the
+ * fields enclosed by brackets "[]" replaced with your own identifying
+ * information: Portions Copyright [yyyy] [name of copyright owner]
+ *
+ * CDDL HEADER END
+ */
+/*
+ * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
+ * Use is subject to license terms.
+ */
+
+#pragma ident	"%Z%%M%	%I%	%E% SMI"
+
+#include <sys/types.h>
+#include <stdlib.h>
+#include <string.h>
+/*
+ * calloc - allocate and clear memory block
+ */
+
+void *
+calloc(size_t num, size_t size)
+{
+	void *mp;
+
+	num *= size;
+	mp = malloc(num);
+	if (mp == NULL)
+		return (NULL);
+	(void) memset(mp, 0, num);
+	return (mp);
+}
+
+/*ARGSUSED*/
+void
+cfree(void *p, size_t num, size_t size)
+{
+	free(p);
+}
diff --git a/usr/src/lib/libmapmalloc/common/llib-lmapmalloc b/usr/src/lib/libmapmalloc/common/llib-lmapmalloc
new file mode 100644
index 0000000000..ca5bba911e
--- /dev/null
+++ b/usr/src/lib/libmapmalloc/common/llib-lmapmalloc
@@ -0,0 +1,34 @@
+/*
+ * CDDL HEADER START
+ *
+ * The contents of this file are subject to the terms of the
+ * Common Development and Distribution License, Version 1.0 only
+ * (the "License").  You may not use this file except in compliance
+ * with the License.
+ *
+ * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+ * or http://www.opensolaris.org/os/licensing.
+ * See the License for the specific language governing permissions
+ * and limitations under the License.
+ *
+ * When distributing Covered Code, include this CDDL HEADER in each
+ * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+ * If applicable, add the following below this CDDL HEADER, with the
+ * fields enclosed by brackets "[]" replaced with your own identifying
+ * information: Portions Copyright [yyyy] [name of copyright owner]
+ *
+ * CDDL HEADER END
+ */
+/*
+ * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
+ * Use is subject to license terms.
+ */
+
+#pragma ident	"%Z%%M%	%I%	%E% SMI"
+
+/* LINTLIBRARY */
+/* PROTOLIB1 */
+
+#include <malloc.h>
+
+void cfree(void *p, size_t num, size_t size);
diff --git a/usr/src/lib/libmapmalloc/common/malloc_debug.c b/usr/src/lib/libmapmalloc/common/malloc_debug.c
new file mode 100644
index 0000000000..c8b7e602ef
--- /dev/null
+++ b/usr/src/lib/libmapmalloc/common/malloc_debug.c
@@ -0,0 +1,63 @@
+/*
+ * CDDL HEADER START
+ *
+ * The contents of this file are subject to the terms of the
+ * Common Development and Distribution License, Version 1.0 only
+ * (the "License").  You may not use this file except in compliance
+ * with the License.
+ *
+ * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+ * or http://www.opensolaris.org/os/licensing.
+ * See the License for the specific language governing permissions
+ * and limitations under the License.
+ *
+ * When distributing Covered Code, include this CDDL HEADER in each
+ * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+ * If applicable, add the following below this CDDL HEADER, with the
+ * fields enclosed by brackets "[]" replaced with your own identifying
+ * information: Portions Copyright [yyyy] [name of copyright owner]
+ *
+ * CDDL HEADER END
+ */
+/*
+ * Copyright (c) 1991, Sun Microsytems, Inc.
+ */
+
+#pragma ident	"%Z%%M%	%I%	%E% SMI"
+
+/*LINTLIBRARY*/
+#include <sys/types.h>
+
+
+/*
+ * malloc_debug(level) - empty routine
+ */
+
+/*ARGSUSED*/
+int
+malloc_debug(int level)
+{
+	return (1);
+}
+
+
+/*
+ * malloc_verify() - empty routine
+ */
+
+int
+malloc_verify(void)
+{
+	return (1);
+}
+
+
+/*
+ * mallocmap() - empty routine
+ */
+
+void
+mallocmap(void)
+{
+	;
+}
diff --git a/usr/src/lib/libmapmalloc/common/mallopt.c b/usr/src/lib/libmapmalloc/common/mallopt.c
new file mode 100644
index 0000000000..c6e24c9963
--- /dev/null
+++ b/usr/src/lib/libmapmalloc/common/mallopt.c
@@ -0,0 +1,53 @@
+/*
+ * CDDL HEADER START
+ *
+ * The contents of this file are subject to the terms of the
+ * Common Development and Distribution License, Version 1.0 only
+ * (the "License").  You may not use this file except in compliance
+ * with the License.
+ *
+ * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+ * or http://www.opensolaris.org/os/licensing.
+ * See the License for the specific language governing permissions
+ * and limitations under the License.
+ *
+ * When distributing Covered Code, include this CDDL HEADER in each
+ * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+ * If applicable, add the following below this CDDL HEADER, with the
+ * fields enclosed by brackets "[]" replaced with your own identifying
+ * information: Portions Copyright [yyyy] [name of copyright owner]
+ *
+ * CDDL HEADER END
+ */
+/*
+ * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
+ * Use is subject to license terms.
+ */
+
+#pragma ident	"%Z%%M%	%I%	%E% SMI"
+
+/*LINTLIBRARY*/
+#include <sys/types.h>
+#include <malloc.h>
+
+struct  mallinfo __mallinfo;
+
+/*
+ * mallopt -- Do nothing
+ */
+/*ARGSUSED*/
+int
+mallopt(int cmd, int value)
+{
+	return (0);
+}
+
+
+/*
+ * mallinfo -- Do nothing
+ */
+struct mallinfo
+mallinfo(void)
+{
+	return (__mallinfo);
+}
diff --git a/usr/src/lib/libmapmalloc/common/textmem.c b/usr/src/lib/libmapmalloc/common/textmem.c
new file mode 100644
index 0000000000..eed2ca0478
--- /dev/null
+++ b/usr/src/lib/libmapmalloc/common/textmem.c
@@ -0,0 +1,282 @@
+/*
+ * CDDL HEADER START
+ *
+ * The contents of this file are subject to the terms of the
+ * Common Development and Distribution License, Version 1.0 only
+ * (the "License").  You may not use this file except in compliance
+ * with the License.
+ *
+ * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+ * or http://www.opensolaris.org/os/licensing.
+ * See the License for the specific language governing permissions
+ * and limitations under the License.
+ *
+ * When distributing Covered Code, include this CDDL HEADER in each
+ * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+ * If applicable, add the following below this CDDL HEADER, with the
+ * fields enclosed by brackets "[]" replaced with your own identifying
+ * information: Portions Copyright [yyyy] [name of copyright owner]
+ *
+ * CDDL HEADER END
+ */
+/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
+/*	  All Rights Reserved  	*/
+
+
+/*
+ * Copyright (c) 1991-1997,2000-2001 by Sun Microsystems, Inc.
+ * All rights reserved.
+ */
+
+#pragma ident	"%Z%%M%	%I%	%E% SMI"	/* SVR4/MNLS 1.1.2.1 */
+
+/*LINTLIBRARY*/
+
+#include <sys/types.h>
+
+
+/*
+ * Simplified version of malloc(), free() and realloc(), to be linked with
+ * utilities that use [s]brk() and do not define their own version of the
+ * routines.
+ *
+ * The algorithm used to get extra memory space by mmap'ing /dev/zero. This
+ * breaks if the application closes the open descriptor, so now it uses
+ * mmap's MAP_ANON feature.
+ *
+ * Each call to mmap() creates a page. The pages are linked in a list.
+ * Each page is divided in blocks. There is at least one block in a page.
+ * New memory chunks are allocated on a first-fit basis.
+ * Freed blocks are joined in larger blocks. Free pages are unmapped.
+ */
+#include <stdlib.h>
+#include <sys/types.h>
+#include <sys/mman.h>
+#include <fcntl.h>
+#include <errno.h>
+#include <unistd.h>
+#include <thread.h>
+#include <synch.h>
+#include <string.h>
+
+
+#ifdef _REENTRANT
+static mutex_t lock = DEFAULTMUTEX;
+#endif /* _REENTRANT */
+
+struct block {
+	size_t size;		/* Space available for user */
+	struct page *page;	/* Backwards reference to page */
+	int status;
+	struct block *next;
+	void *memstart[1];
+};
+
+struct page {
+	size_t size;		/* Total page size (incl. header) */
+	struct page *next;
+	struct block block[1];
+};
+
+#define	FREE	0
+#define	BUSY	1
+
+#define	HDR_BLOCK	(sizeof (struct block) - sizeof (void *))
+#define	HDR_PAGE	(sizeof (struct page) - sizeof (void *))
+#define	MINSZ		sizeof (double)
+
+/* for convenience */
+#ifndef	NULL
+#define	NULL		(0)
+#endif
+
+struct page *memstart;
+static int pagesize;
+static void defrag(struct page *);
+static void split(struct block *,  size_t);
+static void *malloc_unlocked(size_t);
+static size_t align(size_t, int);
+
+void *
+malloc(size_t size)
+{
+	void *retval;
+	(void) mutex_lock(&lock);
+	retval = malloc_unlocked(size);
+	(void) mutex_unlock(&lock);
+	return (retval);
+}
+
+
+static void *
+malloc_unlocked(size_t size)
+{
+	struct block *block;
+	struct page *page;
+
+	if (pagesize == 0)
+		pagesize = (int)sysconf(_SC_PAGESIZE);
+
+	size = align(size, MINSZ);
+
+	/*
+	 * Try to locate necessary space
+	 */
+	for (page = memstart; page; page = page->next) {
+		for (block = page->block; block; block = block->next) {
+			if (block->status == FREE && block->size >= size)
+				goto found;
+		}
+	}
+found:
+
+	/*
+	 * Need to allocate a new page
+	 */
+	if (!page) {
+		size_t totsize = size + HDR_PAGE;
+		size_t totpage = align(totsize, pagesize);
+
+		if ((page = (struct page *)mmap(0, totpage,
+		    PROT_READ|PROT_WRITE, MAP_ANON | MAP_PRIVATE, -1, 0))
+			== MAP_FAILED)
+			return (0);
+
+		page->next = memstart;
+		memstart = page;
+		page->size = totpage;
+		block = page->block;
+		block->next = 0;
+		block->status = FREE;
+		block->size = totpage - HDR_PAGE;
+		block->page = page;
+	}
+
+	split(block, size);
+
+	block->status = BUSY;
+	return (&block->memstart);
+}
+
+void *
+realloc(void *ptr, size_t size)
+{
+	struct block *block;
+	size_t osize;
+	void *newptr;
+
+	(void) mutex_lock(&lock);
+	if (ptr == NULL) {
+		newptr = malloc_unlocked(size);
+		(void) mutex_unlock(&lock);
+		return (newptr);
+	}
+	block = (struct block *)((char *)ptr - HDR_BLOCK);
+	size = align(size, MINSZ);
+	osize = block->size;
+
+	/*
+	 * Join block with next one if it is free
+	 */
+	if (block->next && block->next->status == FREE) {
+		block->size += block->next->size + HDR_BLOCK;
+		block->next = block->next->next;
+	}
+
+	if (size <= block->size) {
+		split(block, size);
+		(void) mutex_unlock(&lock);
+		return (ptr);
+	}
+
+	newptr = malloc_unlocked(size);
+	(void) memcpy(newptr, ptr, osize);
+	block->status = FREE;
+	defrag(block->page);
+	(void) mutex_unlock(&lock);
+	return (newptr);
+}
+
+void
+free(void *ptr)
+{
+	struct block *block;
+
+	(void) mutex_lock(&lock);
+	if (ptr == NULL) {
+		(void) mutex_unlock(&lock);
+		return;
+	}
+	block = (struct block *)((char *)ptr - HDR_BLOCK);
+	block->status = FREE;
+
+	defrag(block->page);
+	(void) mutex_unlock(&lock);
+}
+
+/*
+ * Align size on an appropriate boundary
+ */
+static size_t
+align(size_t size, int bound)
+{
+	if (size < bound)
+		return ((size_t)bound);
+	else
+		return (size + bound - 1 - (size + bound - 1) % bound);
+}
+
+static void
+split(struct block *block, size_t size)
+{
+	if (block->size > size + sizeof (struct block)) {
+		struct block *newblock;
+		newblock = (struct block *)((char *)block + HDR_BLOCK + size);
+		newblock->next = block->next;
+		block->next = newblock;
+		newblock->status = FREE;
+		newblock->page = block->page;
+		newblock->size = block->size - size - HDR_BLOCK;
+		block->size = size;
+	}
+}
+
+/*
+ * Defragmentation
+ */
+static void
+defrag(struct page *page)
+{
+	struct block *block;
+
+	for (block = page->block; block; block = block->next) {
+		struct block *block2;
+
+		if (block->status == BUSY)
+			continue;
+		for (block2 = block->next; block2 && block2->status == FREE;
+			block2 = block2->next) {
+			block->next = block2->next;
+			block->size += block2->size + HDR_BLOCK;
+		}
+	}
+
+	/*
+	 * Free page
+	 */
+	if (page->block->size == page->size - HDR_PAGE) {
+		if (page == memstart)
+			memstart = page->next;
+		else {
+			struct page *page2;
+			for (page2 = memstart; page2->next;
+				page2 = page2->next) {
+				if (page2->next == page) {
+					page2->next = page->next;
+					break;
+				}
+			}
+		}
+		(void) munmap((caddr_t)page, page->size);
+	}
+}
diff --git a/usr/src/lib/libmapmalloc/common/valloc.c b/usr/src/lib/libmapmalloc/common/valloc.c
new file mode 100644
index 0000000000..2b4a443738
--- /dev/null
+++ b/usr/src/lib/libmapmalloc/common/valloc.c
@@ -0,0 +1,55 @@
+/*
+ * CDDL HEADER START
+ *
+ * The contents of this file are subject to the terms of the
+ * Common Development and Distribution License, Version 1.0 only
+ * (the "License").  You may not use this file except in compliance
+ * with the License.
+ *
+ * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+ * or http://www.opensolaris.org/os/licensing.
+ * See the License for the specific language governing permissions
+ * and limitations under the License.
+ *
+ * When distributing Covered Code, include this CDDL HEADER in each
+ * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+ * If applicable, add the following below this CDDL HEADER, with the
+ * fields enclosed by brackets "[]" replaced with your own identifying
+ * information: Portions Copyright [yyyy] [name of copyright owner]
+ *
+ * CDDL HEADER END
+ */
+/*
+ * Copyright (c) 1991-1997, Sun Microsytems, Inc.
+ */
+
+#pragma ident	"%Z%%M%	%I%	%E% SMI"
+
+/*LINTLIBRARY*/
+#include <sys/types.h>
+#include <stdlib.h>
+#include <errno.h>
+
+/*
+ * valloc(size) - do nothing
+ */
+
+/*ARGSUSED*/
+void *
+valloc(size_t size)
+{
+	return (0);
+}
+
+
+/*
+ * memalign(align,nbytes) - do nothing
+ */
+
+/*ARGSUSED*/
+void *
+memalign(size_t align, size_t nbytes)
+{
+	errno = EINVAL;
+	return (NULL);
+}