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 TaskListEntry *taskEntry, *tmpEntry;
  71     struct TaskResBase *TaskResBase;
  72     BOOL removed = FALSE;
  73
  74     TaskResBase = (struct TaskResBase *)SysBase->lb_TaskResBase;
  75
  76     D(bug("[TaskRes] RemTask(0x%p)\n", task));
  77
  78     ForeachNodeSafe(&TaskResBase->trb_NewTasks, taskEntry, tmpEntry)
  79     {
  80         if (taskEntry->tle_Task == task)
  81         {
  82             D(bug("[TaskRes] RemTask: destroying new entry @ 0x%p\n", taskEntry));
  83             Remove(&taskEntry->tle_Node);
  84             FreeMem(taskEntry, sizeof(struct TaskListEntry));
  85             removed = TRUE;
  86             break;
  87         }
  88     }
  89
  90     if (!removed)
  91     {
  92         ForeachNodeSafe(&TaskResBase->trb_TaskList, taskEntry, tmpEntry)
  93         {
  94             if (taskEntry->tle_Task == task)
  95             {
  96                 D(bug("[TaskRes] RemTask: taskentry @ 0x%p for '%s'\n", taskEntry, task->tc_Node.ln_Name));
  97                 if (IsListEmpty(&TaskResBase->trb_LockedLists))
  98                 {
  99                     D(bug("[TaskRes] RemTask: destroying entry\n"));
 100                     Remove(&taskEntry->tle_Node);
 101                     FreeMem(taskEntry, sizeof(struct TaskListEntry));
 102                 }
 103                 else
 104                 {
 105                     D(bug("[TaskRes] RemTask: flag entry for removal\n"));
 106                     taskEntry->tle_Task = NULL;
 107                 }
 108                 break;
 109             }
 110         }
 111     }
 112
 113     if (TaskResBase->trb_RemTask)
 114     {
 115         AROS_CALL1(APTR, TaskResBase->trb_RemTask,
 116                     AROS_LCA(struct Task *,     task,      A1),
 117                     struct ExecBase *, SysBase);
 118     }
 119     return;
 120
 121     AROS_LIBFUNC_EXIT
 122 }