Пример #1
0
static void freelist(TAPTR exec, struct TList *list)
{
	struct TNode *next, *node = list->tlh_Head;
	for (; (next = node->tln_Succ); node = next)
	{
		TREMOVE(node);
		TExecFree(exec, node);
	}
}
Пример #2
0
TLIBAPI void TDestroyList(struct TList *list)
{
	struct TNode *nextnode, *node = list->tlh_Head;
	while ((nextnode = node->tln_Succ))
	{
		TREMOVE(node);
		TCALLHOOKPKT(&((struct THandle *) node)->thn_Hook, node, TMSG_DESTROY);
		node = nextnode;
	}
}