summaryrefslogtreecommitdiffstats
path: root/mksh/src/lalloc.c
diff options
context:
space:
mode:
authorJean-Baptiste Queru <jbq@google.com>2011-06-16 10:06:45 -0700
committerJean-Baptiste Queru <jbq@google.com>2011-06-16 10:06:45 -0700
commitfa3dfff83b29137d2984c9776a8a64b09a758bde (patch)
tree6af06c3d89e4bb92faf3b5e605bf5be47b7d9667 /mksh/src/lalloc.c
parenteafcbe109f97e5a687cc944e65c383fa45d71c8f (diff)
downloadsystem_core-fa3dfff83b29137d2984c9776a8a64b09a758bde.zip
system_core-fa3dfff83b29137d2984c9776a8a64b09a758bde.tar.gz
system_core-fa3dfff83b29137d2984c9776a8a64b09a758bde.tar.bz2
Move mksh to external/mksh
Change-Id: I836b8764320bd498c335d97267d8b47acb97514d
Diffstat (limited to 'mksh/src/lalloc.c')
-rw-r--r--mksh/src/lalloc.c123
1 files changed, 0 insertions, 123 deletions
diff --git a/mksh/src/lalloc.c b/mksh/src/lalloc.c
deleted file mode 100644
index 79627d1..0000000
--- a/mksh/src/lalloc.c
+++ /dev/null
@@ -1,123 +0,0 @@
-/*-
- * Copyright © 2009
- * Thorsten Glaser <tg@mirbsd.org>
- *
- * Provided that these terms and disclaimer and all copyright notices
- * are retained or reproduced in an accompanying document, permission
- * is granted to deal in this work without restriction, including un‐
- * limited rights to use, publicly perform, distribute, sell, modify,
- * merge, give away, or sublicence.
- *
- * This work is provided “AS IS” and WITHOUT WARRANTY of any kind, to
- * the utmost extent permitted by applicable law, neither express nor
- * implied; without malicious intent or gross negligence. In no event
- * may a licensor, author or contributor be held liable for indirect,
- * direct, other damage, loss, or other issues arising in any way out
- * of dealing in the work, even if advised of the possibility of such
- * damage or existence of a defect, except proven that it results out
- * of said person’s immediate fault when using the work as intended.
- */
-
-#include "sh.h"
-
-__RCSID("$MirOS: src/bin/mksh/lalloc.c,v 1.11 2009/08/08 13:08:51 tg Exp $");
-
-/* build with CPPFLAGS+= -DUSE_REALLOC_MALLOC=0 on ancient systems */
-#if defined(USE_REALLOC_MALLOC) && (USE_REALLOC_MALLOC == 0)
-#define remalloc(p,n) ((p) == NULL ? malloc(n) : realloc((p), (n)))
-#else
-#define remalloc(p,n) realloc((p), (n))
-#endif
-
-#define ALLOC_ISUNALIGNED(p) (((ptrdiff_t)(p)) % ALLOC_SIZE)
-
-static ALLOC_ITEM *findptr(ALLOC_ITEM **, char *, Area *);
-
-void
-ainit(Area *ap)
-{
- /* area pointer is an ALLOC_ITEM, just the head of the list */
- ap->next = NULL;
-}
-
-static ALLOC_ITEM *
-findptr(ALLOC_ITEM **lpp, char *ptr, Area *ap)
-{
- void *lp;
-
-#ifndef MKSH_SMALL
- if (ALLOC_ISUNALIGNED(ptr))
- goto fail;
-#endif
- /* get address of ALLOC_ITEM from user item */
- /*
- * note: the alignment of "ptr" to ALLOC_SIZE is checked
- * above; the "void *" gets us rid of a gcc 2.95 warning
- */
- *lpp = (lp = ptr - ALLOC_SIZE);
- /* search for allocation item in group list */
- while (ap->next != lp)
- if ((ap = ap->next) == NULL) {
-#ifndef MKSH_SMALL
- fail:
-#endif
- internal_errorf("rogue pointer %p", ptr);
- }
- return (ap);
-}
-
-void *
-aresize(void *ptr, size_t numb, Area *ap)
-{
- ALLOC_ITEM *lp = NULL;
-
- /* resizing (true) or newly allocating? */
- if (ptr != NULL) {
- ALLOC_ITEM *pp;
-
- pp = findptr(&lp, ptr, ap);
- pp->next = lp->next;
- }
-
- if ((numb >= SIZE_MAX - ALLOC_SIZE) ||
- (lp = remalloc(lp, numb + ALLOC_SIZE)) == NULL
-#ifndef MKSH_SMALL
- || ALLOC_ISUNALIGNED(lp)
-#endif
- )
- internal_errorf("cannot allocate %lu data bytes",
- (unsigned long)numb);
- /* this only works because Area is an ALLOC_ITEM */
- lp->next = ap->next;
- ap->next = lp;
- /* return user item address */
- return ((char *)lp + ALLOC_SIZE);
-}
-
-void
-afree(void *ptr, Area *ap)
-{
- if (ptr != NULL) {
- ALLOC_ITEM *lp, *pp;
-
- pp = findptr(&lp, ptr, ap);
- /* unhook */
- pp->next = lp->next;
- /* now free ALLOC_ITEM */
- free(lp);
- }
-}
-
-void
-afreeall(Area *ap)
-{
- ALLOC_ITEM *lp;
-
- /* traverse group (linked list) */
- while ((lp = ap->next) != NULL) {
- /* make next ALLOC_ITEM head of list */
- ap->next = lp->next;
- /* free old head */
- free(lp);
- }
-}