compiler/alib/selecterroroutput.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <proto/dos.h>
  14
  15         BPTR SelectErrorOutput(
  16
  17 /*  SYNOPSIS */
  18         BPTR fh)
  19
  20 /*  FUNCTION
  21         Sets the current error stream returned by ErrorOutput() to a new
  22         value. Returns the old error stream.
  23
  24     INPUTS
  25         fh - New error stream.
  26
  27     RESULT
  28         Old error stream handle.
  29
  30     NOTES
  31         This function is source-compatible with AmigaOS v4.
  32
  33     EXAMPLE
  34
  35     BUGS
  36
  37     SEE ALSO
  38
  39     INTERNALS
  40
  41 *****************************************************************************/
  42 {
  43     BPTR old;
  44     /* Get pointer to process structure */
  45     struct Process *me = (struct Process *)FindTask(NULL);
  46
  47     /* Nothing spectacular */
  48     old = me->pr_CES;
  49     me->pr_CES = fh;
  50
  51     return old;
  52 }