rom/task/UnLockTaskList.c

   1 /*
   2     Copyright © 2015-2017, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define DEBUG 0
   7
   8 #include <aros/debug.h>
   9 #include <exec/types.h>
  10 #include <aros/libcall.h>
  11 #include <proto/utility.h>
  12 #include <resources/task.h>
  13
  14 #include <resources/task.h>
  15
  16 #include "task_intern.h"
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21 #include <proto/task.h>
  22
  23         AROS_LH2(void, UnLockTaskList,
  24
  25 /*  SYNOPSIS */
  26         AROS_LHA(struct TaskList *, tlist, A0),
  27         AROS_LHA(ULONG, flags, D0),
  28
  29 /*  LOCATION */
  30         struct TaskResBase *, TaskResBase, 2, Task)
  31
  32 /*  FUNCTION
  33         Frees a lock on the task lists given by LockTaskList().
  34
  35     INPUTS
  36         flags - the same value as given to LockTaskList().
  37
  38     RESULT
  39
  40     NOTES
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47         LockTaskList(), NextTaskEntry()
  48
  49     INTERNALS
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55 #ifdef TASKRES_ENABLE
  56     struct TaskListPrivate *taskList, *tltmp;
  57     struct Task *thisTask = FindTask(NULL);
  58 #endif /* TASKRES_ENABLE */
  59
  60     D(bug("[TaskRes] UnLockTaskList: flags = $%lx\n", flags));
  61
  62 #ifdef TASKRES_ENABLE
  63     ReleaseSemaphore(&TaskResBase->trb_Sem);
  64
  65     ForeachNodeSafe(&TaskResBase->trb_LockedLists, taskList, tltmp)
  66     {
  67         if (((struct Task *)taskList->tlp_Node.ln_Name == thisTask) &&
  68             (taskList->tlp_Flags == flags))
  69         {
  70             D(bug("[TaskRes] UnLockTaskList: Releasing TaskList @ 0x%p\n", taskList));
  71             Remove(&taskList->tlp_Node);
  72             FreeMem(taskList, sizeof(struct TaskListPrivate));
  73             break;
  74         }
  75     }
  76
  77     /* Purge expired entries from the list... */
  78     task_CleanList(NULL, TaskResBase);
  79 #else
  80     Enable();
  81     FreeVec(tlist);
  82 #endif /* TASKRES_ENABLE */
  83
  84     AROS_LIBFUNC_EXIT
  85 } /* UnLockTaskList */