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);
}
}
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;
}
}