From 2b37049c221501c6ae77e0308634aebcdb10060d Mon Sep 17 00:00:00 2001 From: Tanaka Akira Date: Wed, 23 Feb 2000 15:13:27 +0000 Subject: manual/9838 --- Src/linklist.c | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) (limited to 'Src/linklist.c') diff --git a/Src/linklist.c b/Src/linklist.c index 9e70d1372..76c32a62d 100644 --- a/Src/linklist.c +++ b/Src/linklist.c @@ -220,3 +220,26 @@ rolllist(LinkList l, LinkNode nd) l->last->next = 0; } +/**/ +LinkList +newsizedlist(int size) +{ + LinkList list; + LinkNode node; + + MUSTUSEHEAP("newsizedlist()"); + + list = (LinkList) zhalloc(sizeof(struct linklist) + + (size * sizeof(struct linknode))); + + list->first = (LinkNode) (list + 1); + for (node = list->first; size; size--, node++) { + node->last = node - 1; + node->next = node + 1; + } + list->last = node - 1; + list->first->last = (LinkNode) list; + node[-1].next = NULL; + + return list; +} -- cgit 1.4.1