rom/dos/setioerr.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include <proto/exec.h>
   9 #include "dos_intern.h"
  10
  11 #include <aros/debug.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/dos.h>
  17
  18         AROS_LH1(LONG, SetIoErr,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(LONG, result, D1),
  22
  23 /*  LOCATION */
  24         struct DosLibrary *, DOSBase, 77, Dos)
  25
  26 /*  FUNCTION
  27         Sets the dos error code for the current process.
  28
  29     INPUTS
  30         result -- new error code
  31
  32     RESULT
  33         Old error code.
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42
  43     INTERNALS
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     /* old contents */
  50     LONG old;
  51
  52     /* Get pointer to process structure */
  53     struct Process *me = (struct Process *)FindTask(NULL);
  54
  55     /* If this is not a Process, do nothing  */
  56     if (!__is_process(me))
  57         return 0;
  58
  59     /* Nothing spectacular */
  60     old = me->pr_Result2;
  61     me->pr_Result2 = result;
  62
  63     return old;
  64
  65     AROS_LIBFUNC_EXIT
  66 } /* SetIoErr */