rom/exec/dispatch.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Dispatch() - Exec-side task dispatch handling
   6     Lang: english
   7 */
   8
   9 #include <aros/debug.h>
  10 #include <exec/lists.h>
  11 #include <exec/tasks.h>
  12 #include <exec/execbase.h>
  13 #include <proto/exec.h>
  14
  15 #include "exec_intern.h"
  16 #include "exec_util.h"
  17 #include "etask.h"
  18 #include "taskstorage.h"
  19
  20 /*****************************************************************************
  21
  22     NAME */
  23 #include <proto/exec.h>
  24
  25         AROS_LH1(BOOL, Dispatch,
  26
  27 /*  SYNOPSIS */
  28         AROS_LHA(struct Task *, task, A0),
  29
  30 /*  LOCATION */
  31         struct ExecBase *, SysBase, 10, Exec)
  32
  33 /*  FUNCTION
  34         Perform dispatch-time task maintenance.
  35
  36     INPUTS
  37         task - a task to be dispatched.
  38
  39     RESULT
  40         TRUE if dispatching permitted, FALSE if dispatching needs to be
  41         cancelled
  42
  43     NOTES
  44         This is a very private function.
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51
  52     INTERNALS
  53
  54 ******************************************************************************/
  55 {
  56     AROS_LIBFUNC_INIT
  57
  58     int oldstorage;
  59
  60     if (task == PrivExecBase(SysBase)->ServicePort->mp_SigTask)
  61     {
  62         /*
  63          * We can't ask housekeeper to service itself.
  64          * It's its own responsibility to take care about itself.
  65          */
  66         return TRUE;
  67     }
  68
  69     oldstorage = task->tc_UnionETask.tc_TaskStorage[__TS_FIRSTSLOT];
  70     if (oldstorage < PrivExecBase(SysBase)->TaskStorageSize)
  71     {
  72         D(bug("[Dispatch] Task 0x%p <%s> needs TSS increase (%d -> %d)\n", task, task->tc_Node.ln_Name, oldstorage, PrivExecBase(SysBase)->TaskStorageSize));
  73
  74         /*
  75          * The task has been removed from TaskReady list by kernel.
  76          * Send it to housekeeper for servicing.
  77          * We use InternalPutMsg() because it won't clobber ln_Type.
  78          */
  79         InternalPutMsg(((struct IntExecBase *)SysBase)->ServicePort, (struct Message *)task, SysBase);
  80
  81         return FALSE;
  82     }
  83
  84     return TRUE;
  85
  86     AROS_LIBFUNC_EXIT
  87 } /* Dispatch() */