arch/ppc-chrp/exec/supervisor.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Supervisor() - Execute some code in a privileged environment.
   6     Lang: english
   7 */
   8
   9 #include <proto/exec.h>
  10
  11 /* See rom/exec/supervisor.c for documentation */
  12
  13 AROS_LH1(ULONG, Supervisor,
  14     AROS_LHA(ULONG_FUNC, userFunction, A5),
  15     struct ExecBase *, SysBase, 5, Exec)
  16 {
  17     AROS_LIBFUNC_INIT
  18
  19     register ULONG retval;
  20     register APTR stack;
  21
  22     stack = SuperState();
  23
  24     retval = (*userFunction)();
  25
  26     UserState(stack);
  27
  28     return retval;
  29
  30     AROS_LIBFUNC_EXIT
  31 } /* Supervisor() */