arch/all-hosted/hostlib/close.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <proto/hostlib.h>
   8
   9 #include <stdarg.h>
  10
  11 #include "hostinterface.h"
  12 #include "hostlib_intern.h"
  13
  14 AROS_LH2(int, HostLib_Close,
  15          AROS_LHA(void *,  handle, A0),
  16          AROS_LHA(char **, error,  A1),
  17          struct HostLibBase *, HostLibBase, 2, HostLib)
  18 {
  19     AROS_LIBFUNC_INIT
  20
  21     int ret;
  22
  23     HOSTLIB_LOCK();
  24
  25     ret = HostLibBase->HostIFace->hostlib_Close(handle, error);
  26     AROS_HOST_BARRIER
  27
  28     HOSTLIB_UNLOCK();
  29
  30     return ret;
  31
  32     AROS_LIBFUNC_EXIT
  33 }