rom/task/execfuncs.c

   1 /*
   2     Copyright © 2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define DEBUG 0
   7
   8 #include <aros/debug.h>
   9 #include <aros/symbolsets.h>
  10
  11 #include <proto/exec.h>
  12 #include <proto/kernel.h>
  13
  14 #include "taskres_intern.h"
  15
  16 void TaskResAddTask(struct TaskResBase *TaskResBase, struct Task *task)
  17 {
  18     struct TaskListEntry *newEntry;
  19
  20     if ((newEntry = AllocMem(sizeof(struct TaskListEntry), MEMF_CLEAR)) != NULL)
  21     {
  22         D(bug("[TaskRes] TaskResAddTask: taskentry @ 0x%p for '%s'\n", newEntry, task->tc_Node.ln_Name));
  23         newEntry->tle_Task = task;
  24         if (IsListEmpty(&TaskResBase->trb_LockedLists))
  25             AddTail(&TaskResBase->trb_TaskList, &newEntry->tle_Node);
  26         else
  27             AddTail(&TaskResBase->trb_NewTasks, &newEntry->tle_Node);
  28     }
  29 }
  30
  31 AROS_LH4(APTR, NewAddTask,
  32         AROS_LHA(struct Task *,     task,      A1),
  33         AROS_LHA(APTR,              initialPC, A2),
  34         AROS_LHA(APTR,              finalPC,   A3),
  35         AROS_LHA(struct TagItem *,  tagList,   A4),
  36         struct ExecBase *, SysBase, 176, Task)
  37 {
  38     AROS_LIBFUNC_INIT
  39
  40     APTR newTask;
  41     struct TaskResBase *TaskResBase;
  42
  43     TaskResBase = (struct TaskResBase *)SysBase->lb_TaskResBase;
  44
  45     D(bug("[TaskRes] NewAddTask(0x%p)\n", task));
  46
  47     newTask = AROS_CALL4(APTR, TaskResBase->trb_NewAddTask,
  48                 AROS_LCA(struct Task *,     task,      A1),
  49                 AROS_LCA(APTR,              initialPC, A2),
  50                 AROS_LCA(APTR,              finalPC,   A3),
  51                 AROS_LCA(struct TagItem *,  tagList,   A4),
  52                 struct ExecBase *, SysBase);
  53
  54     D(bug("[TaskRes] NewAddTask: task @ 0x%p\n", newTask));
  55
  56     if (newTask)
  57         TaskResAddTask(TaskResBase, newTask);
  58
  59     return newTask;
  60
  61     AROS_LIBFUNC_EXIT
  62 }
  63
  64 AROS_LH1(void, RemTask,
  65         AROS_LHA(struct Task *, task, A1),
  66         struct ExecBase *, SysBase, 48, Task)
  67 {
  68     AROS_LIBFUNC_INIT
  69
  70     struct Task *findTask = task;
  71     struct TaskListEntry *taskEntry, *tmpEntry;
  72     struct TaskResBase *TaskResBase;
  73     BOOL removed = FALSE;
  74
  75     TaskResBase = (struct TaskResBase *)SysBase->lb_TaskResBase;
  76
  77     if (!findTask)
  78         findTask = FindTask(NULL);
  79
  80     D(
  81         bug("[TaskRes] RemTask(0x%p)\n", task);
  82         if (findTask != task)
  83             bug("[TaskRes] Real task @ 0x%p\n", findTask);
  84     )
  85
  86     ForeachNodeSafe(&TaskResBase->trb_NewTasks, taskEntry, tmpEntry)
  87     {
  88         if (taskEntry->tle_Task == findTask)
  89         {
  90             D(bug("[TaskRes] RemTask: destroying new entry @ 0x%p\n", taskEntry));
  91             Remove(&taskEntry->tle_Node);
  92             FreeMem(taskEntry, sizeof(struct TaskListEntry));
  93             removed = TRUE;
  94             break;
  95         }
  96     }
  97
  98     if (!removed)
  99     {
 100         ForeachNodeSafe(&TaskResBase->trb_TaskList, taskEntry, tmpEntry)
 101         {
 102             if (taskEntry->tle_Task == findTask)
 103             {
 104                 D(bug("[TaskRes] RemTask: taskentry @ 0x%p for '%s'\n", taskEntry, task->tc_Node.ln_Name));
 105                 if (IsListEmpty(&TaskResBase->trb_LockedLists))
 106                 {
 107                     D(bug("[TaskRes] RemTask: destroying entry\n"));
 108                     Remove(&taskEntry->tle_Node);
 109                     FreeMem(taskEntry, sizeof(struct TaskListEntry));
 110                 }
 111                 else
 112                 {
 113                     D(bug("[TaskRes] RemTask: flag entry for removal\n"));
 114                     taskEntry->tle_Task = NULL;
 115                 }
 116                 break;
 117             }
 118         }
 119     }
 120
 121     if (TaskResBase->trb_RemTask)
 122     {
 123         AROS_CALL1(APTR, TaskResBase->trb_RemTask,
 124                     AROS_LCA(struct Task *,     task,      A1),
 125                     struct ExecBase *, SysBase);
 126     }
 127     return;
 128
 129     AROS_LIBFUNC_EXIT
 130 }