rom/dos/unlock.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <dos/dosextens.h>
  11 #include <proto/dos.h>
  12 #include "dos_intern.h"
  13 #include <aros/debug.h>
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <proto/dos.h>
  19
  20         AROS_LH1(BOOL, UnLock,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(BPTR, lock, D1),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 15, Dos)
  27
  28 /*
  29     FUNCTION
  30         Free a lock created with Lock().
  31
  32     INPUTS
  33         lock -- The lock to free
  34
  35     RESULT
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     INTERNALS
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51     /* Get pointer to filehandle */
  52     struct FileLock *fl = BADDR(lock);
  53
  54     ASSERT_VALID_PTR_OR_NULL(fl);
  55     ASSERT_VALID_FILELOCK(lock);
  56
  57     D(bug("UnLock(%x)\n", fl));
  58
  59     /* 0 handles are OK */
  60     if(lock == BNULL)
  61         return 0;
  62
  63     return dopacket1(DOSBase, NULL, fl->fl_Task, ACTION_FREE_LOCK, lock) != 0;
  64
  65     AROS_LIBFUNC_EXIT
  66 } /* UnLock */