rom/exec/addlibrary.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Add a library to the public list of libraries.
   6     Lang: english
   7 */
   8 #include <aros/debug.h>
   9 #include <exec/execbase.h>
  10 #include <aros/libcall.h>
  11 #include <proto/exec.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17         AROS_LH1(void, AddLibrary,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct Library *, library,A1),
  21
  22 /*  LOCATION */
  23         struct ExecBase *, SysBase, 66, Exec)
  24
  25 /*  FUNCTION
  26         Adds a given library to the system's library list after checksumming
  27         the library vectors. This function is not for general use but
  28         (of course) for building shared librarys that don't use exec's
  29         MakeLibrary() mechanism.
  30
  31     INPUTS
  32         library - Pointer to a ready for use library structure.
  33
  34     RESULT
  35
  36     NOTES
  37         Some old Amiga software expects that AddLibrary returns the
  38         library which was just added. When in binary compatibility mode
  39         AROS does this too.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         RemLibrary(), MakeLibrary(), MakeFunctions(), InitStruct(), SumLibrary().
  47
  48     INTERNALS
  49
  50 ******************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     ASSERT_VALID_PTR(library);
  55
  56     /* Just in case the user forgot them */
  57     library->lib_Node.ln_Type=NT_LIBRARY;
  58     library->lib_Flags|=LIBF_CHANGED;
  59
  60     /* Build checksum for library vectors */
  61     SumLibrary(library);
  62
  63     /* Arbitrate for the library list */
  64     Forbid();
  65
  66     /* And add the library */
  67     Enqueue(&SysBase->LibList,&library->lib_Node);
  68
  69     /* All done. */
  70     Permit();
  71 #if (AROS_FLAVOUR & AROS_FLAVOUR_BINCOMPAT)
  72     /*
  73         Kludge to force the library to register d0.
  74         Some libraries seem to use this side effect in
  75         their init code.
  76     */
  77     {
  78         /* Put the library base in register d0 */
  79         register struct Library *ret __asm("d0") = library;
  80
  81         /* Make sure the above assignment isn't optimized away */
  82         __asm __volatile("": : "r" (ret));
  83     }
  84 #endif
  85
  86     AROS_LIBFUNC_EXIT
  87 } /* AddLibrary */