workbench/libs/datatypes/releasedatatype.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include "datatypes_intern.h"
  10 #include <proto/exec.h>
  11 #include <exec/alerts.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/datatypes.h>
  17
  18         AROS_LH1(VOID, ReleaseDataType,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct DataType *, dt, A0),
  22
  23 /*  LOCATION */
  24         struct Library *, DataTypesBase, 7, DataTypes)
  25
  26 /*  FUNCTION
  27
  28     Release a DataType structure aquired by ObtainDataTypeA().
  29
  30     INPUTS
  31
  32     dt  --  DataType structure as returned by ObtainDataTypeA(); NULL is
  33             a valid input.
  34
  35     RESULT
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     ObtainDataTypeA()
  46
  47     INTERNALS
  48
  49     HISTORY
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     ObtainSemaphoreShared(&(GPB(DataTypesBase)->dtb_DTList)->dtl_Lock);
  56
  57     if(dt != NULL)
  58     {
  59         if(((struct CompoundDataType *)dt)->OpenCount)
  60             ((struct CompoundDataType*)dt)->OpenCount--;
  61         else
  62             Alert(AN_Unknown);
  63     }
  64
  65     ReleaseSemaphore(&(GPB(DataTypesBase)->dtb_DTList)->dtl_Lock);
  66
  67     AROS_LIBFUNC_EXIT
  68 } /* ReleaseDataType */