arch/all-pc/kernel/getsystemattr.c

   1 /*
   2     Copyright © 1995-2017, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6 */
   7
   8 #include <aros/kernel.h>
   9 #include <exec/execbase.h>
  10 #include <proto/exec.h>
  11
  12 #include <kernel_base.h>
  13 #include "kernel_intern.h"
  14
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19 #include <proto/kernel.h>
  20
  21         AROS_LH1(intptr_t, KrnGetSystemAttr,
  22
  23 /*  SYNOPSIS */
  24         AROS_LHA(uint32_t, id, D0),
  25
  26 /*  LOCATION */
  27         struct KernelBase *, KernelBase, 29, Kernel)
  28
  29 /*  FUNCTION
  30         Get value of internal system attributes.
  31         Currently defined attributes are:
  32
  33           KATTR_Architecture [.G] (char *)        - Name of architecture the kernel built for.
  34
  35           KATTR_PeripheralBase [.G] IPTR   - IO Base address for ARM peripherals
  36
  37     INPUTS
  38         id - ID of the attribute to get
  39
  40     RESULT
  41         Value of the attribute
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51     INTERNALS
  52
  53 ******************************************************************************/
  54 {
  55     AROS_LIBFUNC_INIT
  56
  57     struct PlatformData *pdata = KernelBase->kb_PlatformData;
  58     struct APICData *apicData = pdata->kb_APIC;
  59
  60     intptr_t retval = -1;
  61
  62     if ((apicData) && (id >= KATTR_CPULoad && id < KATTR_CPULoad_END))
  63     {
  64         id -= KATTR_CPULoad;
  65         if (id < apicData->apic_count)
  66             retval = apicData->cores[id].cpu_Load;
  67     }
  68     else if (id == KATTR_Architecture)
  69     {
  70         retval = (intptr_t)AROS_ARCHITECTURE;
  71     }
  72
  73     return retval;
  74
  75     AROS_LIBFUNC_EXIT
  76 }