arch/all-hosted/hostlib/close.c

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