workbench/libs/camd/removemidilink.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9
  10 #include <proto/exec.h>
  11
  12 #include "camd_intern.h"
  13
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18
  19         AROS_LH1(void, RemoveMidiLink,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(struct MidiLink *, midilink, A0),
  23
  24 /*  LOCATION */
  25         struct CamdBase *, CamdBase, 15, Camd)
  26
  27 /*  FUNCTION
  28                 Removes and frees a midilink from the system.
  29
  30     INPUTS
  31                 midilink - pointer to midilink to remove.
  32
  33     RESULT
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42
  43     INTERNALS
  44
  45     HISTORY
  46
  47         2001-01-12 ksvalast first created
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52
  53         ObtainSemaphore(CB(CamdBase)->CLSemaphore);
  54
  55                 UnlinkMidiLink(midilink,TRUE,CamdBase);
  56
  57         ReleaseSemaphore(CB(CamdBase)->CLSemaphore);
  58
  59         if(midilink->ml_ParserData!=NULL) FreeMem(midilink->ml_ParserData,sizeof(struct DriverData));
  60         FreeMem(midilink,sizeof(struct MidiLink));
  61
  62    AROS_LIBFUNC_EXIT
  63 }
  64