rom/dos/setioerr.c

   1 /*
   2     Copyright © 1995-2001, 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 to 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     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  49
  50     /* old contents */
  51     LONG old;
  52
  53     /* Get pointer to process structure */
  54     struct Process *me = (struct Process *)FindTask(NULL);
  55
  56     /* If this is not a Process, do nothing  */
  57     if (!__is_process(me))
  58         return 0;
  59
  60     /* Nothing spectacular */
  61     old = me->pr_Result2;
  62     me->pr_Result2 = result;
  63
  64     return old;
  65
  66     AROS_LIBFUNC_EXIT
  67 } /* SetIoErr */