arch/all-pc/hpet/getunitattrsa.c

   1 /*
   2     Copyright © 1995-2017, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <resources/hpet.h>
   7 #include <proto/arossupport.h>
   8
   9 #include "hpet_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/hpet.h>
  15
  16         AROS_LH2(BOOL, GetUnitAttrsA,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(ULONG, unit, D0),
  20         AROS_LHA(const struct TagItem *, tags, A0),
  21
  22 /*  LOCATION */
  23         struct HPETBase *, base, 4, Hpet)
  24
  25 /*  FUNCTION
  26         Query attributes of HPET unit.
  27
  28     INPUTS
  29         unit - a number of previously allocated HPET unit.
  30
  31     RESULT
  32         TRUE in case of success or FALSE if the given unit number is out of range.
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44 ******************************************************************************/
  45 {
  46     AROS_LIBFUNC_INIT
  47
  48     struct TagItem *tag, *tstate = (struct TagItem *)tags;
  49
  50     /* Owner is the only thing which can be modified, so we don't need a semaphore here */
  51
  52     if (unit >= base->unitCnt)
  53         return FALSE;
  54
  55     while ((tag = LibNextTagItem(&tstate)))
  56     {
  57         switch (tag->ti_Tag)
  58         {
  59         case HPET_BASE_ADDR:
  60             *(IPTR *)tag->ti_Data = base->units[unit].base;
  61             break;
  62
  63         case HPET_UNIT_ADDR:
  64             *(IPTR *)tag->ti_Data = base->units[unit].block;
  65             break;
  66
  67         case HPET_UNIT_OWNER:
  68             *(const char **)tag->ti_Data = base->units[unit].Owner;
  69             break;
  70         }
  71     }
  72
  73     return TRUE;
  74
  75     AROS_LIBFUNC_EXIT
  76 }