arch/arm-linux/processor/getcpuinfo.c

   1 /*
   2     Copyright © 2010-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: GetCPUInfo() - Provides information about installed CPUs (ARM version)
   6     Lang: english
   7 */
   8
   9
  10 #include <aros/libcall.h>
  11 #include <resources/processor.h>
  12 #include <proto/utility.h>
  13
  14 #include "processor_intern.h"
  15 #include "arch_intern.h"
  16
  17 AROS_LH1(void, GetCPUInfo,
  18          AROS_LHA(struct TagItem *, tagList, A0),
  19          struct ProcessorBase *, ProcessorBase, 1, Processor)
  20 {
  21     AROS_LIBFUNC_INIT
  22
  23     struct TagItem *passedTag = NULL;
  24     struct LinuxArmProcessor *data = ProcessorBase->Private1;
  25
  26     /* Go over each passed tag and fill apprioprate data */
  27     while ((passedTag = NextTagItem(&tagList)) != NULL)
  28     {
  29         ULONG val;
  30
  31         switch (passedTag->ti_Tag)
  32         {
  33         case GCIT_NumberOfProcessors:
  34             *((ULONG *)passedTag->ti_Data) = 1;
  35             break;
  36
  37         case GCIT_Family:
  38             *((ULONG *)passedTag->ti_Data) = data->Arch;
  39             break;
  40
  41         case GCIT_Model:
  42             *((ULONG *)passedTag->ti_Data) = data->Part;                /* ARM Model is vendor-specific part number */
  43             break;
  44
  45         case GCIT_ModelString:
  46             *((CONST_STRPTR *)passedTag->ti_Data) = data->Model;        /* String composed by Linux kernel */
  47             break;
  48
  49         case GCIT_Version:
  50             *((ULONG *)passedTag->ti_Data) = data->Version;
  51             break;
  52
  53         case GCIT_VectorUnit:
  54             /* These values are mutually exclusive, report the best from feature flags */
  55             if (data->Features & FF_NEON)
  56                 val = VECTORTYPE_NEON;
  57             else if (data->Features & FF_VFPv3)
  58                 val = VECTORTYPE_VFPv3;
  59             else if (data->Features & FF_VFP)
  60                 val = VECTORTYPE_VFP;
  61             else
  62                 val = 0;
  63
  64             *((ULONG *)passedTag->ti_Data) = val;
  65             break;
  66
  67         case GCIT_Architecture:
  68             *((ULONG *)passedTag->ti_Data) = PROCESSORARCH_ARM;
  69             break;
  70
  71         case GCIT_Endianness:
  72             *((ULONG *)passedTag->ti_Data) = ENDIANNESS_LE;     /* We are little-endian only */
  73             break;
  74
  75         case GCIT_Vendor:
  76             *((ULONG *)passedTag->ti_Data) = data->Implementer;
  77             break;
  78
  79         default:
  80             if ((passedTag->ti_Tag >= GCIT_SupportsVFP) && (passedTag->ti_Tag <= GCIT_SupportsThumbEE))
  81             {
  82                 /* Each feature tag has own bit in Features field */
  83                 ULONG val = data->Features >> (passedTag->ti_Tag - GCIT_SupportsVFP);
  84
  85                 *((BOOL *)passedTag->ti_Data) = val & 0x01;
  86             }
  87             break;
  88         }
  89     }
  90
  91     AROS_LIBFUNC_EXIT
  92 } /* GetCPUInfo() */