rom/exec/closelibrary.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Close a library.
   6     Lang: english
   7 */
   8 #include <aros/config.h>
   9 #include <exec/execbase.h>
  10 #include <dos/dos.h>
  11 #include <aros/libcall.h>
  12 #include <proto/exec.h>
  13
  14 #include "exec_debug.h"
  15 #ifndef DEBUG_CloseLibrary
  16 #   define DEBUG_CloseLibrary 0
  17 #endif
  18 #undef DEBUG
  19 #if DEBUG_CloseLibrary
  20 #   define DEBUG 1
  21 #endif
  22 #include <aros/debug.h>
  23 #undef kprintf
  24
  25 #if (AROS_FLAVOUR & AROS_FLAVOUR_NATIVE)
  26 #   define NATIVE(x)        x
  27 #else
  28 #   define NATIVE(x)        /* eps */
  29 #endif
  30
  31 /*****************************************************************************
  32
  33     NAME */
  34
  35         AROS_LH1(void, CloseLibrary,
  36
  37 /*  SYNOPSIS */
  38         AROS_LHA(struct Library *, library, A1),
  39
  40 /*  LOCATION */
  41         struct ExecBase *, SysBase, 69, Exec)
  42
  43 /*  FUNCTION
  44         Closes a previously opened library. It is legal to call this function
  45         with a NULL pointer.
  46
  47     INPUTS
  48         library - Pointer to library structure or NULL.
  49
  50     RESULT
  51
  52     NOTES
  53
  54     EXAMPLE
  55
  56     BUGS
  57
  58     SEE ALSO
  59         OpenLibrary().
  60
  61     INTERNALS
  62
  63 ******************************************************************************/
  64 {
  65     AROS_LIBFUNC_INIT
  66     NATIVE(BPTR seglist;)
  67
  68     D(bug("CloseLibrary $%lx (\"%s\") by \"%s\"\n", library,
  69         library ? library->lib_Node.ln_Name : "(null)",
  70         SysBase->ThisTask->tc_Node.ln_Name));
  71
  72     /* Something to do? */
  73     if(library!=NULL)
  74     {
  75         ASSERT_VALID_PTR(library);
  76
  77         /* Single-thread the close routine. */
  78         Forbid();
  79
  80         /* Do the close */
  81         NATIVE(seglist =) AROS_LVO_CALL0(BPTR,struct Library *,library,2,);
  82         /*
  83             Normally you'd expect the library to be expunged if this returns
  84             non-zero, but this is only exec which doesn't know anything about
  85             seglists - therefore dos.library has to SetFunction() into this
  86             vector for the additional functionality.
  87         */
  88
  89         /* All done. */
  90         Permit();
  91     }
  92 #if (AROS_FLAVOUR & AROS_FLAVOUR_NATIVE)
  93     else
  94     {
  95         /* Local vars not guaranteed to be initialised to 0. I initialise
  96            it here to save an assignment in case the close went ok (common
  97            path optimization). */
  98         seglist = 0;
  99     }
 100
 101     /*
 102         Kludge to force the seglist to register d0. Ramlib patches this
 103         vector for seglist expunge capability and expects the seglist in
 104         d0 after it has called the original (this) function.
 105         Also see CloseDevice().
 106     */
 107     {
 108         /* Put the library base in register d0 */
 109         register BPTR ret __asm("d0") = seglist;
 110
 111         /* Make sure the above assignment isn't optimized away */
 112         asm volatile("": : "r" (ret));
 113     }
 114 #endif
 115
 116     AROS_LIBFUNC_EXIT
 117 } /* CloseLibrary */
 118