fillsysinfo.c revision 2f0fcb93196badcdd803715656c809058d9f3114
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License (the "License").
* You may not use this file except in compliance with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2008 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
#include <sys/promimpl.h>
#include <sys/machsystm.h>
#include <sys/cpu_module.h>
#include <vm/hat_sfmmu.h>
#include <sys/sysmacros.h>
#include <sys/mach_descrip.h>
#include <sys/archsystm.h>
uint64_t *);
static int get_l2_cache_node_count(md_t *);
char *bit_formatter, char *warning);
uint_t niommu_tsbs = 0;
static int n_l2_caches = 0;
/* prevent compilation with VAC defined */
#ifdef VAC
#error "The sun4v architecture does not support VAC"
#endif
#define S_VAC_SIZE MMU_PAGESIZE
#define S_VAC_SHIFT MMU_PAGESHIFT
int vac_size = S_VAC_SIZE;
int vac_shift = S_VAC_SHIFT;
void
{
}
void
{
char *namebuf;
char *namebufp;
int namelen;
return;
}
/* All out-of-range cpus will be stopped later. */
"cpu excluded from configuration\n", cpuid);
return;
}
"property");
}
namebufp += 5;
"fit into the cpunode name buffer");
"clock-frequency", &clk_freq)) {
clk_freq = 0;
}
/*
* Compute scaling factor based on rate of %tick. This is used
* to convert from ticks derived from %tick to nanoseconds. See
*/
/*
* The nodeid is not used in sun4v at all. Setting it
* to positive value to make starting of slave CPUs
* code happy.
*/
/*
* Obtain the L2 cache information from MD.
* If "Cache" node exists, then set L2 cache properties
* as read from MD.
* If node does not exists, then set the L2 cache properties
* in individual CPU module.
*/
} else {
/*
* Do not expect L2 cache properties to be bigger
* than 32-bit quantity.
*/
}
/*
* Initialize the mapping for exec unit, chip and core.
*/
if (ecache_setsize == 0)
if (ecache_alignsize == 0)
}
void
{
}
/*
* Use L2 cache node to derive the chip mapping.
*/
void
{
int i, j;
int idx = 0;
"fwd", &cachelist);
/*
* The "cache" node is optional in MD, therefore ncaches can be 0.
*/
if (ncache < 1) {
return;
}
for (i = 0; i < ncache; i++) {
continue;
if (cache_level != 2)
continue;
/*
* Found a l2 cache node. Find out the cpu nodes it
* points to.
*/
"back", &node);
if (ncpu < 1)
continue;
for (j = 0; j < ncpu; j++) {
continue;
continue;
}
idx++;
}
}
void
{
int num, num_eunits;
int idx, i, j;
/*
* Find the cpu integer exec units - and
* setup the mappings appropriately.
*/
if (num < 1)
if (num > 1)
" description");
"fwd", &eunit);
if (num_eunits > 0) {
char *fpu_str = "fp";
/* Spin through and find all the integer exec units */
for (i = 0; i < num_eunits; i++) {
char *p;
char *val;
int vallen;
/* ignore nodes with no type */
continue;
goto found;
}
goto found;
}
}
continue;
/*
* find the cpus attached to this EU and
* update their mapping indices
*/
"back", &node);
if (num < 1)
" not attached to a cpu node");
for (j = 0; j < num; j++) {
&lcpuid))
continue;
continue;
switch (etype) {
case INTEGER:
break;
case FPU:
break;
}
}
}
}
}
/*
* Setup instruction cache coherency. The "memory-coherent" property
* is optional. Default for Icache_coherency is 1 (I$ is coherent).
* If we find an Icache with coherency == 0, then enable non-coherent
* Icache support.
*/
void
{
int ncache;
int i;
"fwd", &cachelist);
/*
* The "cache" node is optional in MD, therefore ncaches can be 0.
*/
if (ncache < 1) {
return;
}
for (i = 0; i < ncache; i++) {
int typelen;
&cache_level))
continue;
if (cache_level != 1)
continue;
continue;
continue;
continue;
if (memory_coherent != 0)
continue;
break;
}
}
/*
* All the common setup of sun4v CPU modules is done by this routine.
*/
void
cpu_setup_common(char **cpu_module_isa_set)
{
extern int mmu_exported_pagesize_mask;
int nocpus, i;
if (nocpus < 1) {
"failed or incorrect number of CPUs in MD");
}
if (use_page_coloring) {
do_pg_coloring = 1;
}
/*
* Get the valid mmu page sizes mask, Q sizes and isalist/r
* from the MD for the first available CPU in cpulist.
*
* Do not expect the MMU page sizes mask to be more than 32-bit.
*/
/*
* Get the number of contexts and tsbs supported.
*/
shctx_on = 1;
}
for (i = 0; i < nocpus; i++)
/* setup l2 cache count. */
/*
* If MD is broken then append the passed ISA set,
* otherwise trust the MD.
*/
if (broken_md_flag)
else
/*
* ra_limit is the highest real address in the machine.
*/
(void) md_fini_handle(mdp);
/*
* Block stores invalidate all pages of the d$ so pagecopy
* et. al. do not need virtual translations with virtual
* coloring taken into consideration.
*/
/*
* The kpm mapping window.
* kpm_size:
* The size of a single kpm range.
* The overall size will be: kpm_size * vac_colors.
* kpm_vbase:
* The virtual start address of the kpm range within the kernel
* virtual address space. kpm_vbase has to be kpm_size aligned.
*/
/*
* Make kpm_vbase, kpm_size aligned to kpm_size_shift.
* To do this find the nearest power of 2 size that the
* actual ra_limit fits within.
* If it is an even power of two use that, otherwise use the
* next power of two larger than ra_limit.
*/
/*
* No virtual caches on sun4v so size matches size shift
*/
if (va_bits < VA_ADDRESS_SPACE_BITS) {
/*
* In case of VA hole
* kpm_base = hole_end + 1TB
* Starting 1TB beyond where VA hole ends because on Niagara
* processor software must not use pages within 4GB of the
* VA hole as instruction pages to avoid problems with
* prefetching into the VA hole.
*/
(1ull << 40));
} else { /* Number of VA bits 64 ... no VA hole */
}
/*
* The traptrace code uses either %tick or %stick for
* timestamping. The sun4v require use of %stick.
*/
traptrace_use_stick = 1;
}
/*
* Get the nctxs from MD. If absent panic.
*/
static uint64_t
{
&ctx_bits))
ctx_bits = 0;
"returned by MD", ctx_bits);
return (ctx_bits);
}
/*
* Get the number of tsbs from MD. If absent the default value is 0.
*/
static uint64_t
{
&number_tsbs))
number_tsbs = 0;
return (number_tsbs);
}
/*
* Get the number of shared contexts from MD. If absent the default value is 0.
*
*/
static uint64_t
{
number_contexts = 0;
return (number_contexts);
}
/*
* Initalize supported page sizes information.
* Set to 0, if the page sizes mask information is absent in MD.
*/
static uint64_t
{
mmu_page_size_list = 0;
"by MD", mmu_page_size_list);
return (mmu_page_size_list);
}
/*
* This routine gets the isalist information from MD and appends
* the CPU module ISA set if required.
*/
static char *
char **cpu_module_isa_set)
{
extern int at_flags;
char *md_isalist;
int md_isalen;
char *isabuf;
int isalen;
char **isa_set;
char *p, *q;
int cpu_module_isalen = 0, found = 0;
/*
* We support binaries for all the cpus that have shipped so far.
* The kernel emulates instructions that are not supported by hardware.
*/
/*
* Construct the space separated isa_list.
*/
if (cpu_module_isa_set != NULL) {
isa_set++) {
cpu_module_isalen++; /* for space character */
}
}
/*
* Allocate the buffer of MD isa buffer length + CPU module
* isa buffer length.
*/
if (md_isalist == NULL)
"md_isalist");
}
/*
* Check if the isa_set is present in isalist returned by MD.
* If yes, then no need to append it, if no then append it to
* isalist returned by MD.
*/
if (cpu_module_isa_set != NULL) {
isa_set++) {
found = 0;
p += strlen(p) + 1) {
found = 1;
break;
}
}
if (!found) {
}
}
}
/* Get rid of any trailing white spaces */
return (md_isalist);
}
static void
{
char *hwcapbuf;
int hwcaplen;
/* Property not found */
return;
}
"unrecognized token: %s");
}
/*
* Does the opposite of cmn_err(9f) "%b" conversion specification:
* Given a list of strings, converts them to a bit-vector.
*
* tokens - is a buffer of [NUL-terminated] strings.
* tokenslen - length of tokenbuf in bytes.
* bit_formatter - is a %b format string, such as FMT_AV_SPARC
* from /usr/include/sys/auxv_SPARC.h, of the form:
* <base-char>[<bit-char><token-string>]...
* <base-char> is ignored.
* <bit-char> is [1-32], as per cmn_err(9f).
* warning - is a printf-style format string containing "%s",
* which is used to print a warning message when an unrecognized
* token is found. If warning is NULL, no warning is printed.
* Returns a bit-vector corresponding to the specified tokens.
*/
static unsigned long
{
char *cur;
unsigned long ul = 0;
char *hit;
char *bs;
bit_formatter++; /* skip base; not needed for input */
while (tokenslen) {
bs = bit_formatter;
/*
* We need a complicated while loop and the >=32 check,
* instead of a simple "if (strstr())" so that when the
* token is "vis", we don't match on "vis2" (for example).
*/
/* LINTED E_EQUALITY_NOT_ASSIGNMENT */
/*
* We're still in the middle of a word, i.e., not
* pointing at a <bit-char>. So advance ptr
* to ensure forward progress.
*/
}
} else {
/* The token wasn't found in bit_formatter */
}
}
return (ul);
}
{
int i;
int memnodes;
int nmblock;
if (nmblock < 1)
for (i = 0; i < nmblock; i++) {
" mblock node");
" mblock node");
}
if (ra_limit > MAX_REAL_ADDRESS) {
" clipping to %llx\n", MAX_REAL_ADDRESS);
}
return (ra_limit);
}
/*
* This routine sets the globals for CPU and DEV mondo queue entries and
* resumable and non-resumable error queue entries.
*
* First, look up the number of bits available to pass an entry number.
* This can vary by platform and may result in allocating an unreasonably
* (or impossibly) large amount of memory for the corresponding table,
* so we clamp it by 'max_entries'. Finally, since the q size is used when
* calling contig_mem_alloc(), which expects a power of 2, clamp the q size
* down to a power of 2. If the prop is missing, use 'default_entries'.
*/
static uint64_t
{
if (default_entries > max_entries)
if (!broken_md_flag)
qnamep);
} else {
}
/* If not a power of 2, truncate to a power of 2. */
}
return (entries);
}
/* Scaling constant used to compute size of cpu mondo queue */
#define CPU_MONDO_Q_MULTIPLIER 8
static void
{
int nrnode;
/*
* Compute the maximum number of entries for the cpu mondo queue.
* Use the appropriate property in the platform node, if it is
* available. Else, base it on NCPU.
*/
}
static void
{
/* Do not expect number of VA bits to be more than 32-bit quantity */
/*
* Correct the value for VA bits on UltraSPARC-T1 based systems
* in case of broken MD.
*/
if (broken_md_flag)
}
int
l2_cache_node_count(void)
{
return (n_l2_caches);
}
/*
* count the number of l2 caches.
*/
int
{
int i;
int l2_caches = 0;
for (i = 0; i < n_cachenodes; i++) {
level = 0;
}
if (level == 2) {
l2_caches++;
}
}
return (l2_caches);
}
/*
* This routine returns the L2 cache information such as -- associativity,
* size and linesize.
*/
static int
{
int ncaches, i;
uint64_t cache_level = 0;
"fwd", &cachelist);
/*
* The "cache" node is optional in MD, therefore ncaches can be 0.
*/
if (ncaches < 1) {
return (0);
}
for (i = 0; i < ncaches; i++) {
continue;
if (cache_level != 2) continue;
/* If properties are missing from this cache ignore it */
"associativity", &local_assoc))) {
continue;
}
"size", &local_size))) {
continue;
}
"line-size", &local_lsize))) {
continue;
}
*size = local_size;
*linesize = local_lsize;
break;
}
}
/*
* Set the broken_md_flag to 1 if the MD doesn't have
* the domaining-enabled property in the platform node and the
* platform uses the UltraSPARC-T1 cpu. This flag is used to
* workaround some of the incorrect MD properties.
*/
static void
{
int nrnode;
char *namebuf;
int namelen;
&platlist);
if (nrnode < 1)
"Cannot read 'compatible' property of 'cpu' node");
}
broken_md_flag = 1;
}