/*
* Lookup a property type by name. First in "buf" and when not found in the
* global types.
* When not found gives an error message and returns NULL.
*/
static proptype_T *
lookup_prop_type(char_u *name, buf_T *buf)
{
proptype_T *type = find_prop(name, buf);
if (type == NULL)
type = find_prop(name, NULL);
if (type == NULL)
semsg(_(e_type_not_exist), name);
return type;
}
/*
* add_node
*
* This function adds a board node to the board structure where that
* that node's physical component lives.
*/
void
add_node(Sys_tree *root, Prom_node *pnode)
{
int board = -1;
int portid = -1;
void *value = NULL;
Board_node *bnode = NULL;
Prom_node *p = NULL;
/* Get the board number of this board from the portid prop */
value = get_prop_val(find_prop(pnode, "portid"));
if (value != NULL) {
portid = *(int *)value;
}
board = LNECK_PORTID_TO_BOARD_NUM(portid);
/* find the board node with the same board number */
if ((bnode = littleneck_find_board(root, board)) == NULL) {
bnode = littleneck_insert_board(root, board);
}
/* now attach this prom node to the board list */
/* Insert this node at the end of the list */
pnode->sibling = NULL;
if (bnode->nodes == NULL)
bnode->nodes = pnode;
else {
p = bnode->nodes;
while (p->sibling != NULL)
p = p->sibling;
p->sibling = pnode;
}
}
static void
display_hw_revisions(Prom_node *root, Board_node *bdlist)
{
Prom_node *pnode;
char *value;
log_printf(dgettext(TEXT_DOMAIN, "\n"
"========================= HW Revisions "
"=======================================\n\n"));
log_printf(dgettext(TEXT_DOMAIN,
"System PROM revisions:\n"
"----------------------\n"));
pnode = dev_find_node(root, "openprom");
if (pnode != NULL) {
value = (char *)get_prop_val(find_prop(pnode, "version"));
log_printf(value);
}
log_printf(dgettext(TEXT_DOMAIN, "\n\n"
"IO ASIC revisions:\n"
"------------------\n"
" Port\n"
"Model ID Status Version\n"
"-------- ---- ------ -------\n"));
display_schizo_revisions(bdlist);
}
static bool setProperty(JSContextRef jscore_ctx, JSObjectRef object, JSStringRef propertyName, JSValueRef value, JSValueRef *exception)
{
pdf_jsimp *imp;
char buf[STRING_BUF_SIZE];
prop *p;
priv_data *pdata = JSObjectGetPrivate(object);
if (pdata == NULL)
return false;
JSStringGetUTF8CString(propertyName, buf, STRING_BUF_SIZE);
p = find_prop(pdata->type->props, buf);
if (p == NULL)
return false;
imp = pdata->type->imp;
switch(p->type)
{
case PROP_FN:
break;
case PROP_VAL:
{
pdf_jsimp_obj *pval = wrap_val(imp, value);
p->u.val.set(imp->nat_ctx, pdata->natobj, pval);
pdf_jsimp_drop_obj(imp, pval);
}
break;
}
return true;
}
/*
* get_prop_value_int takes an array of inetd_prop_t's together with the name of
* an inetd property and returns the value of the property. It's expected that
* the property exists in the searched array.
*/
int64_t
get_prop_value_int(const inetd_prop_t *prop, const char *name)
{
inetd_prop_t *p;
p = find_prop(prop, name, INET_TYPE_INTEGER);
return (p->ip_value.iv_int);
}
/*
* get_prop_value_count takes an array of inetd_prop_t's together with the name
* of an inetd property and returns the value of the property. It's expected
* that the property exists in the searched array.
*/
uint64_t
get_prop_value_count(const inetd_prop_t *prop, const char *name)
{
inetd_prop_t *p;
p = find_prop(prop, name, INET_TYPE_COUNT);
return (p->ip_value.iv_cnt);
}
/*
* get_prop_value_boolean takes an array of inetd_prop_t's together with the
* name of an inetd property and returns the value of the property. It's
* expected that the property exists in the searched array.
*/
boolean_t
get_prop_value_boolean(const inetd_prop_t *prop, const char *name)
{
inetd_prop_t *p;
p = find_prop(prop, name, INET_TYPE_BOOLEAN);
return (p->ip_value.iv_boolean);
}
/*
* get_prop_value_string takes an array of inetd_prop_t's together with
* the name of an inetd property and returns the value of the property.
* It's expected that the property exists in the searched array.
*/
const char *
get_prop_value_string(const inetd_prop_t *prop, const char *name)
{
inetd_prop_t *p;
p = find_prop(prop, name, INET_TYPE_STRING);
return (p->ip_value.iv_string);
}
/*
* put_prop_value_string_list takes an array of inetd_prop_t's, a name of an
* inetd property, and a value. It copies the value into the property
* in the array. It's expected that the property exists in the searched array.
*/
void
put_prop_value_string_list(inetd_prop_t *prop, const char *name, char **value)
{
inetd_prop_t *p;
p = find_prop(prop, name, INET_TYPE_STRING_LIST);
p->ip_value.iv_string_list = value;
p->ip_error = IVE_VALID;
}
/*
* put_prop_value_count takes an array of inetd_prop_t's, a name of an inetd
* property, and a value. It copies the value into the property
* in the array. It's expected that the property exists in the searched array.
*/
void
put_prop_value_count(inetd_prop_t *prop, const char *name, uint64_t value)
{
inetd_prop_t *p;
p = find_prop(prop, name, INET_TYPE_COUNT);
p->ip_value.iv_cnt = value;
p->ip_error = IVE_VALID;
}
/*
* put_prop_value_int takes an array of inetd_prop_t's, a name of an inetd
* property, and a value. It copies the value into the property
* in the array. It's expected that the property exists in the searched array.
*/
void
put_prop_value_int(inetd_prop_t *prop, const char *name, int64_t value)
{
inetd_prop_t *p;
p = find_prop(prop, name, INET_TYPE_INTEGER);
p->ip_value.iv_int = value;
p->ip_error = IVE_VALID;
}
/*
* put_prop_value_boolean takes an array of inetd_prop_t's, a name of an inetd
* property, and a value. It copies the value into the property
* in the array. It's expected that the property exists in the searched array.
*/
void
put_prop_value_boolean(inetd_prop_t *prop, const char *name, boolean_t value)
{
inetd_prop_t *p;
p = find_prop(prop, name, INET_TYPE_BOOLEAN);
p->ip_value.iv_boolean = value;
p->ip_error = IVE_VALID;
}
/*
* returns the size of the given processors external cache in
* bytes. If the properties required to determine this are not
* present, then the function returns 0.
*/
int
get_ecache_size(Prom_node *node)
{
int *cache_size_p; /* pointer to number of cache lines */
/* find the properties */
if (cache_size_p = (int *)get_prop_val(find_prop(node,
"ecache-size"))) {
return (*cache_size_p);
}
if (cache_size_p = (int *)get_prop_val(find_prop(node,
"l3-cache-size"))) {
return (*cache_size_p);
}
if (cache_size_p = (int *)get_prop_val(find_prop(node,
"l2-cache-size"))) {
return (*cache_size_p);
}
return (0);
}
static sql_rel *
rel_remote_func(mvc *sql, sql_rel *rel)
{
if (!rel)
return rel;
switch (rel->op) {
case op_basetable:
case op_table:
break;
case op_join:
case op_left:
case op_right:
case op_full:
case op_apply:
case op_semi:
case op_anti:
case op_union:
case op_inter:
case op_except:
rel->l = rel_remote_func(sql, rel->l);
rel->r = rel_remote_func(sql, rel->r);
break;
case op_project:
case op_select:
case op_groupby:
case op_topn:
case op_sample:
rel->l = rel_remote_func(sql, rel->l);
break;
case op_ddl:
rel->l = rel_remote_func(sql, rel->l);
if (rel->r)
rel->r = rel_remote_func(sql, rel->r);
break;
case op_insert:
case op_update:
case op_delete:
rel->r = rel_remote_func(sql, rel->r);
break;
}
if (find_prop(rel->p, PROP_REMOTE) != NULL) {
list *exps = rel_projections(sql, rel, NULL, 1, 1);
rel = rel_relational_func(sql->sa, rel, exps);
}
return rel;
}
/*
* put_prop_value_string takes an array of inetd_prop_t's, a name of an inetd
* property, and a value. It duplicates the value into the property
* in the array, and returns B_TRUE for success and B_FALSE for failure. It's
* expected that the property exists in the searched array.
*/
boolean_t
put_prop_value_string(inetd_prop_t *prop, const char *name, const char *value)
{
inetd_prop_t *p;
if (strlen(value) >= scf_limit(SCF_LIMIT_MAX_VALUE_LENGTH)) {
errno = E2BIG;
return (B_FALSE);
}
p = find_prop(prop, name, INET_TYPE_STRING);
if ((p->ip_value.iv_string = strdup(value)) == NULL)
return (B_FALSE);
p->ip_error = IVE_VALID;
return (B_TRUE);
}
/*
* Return the operating frequency of a processor in Hertz. This function
* requires as input a legal prom node pointer. If a NULL
* is passed in or the clock-frequency property does not exist, the
* function returns 0.
*/
uint_t
get_cpu_freq(Prom_node *pnode)
{
Prop *prop;
uint_t *value;
/* find the property */
if ((prop = find_prop(pnode, "clock-frequency")) == NULL) {
return (0);
}
if ((value = (uint_t *)get_prop_val(prop)) == NULL) {
return (0);
}
return (*value);
}
static JSValueRef getProperty(JSContextRef jscore_ctx, JSObjectRef object, JSStringRef propertyName, JSValueRef *exception)
{
pdf_jsimp *imp;
char buf[STRING_BUF_SIZE];
prop *p;
JSValueRef res = NULL;
priv_data *pdata = JSObjectGetPrivate(object);
if (pdata == NULL)
return NULL;
JSStringGetUTF8CString(propertyName, buf, STRING_BUF_SIZE);
p = find_prop(pdata->type->props, buf);
if (p == NULL)
return NULL;
imp = pdata->type->imp;
switch(p->type)
{
case PROP_FN:
{
/*
For some reason passing the method pointer as private data doesn't work: the data comes back
NULL when interrogated in callMethod above. So we also specify the method name when
creating the function so that we can look it up again in callMethod. Not ideal, but
will do until we can find a better solution.
*/
JSObjectRef ores = JSObjectMakeFunctionWithCallback(jscore_ctx, propertyName, callMethod);
JSObjectSetPrivate(ores, p->u.fn.meth);
res = ores;
}
break;
case PROP_VAL:
{
pdf_jsimp_obj *pres = p->u.val.get(imp->nat_ctx, pdata->natobj);
res = pres->ref;
pdf_jsimp_drop_obj(imp, pres);
}
break;
}
return res;
}
/*ARGSUSED*/
static void
sun4v_display_hw_revisions(Prom_node *root, picl_nodehdl_t plafh)
{
Prom_node *pnode;
char *value;
char platbuf[MAXSTRLEN];
char *fmt = "%-20s %-40s %-30s %-9s";
log_printf(dgettext(TEXT_DOMAIN, "\n"
"========================= HW Revisions "
"=======================================\n\n"));
log_printf(dgettext(TEXT_DOMAIN,
"System PROM revisions:\n"
"----------------------\n"));
pnode = dev_find_node(root, "openprom");
if (pnode != NULL) {
value = (char *)get_prop_val(find_prop(pnode, "version"));
log_printf(value);
}
log_printf(dgettext(TEXT_DOMAIN, "\n\n"
"IO ASIC revisions:\n"
"------------------\n"));
log_printf(fmt, "Location", "Path", "Device", "Revision\n", 0);
log_printf(fmt, "--------------------",
"----------------------------------------",
"------------------------------",
"---------\n", 0);
/* Get platform name, if that fails, use montoya name by default */
if (sysinfo(SI_PLATFORM, platbuf, sizeof (platbuf)) == -1) {
(void) strcpy(platbuf, MONTOYA_PLATFORM);
}
(void) picl_walk_tree_by_class(plafh, PCIEX,
PCIEX, montoya_hw_rev_callback);
(void) picl_walk_tree_by_class(plafh, PCI,
PCI, montoya_hw_rev_callback);
(void) picl_walk_tree_by_class(plafh, NETWORK,
NETWORK, montoya_hw_rev_callback);
(void) picl_walk_tree_by_class(plafh, SCSI2, SCSI2,
montoya_hw_rev_callback);
}
/*
* Do a depth-first walk of a device tree and
* return the first node with the matching model.
*/
static Prom_node *
dev_find_node_by_compat(Prom_node *root, char *compat)
{
Prom_node *node;
char *compatible;
char *name;
if (root == NULL)
return (NULL);
if (compat == NULL)
return (NULL);
name = get_node_name(root);
if (name == NULL)
name = "";
compatible = (char *)get_prop_val(find_prop(root, "compatible"));
if (compatible == NULL)
return (NULL);
if ((strcmp(name, "pci") == 0) && (compatible != NULL) &&
(strcmp(compatible, compat) == 0)) {
return (root); /* found a match */
}
/* look at your children first */
if ((node = dev_find_node_by_compat(root->child, compat)) != NULL)
return (node);
/* now look at your siblings */
if ((node = dev_find_node_by_compat(root->sibling, compat)) != NULL)
return (node);
return (NULL); /* not found */
}
static JSValueRef callMethod(JSContextRef jscore_ctx, JSObjectRef function, JSObjectRef thisObject, size_t argumentCount, const JSValueRef arguments[], JSValueRef *exception)
{
pdf_jsimp *imp;
fz_context *ctx;
pdf_jsimp_obj *res = NULL;
JSValueRef resref = NULL;
int i;
pdf_jsimp_obj **args = NULL;
pdf_jsimp_method *meth = JSObjectGetPrivate(function);
priv_data *pdata = JSObjectGetPrivate(thisObject);
if (meth == NULL)
{
/*
The attempt to store the method pointer as private data failed, so we
turn the function into a string, which will have the form "function name() xxx",
and then lookup the name.
*/
char name[STRING_BUF_SIZE];
char *np;
char *bp;
JSStringRef jname = JSValueToStringCopy(jscore_ctx, function, NULL);
prop *p;
JSStringGetUTF8CString(jname, name, STRING_BUF_SIZE);
if (strlen(name) >= FUNCTION_PREAMBLE_LEN)
{
np = name + FUNCTION_PREAMBLE_LEN; /* strlen("function "); */
bp = strchr(np, '(');
if (bp)
*bp = 0;
p = find_prop(pdata->type->props, np);
if (p && p->type == PROP_FN)
{
meth = p->u.fn.meth;
}
}
JSStringRelease(jname);
}
if (meth == NULL || pdata == NULL)
return JSValueMakeUndefined(jscore_ctx);
imp = pdata->type->imp;
ctx = imp->ctx;
fz_var(args);
fz_var(res);
fz_try(ctx)
{
args = fz_malloc_array(ctx, argumentCount, sizeof(pdf_jsimp_obj));
for (i = 0; i < argumentCount; i++)
args[i] = wrap_val(imp, arguments[i]);
res = meth(imp->nat_ctx, pdata->natobj, argumentCount, args);
if (res)
resref = res->ref;
}
fz_always(ctx)
{
if (args)
{
for (i = 0; i < argumentCount; i++)
pdf_jsimp_drop_obj(imp, args[i]);
fz_free(ctx, args);
}
pdf_jsimp_drop_obj(imp, res);
}
fz_catch(ctx)
{
return JSValueMakeUndefined(jscore_ctx);
}
return resref;
}
/*
* Display the CPUs present on this board.
*/
void
display_cpus(Board_node *board)
{
Prom_node *cpu;
/*
* display the CPUs' operating frequency, cache size, impl. field
* and mask revision.
*/
for (cpu = dev_find_type(board->nodes, "cpu"); cpu != NULL;
cpu = dev_next_type(cpu, "cpu")) {
int freq; /* CPU clock frequency */
int ecache_size; /* External cache size */
int *mid;
int *impl;
int *mask, decoded_mask;
mid = (int *)get_prop_val(find_prop(cpu, "upa-portid"));
if (mid == NULL) {
mid = (int *)get_prop_val(find_prop(cpu, "portid"));
}
freq = (get_cpu_freq(cpu) + 500000) / 1000000;
ecache_size = get_ecache_size(cpu);
impl = (int *)get_prop_val(find_prop(cpu, "implementation#"));
mask = (int *)get_prop_val(find_prop(cpu, "mask#"));
/* Do not display a failed CPU node */
if ((freq != 0) && (node_failed(cpu) == 0)) {
/* Board number */
display_boardnum(board->board_num);
/* CPU MID */
log_printf(" %2d ", *mid, 0);
/* Module number */
display_mid(*mid);
/* Running frequency */
log_printf(" %3d ", freq, 0);
/* Ecache size */
if (ecache_size == 0)
log_printf(" %3s ", "N/A", 0);
else
log_printf(" %4.1f ",
(float)ecache_size / (float)(1<<20),
0);
/* Implementation */
if (impl == NULL) {
log_printf("%6s ", "N/A", 0);
} else {
switch (*impl) {
case SPITFIRE_IMPL:
log_printf("%-6s ", "US-I", 0);
break;
case BLACKBIRD_IMPL:
log_printf("%-6s ", "US-II", 0);
break;
case CHEETAH_IMPL:
log_printf("%-6s ", "US-III", 0);
break;
case CHEETAH_PLUS_IMPL:
log_printf("%-7s ", "US-III+", 0);
break;
case JAGUAR_IMPL:
log_printf("%-6s ", "US-IV", 0);
break;
default:
log_printf("%-6x ", *impl, 0);
break;
}
}
/* CPU Mask */
if (mask == NULL) {
log_printf(" %3s", "N/A", 0);
} else {
if ((impl) && IS_CHEETAH(*impl))
decoded_mask =
REMAP_CHEETAH_MASK(*mask);
else
decoded_mask = *mask;
log_printf(" %d.%d", (decoded_mask >> 4) & 0xf,
decoded_mask & 0xf, 0);
}
log_printf("\n", 0);
}
}
static sql_rel *
distribute(mvc *sql, sql_rel *rel)
{
sql_rel *l = NULL, *r = NULL;
prop *p, *pl, *pr;
if (!rel)
return rel;
if (rel_is_ref(rel)) {
if (has_remote_or_replica(rel)) {
sql_rel *nrel = rel_copy(sql->sa, rel);
if (nrel && rel->p)
nrel->p = prop_copy(sql->sa, rel->p);
rel_destroy(rel);
rel = nrel;
} else {
return rel;
}
}
switch (rel->op) {
case op_basetable: {
sql_table *t = rel->l;
/* set_remote() */
if (isRemote(t)) {
char *uri = t->query;
p = rel->p = prop_create(sql->sa, PROP_REMOTE, rel->p);
p->value = uri;
}
}
case op_table:
break;
case op_join:
case op_left:
case op_right:
case op_full:
case op_apply:
case op_semi:
case op_anti:
case op_union:
case op_inter:
case op_except:
l = rel->l = distribute(sql, rel->l);
r = rel->r = distribute(sql, rel->r);
if (l && (pl = find_prop(l->p, PROP_REMOTE)) != NULL &&
r && (pr = find_prop(r->p, PROP_REMOTE)) == NULL) {
r = rel->r = distribute(sql, replica(sql, rel->r, pl->value));
} else if (l && (pl = find_prop(l->p, PROP_REMOTE)) == NULL &&
r && (pr = find_prop(r->p, PROP_REMOTE)) != NULL) {
l = rel->l = distribute(sql, replica(sql, rel->l, pr->value));
}
if (l && (pl = find_prop(l->p, PROP_REMOTE)) != NULL &&
r && (pr = find_prop(r->p, PROP_REMOTE)) != NULL &&
strcmp(pl->value, pr->value) == 0) {
l->p = prop_remove(l->p, pl);
r->p = prop_remove(r->p, pr);
pl->p = rel->p;
rel->p = pl;
}
break;
case op_project:
case op_select:
case op_groupby:
case op_topn:
case op_sample:
rel->l = distribute(sql, rel->l);
l = rel->l;
if (l && (p = find_prop(l->p, PROP_REMOTE)) != NULL) {
l->p = prop_remove(l->p, p);
p->p = rel->p;
rel->p = p;
}
break;
case op_ddl:
rel->l = distribute(sql, rel->l);
if (rel->r)
rel->r = distribute(sql, rel->r);
break;
case op_insert:
case op_update:
case op_delete:
rel->r = distribute(sql, rel->r);
break;
}
return rel;
}
static void
display_schizo_revisions(Board_node *bdlist)
{
Prom_node *pnode;
int *int_val;
int portid;
int prev_portid = -1;
char *status_a = NULL;
char *status_b = NULL;
int revision;
#ifdef DEBUG
uint32_t a_notes, b_notes;
#endif
int pci_bus;
Board_node *bnode;
bnode = bdlist;
while (bnode != NULL) {
/*
* search this board node for all Schizos
*/
for (pnode = dev_find_node_by_compat(bnode->nodes,
SCHIZO_COMPAT_PROP); pnode != NULL;
pnode = dev_next_node_by_compat(pnode,
SCHIZO_COMPAT_PROP)) {
/*
* get the reg property to determine
* whether we are looking at side A or B
*/
int_val = (int *)get_prop_val
(find_prop(pnode, "reg"));
if (int_val != NULL) {
int_val ++; /* second integer in array */
pci_bus = ((*int_val) & 0x7f0000);
}
/* get portid */
int_val = (int *)get_prop_val
(find_prop(pnode, "portid"));
if (int_val == NULL)
continue;
portid = *int_val;
/*
* If this is a new portid and it is PCI bus B,
* we skip onto the PCI bus A.
*/
if ((portid != prev_portid) && (pci_bus == 0x700000)) {
prev_portid = portid;
/* status */
status_b = (char *)get_prop_val
(find_prop(pnode, "status"));
#ifdef DEBUG
b_notes = pci_bus;
#endif
continue; /* skip to the next schizo */
}
/*
* This must be side A of the same Schizo.
* Gather all its props and display them.
*/
#ifdef DEBUG
a_notes = pci_bus;
#endif
prev_portid = portid;
int_val = (int *)get_prop_val
(find_prop(pnode, "version#"));
if (int_val != NULL)
revision = *int_val;
else
revision = -1;
status_a = (char *)get_prop_val(find_prop
(pnode, "status"));
log_printf(dgettext(TEXT_DOMAIN, "Schizo "));
log_printf(dgettext(TEXT_DOMAIN, "%-3d "), portid, 0);
log_printf((status_a == NULL && status_b == NULL) ?
dgettext(TEXT_DOMAIN, " ok ") :
dgettext(TEXT_DOMAIN, " fail "));
log_printf(dgettext(TEXT_DOMAIN, " %4d "),
revision);
#ifdef DEBUG
log_printf(" 0x%x 0x%x", a_notes, b_notes);
#endif
log_printf("\n");
}
bnode = bnode->next;
}
}
/*
* Fills in the i/o card list to be displayed later in display_pci();
*/
void
fill_pci_card_list(Prom_node * pci_instance, Prom_node * pci_card_node,
struct io_card *pci_card,
struct io_card **pci_card_list, char **slot_name_arr)
{
Prom_node *pci_bridge_node;
Prom_node *pci_parent_bridge;
int *int_val;
int pci_bridge = FALSE;
int pci_bridge_dev_no = -1;
int portid;
int pci_bus;
char buf[MAXSTRLEN];
char *slot_name = NULL; /* info in "slot-names" prop */
char *child_name;
char *name;
char *type;
void *value;
while (pci_card_node != NULL) {
int is_pci = FALSE;
type = NULL;
name = NULL;
/* If it doesn't have a name, skip it */
name = (char *)get_prop_val(
find_prop(pci_card_node, "name"));
if (name == NULL) {
pci_card_node = pci_card_node->sibling;
continue;
}
/*
* Get the portid of the schizo that this card
* lives under.
*/
portid = -1;
value = get_prop_val(find_prop(pci_instance, "portid"));
if (value != NULL) {
portid = *(int *)value;
}
pci_card->schizo_portid = portid;
/*
* Find out whether this is PCI bus A or B
* using the 'reg' property.
*/
int_val = (int *)get_prop_val(find_prop(pci_instance, "reg"));
if (int_val != NULL) {
int_val++; /* skip over first integer */
pci_bus = ((*int_val) & 0x7f0000);
if (pci_bus == 0x600000)
pci_card->pci_bus = 'A';
else if (pci_bus == 0x700000)
pci_card->pci_bus = 'B';
else
pci_card->pci_bus = '-';
} else {
pci_card->pci_bus = '-';
}
/*
* get dev# and func# for this card from the
* 'reg' property.
*/
int_val = (int *)get_prop_val(
find_prop(pci_card_node, "reg"));
if (int_val != NULL) {
pci_card->dev_no = (((*int_val) & 0xF800) >> 11);
pci_card->func_no = (((*int_val) & 0x700) >> 8);
} else {
/*
* display_pci
* Display all the PCI IO cards on this board.
*/
void
display_pci(Board_node *board)
{
struct io_card *card_list = NULL;
struct io_card card;
void *value;
Prom_node *pci;
Prom_node *card_node;
Prom_node *pci_bridge_node = NULL;
char *slot_name_arr[MAX_SLOTS_PER_IO_BD] = {NULL};
char *slot_name = NULL;
int slot_name_bits;
int slot_name_offset = 0;
char *child_name;
char *name, *type;
char buf[MAXSTRLEN];
int *int_val;
int pci_bus;
int pci_bridge = 0;
int pci_bridge_dev_no;
int child_dev_no;
int i;
int portid;
int version, *pversion;
if (board == NULL)
return;
/* Initialize all the common information */
card.display = TRUE;
card.board = board->board_num;
card.node_id = board->node_id;
/*
* Search for each schizo, then find/display all nodes under
* each schizo node found. Since the model property "SUNW,schizo"
* is not supported on Starcat, we must match on the compatible
* property "pci108e,8001".
*/
for (pci = dev_find_node_by_compatible(board->nodes, SCHIZO_COMPATIBLE);
pci != NULL;
pci = dev_next_node_by_compatible(pci, SCHIZO_COMPATIBLE)) {
/* set max freq for this board */
board_bus_max_freq = DEFAULT_MAX_FREQ;
/*
* Find out if this is a PCI or cPCI IO Board.
* If "enum-impl" property exists in pci node => cPCI.
*/
value = get_prop_val(find_prop(pci, "enum-impl"));
if (value == NULL) {
(void) sprintf(card.bus_type, "PCI");
} else {
(void) sprintf(card.bus_type, "cPCI");
}
if (strstr((char *)get_prop_val(
find_prop(pci, "compatible")), XMITS_COMPATIBLE)) {
sprintf(card.notes, "%s", XMITS_COMPATIBLE);
/*
* With XMITS 3.X and PCI-X mode, the bus speed
* can be higher than 66MHZ.
*/
value = (int *)get_prop_val
(find_prop(pci, "module-revision#"));
if (value) {
pversion = (int *)value;
version = *pversion;
if (version >= 4)
board_bus_max_freq = PCIX_MAX_FREQ;
}
} else if (strstr((char *)get_prop_val(
find_prop(pci, "compatible")), SCHIZO_COMPATIBLE))
sprintf(card.notes, "%s", SCHIZO_COMPATIBLE);
else
sprintf(card.notes, " ");
/*
* Get slot-names property from parent node and
* store the individual slot names in an array.
* This is more general than Starcat requires, but
* it is correct, according to the slot-names property.
*/
value = (char *)get_prop_val(find_prop(pci, "slot-names"));
if (value == NULL) {
/*
* No slot_names property. This could be an Xmits
* card, so check the child node for slot-names property
*/
value = (char *)get_prop_val(
find_prop(pci->child, "slot-names"));
}
if (value != NULL) {
/* Get the 4 byte bitmask and pointer to first name */
slot_name_bits = *(int *)value;
if (slot_name_bits > 0)
slot_name_offset = slot_name_bits - 1;
slot_name = (char *)value + sizeof (int);
for (i = 0; i < MAX_SLOTS_PER_IO_BD; i++) {
if (! (slot_name_bits & (1 << i))) {
slot_name_arr[i] = (char *)NULL;
continue;
}
/*
* Save the name pointer into the array
* and advance it past the end of this
* slot name
*/
slot_name_arr[i] = slot_name;
slot_name += strlen(slot_name) + 1;
}
slot_name = (char *)NULL;
}
/*
* Search for Children of this node ie. Cards.
* Note: any of these cards can be a pci-bridge
* that itself has children. If we find a
* pci-bridge we need to handle it specially.
*/
card_node = pci->child;
while (card_node != NULL) {
pci_bridge = 0;
/* If it doesn't have a name, skip it */
name = (char *)get_prop_val(
find_prop(card_node, "name"));
if (name == NULL) {
card_node = card_node->sibling;
continue;
}
/*
* get dev# and func# for this card from the
* 'reg' property.
*/
int_val = (int *)get_prop_val(
find_prop(card_node, "reg"));
if (int_val != NULL) {
card.dev_no = (((*int_val) & 0xF800) >> 11);
card.func_no = (((*int_val) & 0x700) >> 8);
} else {
card.dev_no = -1;
card.func_no = -1;
}
/*
* If this is a pci-bridge, then store it's dev#
* as its children nodes need this to get their slot#.
* We set the pci_bridge flag so that we know we are
* looking at a pci-bridge node. This flag gets reset
* every time we enter this while loop.
*/
/*
* Check for a PCI-PCI Bridge for PCI and cPCI
* IO Boards using the name and type properties.
*/
type = (char *)get_prop_val(
find_prop(card_node, "device_type"));
if ((type != NULL) &&
(strncmp(name, "pci", 3) == 0) &&
(strcmp(type, "pci") == 0)) {
pci_bridge_dev_no = card.dev_no;
pci_bridge_node = card_node;
pci_bridge = TRUE;
}
/*
* Get slot-names property from slot_names_arr.
* If we are the child of a pci_bridge we use the
* dev# of the pci_bridge as an index to get
* the slot number. We know that we are a child of
* a pci-bridge if our parent is the same as the last
* pci_bridge node found above.
*/
if (card.dev_no != -1) {
/*
* We compare this card's parent node with the
* pci_bridge_node to see if it's a child.
*/
if (card_node->parent == pci_bridge_node) {
/* use dev_no of pci_bridge */
child_dev_no = pci_bridge_dev_no - 1;
} else {
/* use card's own dev_no */
child_dev_no = card.dev_no - 1;
}
if (child_dev_no < MAX_SLOTS_PER_IO_BD &&
child_dev_no >= 0 &&
slot_name_arr
[child_dev_no + slot_name_offset] != NULL) {
slot_name = slot_name_arr[
child_dev_no + slot_name_offset];
} else
slot_name = (char *)NULL;
if (slot_name != NULL && slot_name[0] != '\0') {
(void) sprintf(card.slot_str, "%s",
slot_name);
} else {
(void) sprintf(card.slot_str, "-");
}
} else {
(void) sprintf(card.slot_str, "%c", '-');
}
/*
* Get the portid of the schizo that this card
* lives under.
*/
portid = -1;
value = get_prop_val(find_prop(pci, "portid"));
if (value != NULL) {
portid = *(int *)value;
}
card.schizo_portid = portid;
#ifdef DEBUG
(void) sprintf(card.notes, "%s portid [%d]"
" dev_no [%d] slot_name[%s] name_bits[%#x]",
card.notes, portid, card.dev_no,
((slot_name != NULL) ? slot_name : "NULL"),
slot_name_bits);
#endif /* DEBUG */
/*
* Find out whether this is PCI bus A or B
* using the 'reg' property.
*/
int_val = (int *)get_prop_val
(find_prop(pci, "reg"));
if (int_val != NULL) {
int_val ++; /* skip over first integer */
pci_bus = ((*int_val) & 0x7f0000);
if (pci_bus == 0x600000)
card.pci_bus = 'A';
else if (pci_bus == 0x700000)
card.pci_bus = 'B';
else
card.pci_bus = '-';
} else {
card.pci_bus = '-';
}
/*
* Check for failed status.
*/
if (node_failed(card_node))
strcpy(card.status, "fail");
else
strcpy(card.status, "ok");
/* Get the model of this card */
value = get_prop_val(find_prop(card_node, "model"));
if (value == NULL)
card.model[0] = '\0';
else {
(void) sprintf(card.model, "%s", (char *)value);
/*
* If we wish to exclude onboard devices
* (such as SBBC) then this is the place
* and here is how to do it:
*
* if (strcmp(card.model, "SUNW,sbbc") == 0) {
* card_node = card_node->sibling;
* continue;
* }
*/
}
/*
* The card may have a "clock-frequency" but we
* are not interested in that. Instead we get the
* "clock-frequency" of the PCI Bus that the card
* resides on. PCI-A can operate at 33Mhz or 66Mhz
* depending on what card is plugged into the Bus.
* PCI-B always operates at 33Mhz.
*
*/
int_val = get_prop_val(find_prop(pci,
"clock-frequency"));
if (int_val != NULL) {
card.freq = HZ_TO_MHZ(*int_val);
} else {
card.freq = -1;
}
/*
* Figure out how we want to display the name
*/
value = get_prop_val(find_prop(card_node,
"compatible"));
if (value != NULL) {
/* use 'name'-'compatible' */
(void) sprintf(buf, "%s-%s", name,
(char *)value);
} else {
/* just use 'name' */
(void) sprintf(buf, "%s", name);
}
name = buf;
/*
* If this node has children, add the device_type
* of the child to the name value of this card.
*/
child_name = (char *)get_node_name(card_node->child);
if ((card_node->child != NULL) &&
(child_name != NULL)) {
value = get_prop_val(find_prop(card_node->child,
"device_type"));
if (value != NULL) {
/* add device_type of child to name */
(void) sprintf(card.name, "%s/%s (%s)",
name, child_name,
(char *)value);
} else {
/* just add child's name */
(void) sprintf(card.name, "%s/%s",
name, child_name);
}
} else {
/* childless, just the card's name */
(void) sprintf(card.name, "%s", (char *)name);
}
/*
* If this is a pci-bridge, then add the word
* 'pci-bridge' to its model.
*/
if (pci_bridge) {
if (card.model[0] == '\0')
(void) sprintf(card.model,
"%s", "pci-bridge");
else
(void) strcat(card.model,
"/pci-bridge");
}
/* insert this card in the list to be displayed later */
card_list = insert_io_card(card_list, &card);
/*
* If we are dealing with a pci-bridge, we need to move
* down to the children of this bridge, if there are
* any, otherwise its siblings.
*
* If not a bridge, we are either dealing with a regular
* card (in which case we move onto the sibling of this
* card) or we are dealing with a child of a pci-bridge
* (in which case we move onto the child's siblings or
* if there are no more siblings for this child, we
* move onto the parent's siblings). I hope you're
* getting all this, there will be an exam later.
*/
if (pci_bridge) {
if (card_node->child != NULL)
card_node = card_node->child;
else
card_node = card_node->sibling;
} else {
/*
* If our parent is a pci-bridge but there
* are no more of its children to process we
* move back up to our parent's sibling,
* otherwise we move onto our own sibling.
*/
if ((card_node->parent == pci_bridge_node) &&
(card_node->sibling == NULL))
card_node =
pci_bridge_node->sibling;
else
card_node = card_node->sibling;
}
} /* end while (card_node ...) loop */
void
display_cpus(Board_node *board)
{
Prom_node *cpu;
uint_t freq;
int ecache_size;
int *l3_shares;
int *mid;
int *impl;
int *mask;
int *coreid;
char fru_prev = 'X'; /* Valid frus are 'A','B' */
int mid_prev;
int ecache_size_prev = 0;
char fru_name;
/*
* display the CPUs' operating frequency, cache size, impl. field
* and mask revision.
*/
for (cpu = dev_find_type(board->nodes, "cpu"); cpu != NULL;
cpu = dev_next_type(cpu, "cpu")) {
mid = (int *)get_prop_val(find_prop(cpu, "portid"));
if (mid == NULL)
mid = (int *)get_prop_val(find_prop(cpu, "cpuid"));
freq = HZ_TO_MHZ(get_cpu_freq(cpu));
ecache_size = get_ecache_size(cpu);
impl = (int *)get_prop_val(find_prop(cpu, "implementation#"));
mask = (int *)get_prop_val(find_prop(cpu, "mask#"));
l3_shares =
(int *)get_prop_val(find_prop(cpu, "l3-cache-sharing"));
/* Do not display a failed CPU node */
if ((impl == NULL) || (freq == 0) || (node_failed(cpu)))
continue;
fru_name = CHERRYSTONE_GETSLOT_LABEL(*mid);
if (CPU_IMPL_IS_CMP(*impl)) {
coreid = (int *)get_prop_val(find_prop(cpu, "reg"));
if (coreid == NULL) {
continue;
}
if ((fru_prev == 'X') ||
((fru_prev != 'X') &&
(fru_name != fru_prev))) {
fru_prev = fru_name;
mid_prev = *mid;
ecache_size_prev = ecache_size;
continue;
} else {
/*
* Some CMP chips have a split E$,
* so the size for both cores is added
* together to get the total size for
* the chip.
*
* Still, other CMP chips have E$ (L3)
* which is logically shared, so the
* total size is equal to the core size.
*/
if ((l3_shares == NULL) ||
((l3_shares != NULL) &&
MULTIPLE_BITS_SET(*l3_shares))) {
ecache_size += ecache_size_prev;
}
ecache_size_prev = 0;
fru_prev = 'X';
}
}
log_printf(" %c", fru_name);
/* CPU Module ID */
if (CPU_IMPL_IS_CMP(*impl)) {
log_printf("%3d,%3d ", mid_prev, *mid, 0);
} else
log_printf(" %2d ", *mid);
/* Running frequency */
log_printf("%4u", freq);
if (ecache_size == 0)
log_printf(" N/A ");
else
log_printf(" %4.1f ",
(float)ecache_size / (float)(1<<20));
/* Implementation */
if (impl == NULL) {
log_printf(dgettext(TEXT_DOMAIN, " N/A "));
} else {
if (IS_CHEETAH(*impl))
log_printf(dgettext(TEXT_DOMAIN,
"US-III "));
else if (IS_CHEETAH_PLUS(*impl))
log_printf(dgettext(TEXT_DOMAIN,
"US-III+ "));
else if (IS_JAGUAR(*impl))
log_printf(dgettext(TEXT_DOMAIN,
"US-IV "));
else if (IS_PANTHER(*impl))
log_printf(dgettext(TEXT_DOMAIN,
"US-IV+ "));
else
log_printf("%-6x ", *impl);
}
/* CPU Mask */
if (mask == NULL) {
log_printf(dgettext(TEXT_DOMAIN, " N/A\n"));
} else {
log_printf(dgettext(TEXT_DOMAIN, " %d.%d\n"),
(*mask >> 4) & 0xf, *mask & 0xf);
}
}
}
/*
* display_pci
* Display all the PCI IO cards on this board.
*/
void
display_pci(Board_node *board)
{
struct io_card *card_list = NULL;
struct io_card card;
void *value;
Prom_node *pci;
Prom_node *card_node;
static int banner = FALSE;
char *slot_name_arr[NUM_PCI_SLOTS];
int i;
if (board == NULL)
return;
(void) memset(&card, 0, sizeof (struct io_card));
/* Initialize all the common information */
card.display = TRUE;
card.board = board->board_num;
/*
* Search for each pci instance, then find/display all nodes under
* each instance node found.
*/
for (pci = dev_find_node_by_compat(board->nodes, SCHIZO_COMPAT_PROP);
pci != NULL;
pci = dev_next_node_by_compat(pci, SCHIZO_COMPAT_PROP)) {
(void) snprintf(card.bus_type, MAXSTRLEN,
dgettext(TEXT_DOMAIN, "PCI"));
/*
* Get slot-name properties from parent node and
* store them in an array.
*/
value = (char *)get_prop_val(
find_prop(pci, "slot-names"));
if (value != NULL) {
/* array starts after first int */
slot_name_arr[0] = (char *)value + sizeof (int);
for (i = 1; i < NUM_PCI_SLOTS; i++) {
slot_name_arr[i] = (char *)slot_name_arr[i - 1]
+ strlen(slot_name_arr[i - 1]) +1;
}
}
/*
* Search for Children of this node ie. Cards.
* Note: any of these cards can be a pci-bridge
* that itself has children. If we find a
* pci-bridge we need to handle it specially.
*/
card_node = pci->child;
/* Generate the list of pci cards on pci instance: pci */
fill_pci_card_list(pci, card_node, &card, &card_list,
slot_name_arr);
} /* end-for */
if (!banner && card_list != NULL) {
log_printf(dgettext(TEXT_DOMAIN,
" Bus Max\n"
" IO Port Bus Freq Bus Dev,\n"
"Type ID Side Slot MHz Freq Func State "
"Name Model"
#ifdef DEBUG
" Notes"
#endif
"\n"
"---- ---- ---- ---- ---- ---- ---- ----- "
"-------------------------------- "
#ifdef DEBUG
"---------------------- "
#endif
"----------------------\n"));
banner = TRUE;
}
display_io_cards(card_list);
free_io_cards(card_list);
}
int grub_fdt_set_prop (void *fdt, unsigned int nodeoffset, const char *name,
const void *val, grub_uint32_t len)
{
grub_uint32_t *prop;
int prop_name_present = 0;
grub_uint32_t nameoff = 0;
if ((nodeoffset >= grub_fdt_get_size_dt_struct (fdt)) || (nodeoffset & 0x3)
|| (grub_be_to_cpu32(*(grub_uint32_t *) ((grub_addr_t) fdt
+ grub_fdt_get_off_dt_struct (fdt) + nodeoffset))
!= FDT_BEGIN_NODE))
return -1;
prop = find_prop (fdt, nodeoffset, name);
if (prop)
{
grub_uint32_t prop_len = ALIGN_UP(grub_be_to_cpu32 (*(prop + 1)),
sizeof(grub_uint32_t));
grub_uint32_t i;
prop_name_present = 1;
for (i = 0; i < prop_len / sizeof(grub_uint32_t); i++)
*(prop + 3 + i) = grub_cpu_to_be32_compile_time (FDT_NOP);
if (len > ALIGN_UP(prop_len, sizeof(grub_uint32_t)))
{
/* Length of new property value is greater than the space allocated
for the current value: a new entry needs to be created, so save the
nameoff field of the current entry and replace the current entry
with NOP tokens. */
nameoff = grub_be_to_cpu32 (*(prop + 2));
*prop = *(prop + 1) = *(prop + 2) = grub_cpu_to_be32_compile_time (FDT_NOP);
prop = NULL;
}
}
if (!prop || !prop_name_present) {
unsigned int needed_space = 0;
if (!prop)
needed_space = prop_entry_size(len);
if (!prop_name_present)
needed_space += grub_strlen (name) + 1;
if (needed_space > get_free_space (fdt))
return -1;
if (rearrange_blocks (fdt, !prop ? prop_entry_size(len) : 0) < 0)
return -1;
}
if (!prop_name_present) {
/* Append the property name at the end of the strings block. */
nameoff = grub_fdt_get_size_dt_strings (fdt);
grub_strcpy ((char *) fdt + grub_fdt_get_off_dt_strings (fdt) + nameoff,
name);
grub_fdt_set_size_dt_strings (fdt, grub_fdt_get_size_dt_strings (fdt)
+ grub_strlen (name) + 1);
}
if (!prop) {
char *node_name = (char *) ((grub_addr_t) fdt
+ grub_fdt_get_off_dt_struct (fdt) + nodeoffset
+ sizeof(grub_uint32_t));
prop = (void *) (node_name + ALIGN_UP(grub_strlen(node_name) + 1, 4));
grub_memmove (prop + prop_entry_size(len) / sizeof(*prop), prop,
struct_end(fdt) - (grub_addr_t) prop);
grub_fdt_set_size_dt_struct (fdt, grub_fdt_get_size_dt_struct (fdt)
+ prop_entry_size(len));
*prop = grub_cpu_to_be32_compile_time (FDT_PROP);
*(prop + 2) = grub_cpu_to_be32 (nameoff);
}
*(prop + 1) = grub_cpu_to_be32 (len);
/* Insert padding bytes at the end of the value; if they are not needed, they
will be overwritten by the following memcpy. */
*(prop + prop_entry_size(len) / sizeof(grub_uint32_t) - 1) = 0;
grub_memcpy (prop + 3, val, len);
return 0;
}