arch/all-pc/hpet/getunitattrsa.c

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