rom/task/execfuncs.c

   1 /*
   2     Copyright © 2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define DEBUG 1
   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     /*
  21        TODO:
  22         if the list is locked, defer tasks addition until it is unlocked
  23     */
  24     if ((newEntry = AllocMem(sizeof(struct TaskListEntry), MEMF_CLEAR)) != NULL)
  25     {
  26         D(bug("[TaskRes] TaskResAddTask: taskentry @ 0x%p for '%s'\n", newEntry, task->tc_Node.ln_Name));
  27         newEntry->tle_Task = task;
  28         AddTail(&TaskResBase->trb_TaskList, &newEntry->tle_Node);
  29     }
  30 }
  31
  32 AROS_LH4(APTR, NewAddTask,
  33         AROS_LHA(struct Task *,     task,      A1),
  34         AROS_LHA(APTR,              initialPC, A2),
  35         AROS_LHA(APTR,              finalPC,   A3),
  36         AROS_LHA(struct TagItem *,  tagList,   A4),
  37         struct ExecBase *, SysBase, 176, Task)
  38 {
  39     AROS_LIBFUNC_INIT
  40
  41     APTR newTask;
  42     struct TaskResBase *TaskResBase;
  43
  44     TaskResBase = (struct TaskResBase *)SysBase->lb_TaskResBase;
  45
  46     D(bug("[TaskRes] NewAddTask(0x%p)\n", task));
  47
  48     newTask = AROS_CALL4(APTR, TaskResBase->trb_NewAddTask,
  49                 AROS_LCA(struct Task *,     task,      A1),
  50                 AROS_LCA(APTR,              initialPC, A2),
  51                 AROS_LCA(APTR,              finalPC,   A3),
  52                 AROS_LCA(struct TagItem *,  tagList,   A4),
  53                 struct ExecBase *, SysBase);
  54
  55     D(bug("[TaskRes] NewAddTask: task @ 0x%p\n", newTask));
  56
  57     if (newTask)
  58         TaskResAddTask(TaskResBase, newTask);
  59
  60     return newTask;
  61
  62     AROS_LIBFUNC_EXIT
  63 }
  64
  65 AROS_LH1(void, RemTask,
  66         AROS_LHA(struct Task *, task, A1),
  67         struct ExecBase *, SysBase, 48, Task)
  68 {
  69     AROS_LIBFUNC_INIT
  70
  71     struct TaskListEntry *tmpEntry;
  72     struct TaskResBase *TaskResBase;
  73
  74     TaskResBase = (struct TaskResBase *)SysBase->lb_TaskResBase;
  75
  76     D(bug("[TaskRes] RemTask()\n"));
  77
  78     AROS_CALL1(APTR, TaskResBase->trb_RemTask,
  79                 AROS_LCA(struct Task *,     task,      A1),
  80                 struct ExecBase *, SysBase);
  81
  82     ForeachNode(&TaskResBase->trb_TaskList, tmpEntry)
  83     {
  84         if (tmpEntry->tle_Task == task)
  85         {
  86             /*
  87                TODO:
  88                 if the list is locked flag the entry to be removed,
  89                 else remove it immediately
  90             */
  91             D(bug("[TaskRes] RemTask:  destroying taskentry @ 0x%p for '%s'\n", tmpEntry, task->tc_Node.ln_Name));
  92             Remove(&tmpEntry->tle_Node);
  93             FreeMem(tmpEntry, sizeof(struct TaskListEntry));
  94             break;
  95         }
  96     }
  97
  98     return;
  99
 100     AROS_LIBFUNC_EXIT
 101 }