static int
amd_dramchan_create(topo_mod_t *mod, tnode_t *pnode, const char *name,
nvlist_t *auth)
{
tnode_t *chnode;
nvlist_t *fmri;
char *socket;
int i, nchan;
nvlist_t *pfmri = NULL;
int err, nerr = 0;
/*
* We will enumerate the number of channels present even if only
* channel A is in use (i.e., running in 64-bit mode). Only
* the socket 754 package has a single channel.
*/
if (topo_prop_get_string(pnode, PGNAME(MCT), "socket",
&socket, &err) == 0 && strcmp(socket, "Socket 754") == 0)
nchan = 1;
else
nchan = 2;
topo_mod_strfree(mod, socket);
if (topo_node_range_create(mod, pnode, name, 0, nchan - 1) < 0)
return (-1);
(void) topo_node_fru(pnode, &pfmri, NULL, &err);
for (i = 0; i < nchan; i++) {
if (mkrsrc(mod, pnode, name, i, auth, &fmri) != 0) {
whinge(mod, &nerr, "amd_dramchan_create: mkrsrc "
"failed\n");
continue;
}
if ((chnode = topo_node_bind(mod, pnode, name, i, fmri))
== NULL) {
nvlist_free(fmri);
whinge(mod, &nerr, "amd_dramchan_create: node bind "
"failed\n");
continue;
}
(void) topo_node_asru_set(chnode, fmri, 0, &err);
if (pfmri)
(void) topo_node_fru_set(chnode, pfmri, 0, &err);
nvlist_free(fmri);
(void) topo_pgroup_create(chnode, &chan_pgroup, &err);
(void) topo_prop_set_string(chnode, PGNAME(CHAN), "channel",
TOPO_PROP_IMMUTABLE, i == 0 ? "A" : "B", &err);
}
nvlist_free(pfmri);
return (nerr == 0 ? 0 : -1);
}
static nvlist_t *
amd_lookup_by_mcid(topo_mod_t *mod, topo_instance_t id)
{
mc_snapshot_info_t mcs;
void *buf = NULL;
uint8_t ver;
nvlist_t *nvl = NULL;
char path[64];
int fd, err;
(void) snprintf(path, sizeof (path), "/dev/mc/mc%d", id);
fd = open(path, O_RDONLY);
if (fd == -1) {
/*
* Some v20z and v40z systems may have had the 3rd-party
* NWSnps packagae installed which installs a /dev/mc
* link. So try again via /devices.
*/
(void) snprintf(path, sizeof (path),
"/devices/pci@0,0/pci1022,1102@%x,2:mc-amd",
MC_AMD_DEV_OFFSET + id);
fd = open(path, O_RDONLY);
}
if (fd == -1)
return (NULL); /* do not whinge */
if (ioctl(fd, MC_IOC_SNAPSHOT_INFO, &mcs) == -1 ||
(buf = topo_mod_alloc(mod, mcs.mcs_size)) == NULL ||
ioctl(fd, MC_IOC_SNAPSHOT, buf) == -1) {
whinge(mod, NULL, "mc failed to snapshot %s: %s\n",
path, strerror(errno));
free(buf);
(void) close(fd);
return (NULL);
}
(void) close(fd);
err = nvlist_unpack(buf, mcs.mcs_size, &nvl, 0);
topo_mod_free(mod, buf, mcs.mcs_size);
if (nvlist_lookup_uint8(nvl, MC_NVLIST_VERSTR, &ver) != 0) {
whinge(mod, NULL, "mc nvlist is not versioned\n");
nvlist_free(nvl);
return (NULL);
} else if (ver != MC_NVLIST_VERS1) {
whinge(mod, NULL, "mc nvlist version mismatch\n");
nvlist_free(nvl);
return (NULL);
}
return (err ? NULL : nvl);
}
static int
amd_cs_create(topo_mod_t *mod, tnode_t *pnode, const char *name, nvlist_t *mc,
nvlist_t *auth)
{
int i, err, nerr = 0;
nvpair_t *nvp;
tnode_t *csnode;
nvlist_t *fmri, **csarr = NULL;
uint64_t csnum;
uint_t ncs;
if (nvlist_lookup_nvlist_array(mc, "cslist", &csarr, &ncs) != 0)
return (-1);
if (ncs == 0)
return (0); /* no chip-selects configured on this node */
if (topo_node_range_create(mod, pnode, name, 0, MAX_CSNUM) < 0)
return (-1);
for (i = 0; i < ncs; i++) {
if (nvlist_lookup_uint64(csarr[i], "num", &csnum) != 0) {
whinge(mod, &nerr, "amd_cs_create: cs num property "
"missing\n");
continue;
}
if (mkrsrc(mod, pnode, name, csnum, auth, &fmri) != 0) {
whinge(mod, &nerr, "amd_cs_create: mkrsrc failed\n");
continue;
}
if ((csnode = topo_node_bind(mod, pnode, name, csnum, fmri))
== NULL) {
nvlist_free(fmri);
whinge(mod, &nerr, "amd_cs_create: node bind failed\n");
continue;
}
cs_fmri[csnum] = fmri; /* nvlist will be freed in mc_create */
(void) topo_node_asru_set(csnode, fmri, 0, &err);
(void) topo_node_fru_set(csnode, fmri, 0, &err);
(void) topo_pgroup_create(csnode, &cs_pgroup, &err);
for (nvp = nvlist_next_nvpair(csarr[i], NULL); nvp != NULL;
nvp = nvlist_next_nvpair(csarr[i], nvp)) {
nerr += nvprop_add(mod, nvp, PGNAME(CS), csnode);
}
}
return (nerr == 0 ? 0 : -1);
}
static tnode_t *
create_node(topo_mod_t *mod, tnode_t *pnode, nvlist_t *auth, char *name,
topo_instance_t inst, uint16_t smbios_id)
{
nvlist_t *fmri;
tnode_t *cnode;
if (mkrsrc(mod, pnode, name, inst, auth, &fmri) != 0) {
whinge(mod, NULL, "create_node: mkrsrc failed\n");
return (NULL);
}
if (FM_AWARE_SMBIOS(mod)) {
id_t phys_cpu_smbid;
int perr = 0;
const char *serial = NULL;
const char *part = NULL;
const char *rev = NULL;
phys_cpu_smbid = smbios_id;
serial = chip_serial_smbios_get(mod, phys_cpu_smbid);
part = chip_part_smbios_get(mod, phys_cpu_smbid);
rev = chip_rev_smbios_get(mod, phys_cpu_smbid);
perr += nvlist_add_string(fmri, FM_FMRI_HC_SERIAL_ID,
serial);
perr += nvlist_add_string(fmri, FM_FMRI_HC_PART,
part);
perr += nvlist_add_string(fmri, FM_FMRI_HC_REVISION,
rev);
if (perr != 0)
whinge(mod, NULL,
"create_node: nvlist_add_string failed\n");
topo_mod_strfree(mod, (char *)serial);
topo_mod_strfree(mod, (char *)part);
topo_mod_strfree(mod, (char *)rev);
}
cnode = topo_node_bind(mod, pnode, name, inst, fmri);
nvlist_free(fmri);
if (cnode == NULL) {
whinge(mod, NULL, "create_node: node bind failed"
" for %s %d\n", name, (int)inst);
}
return (cnode);
}
int
_topo_init(topo_mod_t *mod)
{
if (getenv("TOPOCHIPDBG"))
topo_mod_setdebug(mod);
topo_mod_dprintf(mod, "initializing chip enumerator\n");
if (topo_mod_register(mod, &chip_info, TOPO_VERSION) != 0) {
whinge(mod, NULL, "failed to register hc: "
"%s\n", topo_mod_errmsg(mod));
return (-1); /* mod errno set */
}
return (0);
}
static int
amd_htconfig(topo_mod_t *mod, tnode_t *cnode, nvlist_t *htnvl)
{
nvpair_t *nvp;
int nerr = 0;
if (strcmp(topo_node_name(cnode), CHIP_NODE_NAME) != 0) {
whinge(mod, &nerr, "amd_htconfig: must pass a chip node!");
return (-1);
}
for (nvp = nvlist_next_nvpair(htnvl, NULL); nvp != NULL;
nvp = nvlist_next_nvpair(htnvl, nvp)) {
if (nvprop_add(mod, nvp, PGNAME(CHIP), cnode) != 0)
nerr++;
}
return (nerr == 0 ? 0 : -1);
}
void
show_file(char *title, char *fname)
{
FILE *fp;
char line[1024];
int n;
if (!Quiet)
printf("%s%s", InfoPrefix, title);
fp = fopen(fname, "r");
if (!fp) {
whinge("show_file: Can't open '%s' for reading.", fname);
return;
}
while (n = fread(line, 1, 1024, fp))
fwrite(line, 1, n, stdout);
fclose(fp);
printf("\n"); /* just in case */
}
/*ARGSUSED*/
static int
create_chips(topo_mod_t *mod, tnode_t *pnode, const char *name,
topo_instance_t min, topo_instance_t max, void *arg, nvlist_t *auth,
int mc_offchip)
{
fmd_agent_hdl_t *hdl;
nvlist_t **cpus;
int nerr = 0;
uint_t i, ncpu;
if (strcmp(name, CHIP_NODE_NAME) != 0)
return (0);
if ((hdl = fmd_agent_open(FMD_AGENT_VERSION)) == NULL)
return (-1);
if (fmd_agent_physcpu_info(hdl, &cpus, &ncpu) != 0) {
whinge(mod, NULL, "create_chip: fmd_agent_physcpu_info "
"failed: %s\n", fmd_agent_errmsg(hdl));
fmd_agent_close(hdl);
return (-1);
}
fmd_agent_close(hdl);
for (i = 0; i < ncpu; i++) {
nerr -= create_chip(mod, pnode, min, max, cpus[i], auth,
mc_offchip);
nvlist_free(cpus[i]);
}
umem_free(cpus, sizeof (nvlist_t *) * ncpu);
if (nerr == 0) {
return (0);
} else {
(void) topo_mod_seterrno(mod, EMOD_PARTIAL_ENUM);
return (-1);
}
}
/*ARGSUSED*/
static int
chip_enum(topo_mod_t *mod, tnode_t *pnode, const char *name,
topo_instance_t min, topo_instance_t max, void *arg, void *smbios_enabled)
{
int rv = 0;
nvlist_t *auth = NULL;
int offchip_mc;
char buf[BUFSIZ];
const char *dom0 = "control_d";
/*
* Create nothing if we're running in domU.
*/
if (sysinfo(SI_PLATFORM, buf, sizeof (buf)) == -1)
return (-1);
if (strncmp(buf, "i86pc", sizeof (buf)) != 0 &&
strncmp(buf, "i86xpv", sizeof (buf)) != 0)
return (0);
if (strncmp(buf, "i86xpv", sizeof (buf)) == 0) {
int fd = open("/dev/xen/domcaps", O_RDONLY);
if (fd != -1) {
if (read(fd, buf, sizeof (buf)) <= 0 ||
strncmp(buf, dom0, strlen(dom0)) != 0) {
(void) close(fd);
return (0);
}
(void) close(fd);
}
}
/*
* Set Chip Enumerator Module's private data with the value passed by
* x86pi Enumerator, defining SMBIOS capabilities
*/
topo_mod_setspecific(mod, smbios_enabled);
if (FM_AWARE_SMBIOS(mod))
if (init_chip_smbios(mod) != 0) {
whinge(mod, NULL,
"init_chip_smbios() failed, "
" enumerating x86pi & chip topology, but no"
" CPU & Memory properties will be"
" derived from SMBIOS\n");
/*
* Lets reset the module specific
* data to NULL, overriding any
* SMBIOS capability encoded earlier.
* This will fail all subsequent
* FM_AWARE_SMBIOS checks.
*/
topo_mod_setspecific(mod, NULL);
}
auth = topo_mod_auth(mod, pnode);
offchip_mc = mc_offchip_open();
if (strcmp(name, CHIP_NODE_NAME) == 0)
rv = create_chips(mod, pnode, name, min, max, NULL, auth,
offchip_mc);
if (offchip_mc)
(void) mc_offchip_create(mod, pnode, "memory-controller", auth);
nvlist_free(auth);
return (rv);
}
static int
create_chip(topo_mod_t *mod, tnode_t *pnode, topo_instance_t min,
topo_instance_t max, nvlist_t *cpu, nvlist_t *auth,
int mc_offchip)
{
tnode_t *chip;
nvlist_t *fmri = NULL;
int err, perr, nerr = 0;
int32_t chipid, procnodeid, procnodes_per_pkg;
const char *vendor;
int32_t family, model;
boolean_t create_mc = B_FALSE;
uint16_t smbios_id;
/*
* /dev/fm will export the chipid based on SMBIOS' ordering
* of Type-4 structures, if SMBIOS meets FMA needs
*/
err = nvlist_lookup_pairs(cpu, 0,
FM_PHYSCPU_INFO_CHIP_ID, DATA_TYPE_INT32, &chipid,
FM_PHYSCPU_INFO_NPROCNODES, DATA_TYPE_INT32, &procnodes_per_pkg,
FM_PHYSCPU_INFO_PROCNODE_ID, DATA_TYPE_INT32, &procnodeid,
FM_PHYSCPU_INFO_VENDOR_ID, DATA_TYPE_STRING, &vendor,
FM_PHYSCPU_INFO_FAMILY, DATA_TYPE_INT32, &family,
FM_PHYSCPU_INFO_MODEL, DATA_TYPE_INT32, &model,
NULL);
if (err) {
whinge(mod, NULL, "create_chip: lookup failed: %s\n",
strerror(err));
return (-1);
}
if (chipid < min || chipid > max)
return (-1);
if (FM_AWARE_SMBIOS(mod)) {
if ((err = nvlist_lookup_uint16(cpu,
FM_PHYSCPU_INFO_SMBIOS_ID, &smbios_id)) != 0) {
whinge(mod, NULL,
"create_chip: lookup smbios_id failed"
": enumerating x86pi & chip topology, but"
" no Chip properties from SMBIOS"
" - err msg : %s\n", strerror(err));
/*
* Lets reset the module specific
* data to NULL, overriding any
* SMBIOS capability encoded earlier.
* This will fail all subsequent
* FM_AWARE_SMBIOS checks.
*/
topo_mod_setspecific(mod, NULL);
}
}
if ((chip = topo_node_lookup(pnode, CHIP_NODE_NAME, chipid)) == NULL) {
if ((chip = create_node(mod, pnode, auth, CHIP_NODE_NAME,
chipid, smbios_id)) == NULL)
return (-1);
/*
* Do not register XML map methods if SMBIOS can provide
* serial, part, revision & label
*/
if (!FM_AWARE_SMBIOS(mod)) {
if (topo_method_register(mod, chip, chip_methods) < 0)
whinge(mod, &nerr, "create_chip: "
"topo_method_register failed\n");
}
(void) topo_pgroup_create(chip, &chip_pgroup, &err);
nerr -= add_nvlist_strprop(mod, chip, cpu, PGNAME(CHIP),
CHIP_VENDOR_ID, NULL);
nerr -= add_nvlist_longprops(mod, chip, cpu, PGNAME(CHIP),
NULL, CHIP_FAMILY, CHIP_MODEL, CHIP_STEPPING, NULL);
if (FM_AWARE_SMBIOS(mod)) {
int fru = 0;
char *serial = NULL;
char *part = NULL;
char *rev = NULL;
char *label;
fru = chip_fru_smbios_get(mod, smbios_id);
/*
* Chip is not a FRU, set the FRU fmri of parent node
*/
if (topo_node_resource(chip, &fmri, &perr) != 0)
whinge(mod, &nerr, "create_chip: "
"topo_node_resource failed\n");
if (!fru) {
(void) topo_node_fru_set(chip, NULL, 0, &perr);
label = NULL;
} else {
label = (char *)chip_label_smbios_get(mod,
pnode, smbios_id, NULL);
if (topo_node_fru_set(chip, fmri, 0, &perr)
!= 0) {
whinge(mod, NULL, "create_chip: "
"topo_node_fru_set failed\n");
perr = 0;
}
}
perr += nvlist_lookup_string(fmri,
FM_FMRI_HC_SERIAL_ID, &serial);
perr += nvlist_lookup_string(fmri,
FM_FMRI_HC_PART, &part);
perr += nvlist_lookup_string(fmri,
FM_FMRI_HC_REVISION, &rev);
if (perr != 0) {
whinge(mod, NULL,
"create_chip: nvlist_lookup_string"
"failed\n");
perr = 0;
}
perr += topo_prop_set_string(chip, PGNAME(CHIP),
FM_FMRI_HC_SERIAL_ID, TOPO_PROP_IMMUTABLE,
serial, &perr);
perr += topo_prop_set_string(chip, PGNAME(CHIP),
FM_FMRI_HC_PART, TOPO_PROP_IMMUTABLE,
part, &perr);
perr += topo_prop_set_string(chip, PGNAME(CHIP),
FM_FMRI_HC_REVISION, TOPO_PROP_IMMUTABLE,
rev, &perr);
if (perr != 0)
whinge(mod, NULL,
"create_chip: topo_prop_set_string"
"failed\n");
nvlist_free(fmri);
if (topo_node_label_set(chip, label, &perr)
== -1) {
whinge(mod, NULL, "create_chip: "
"topo_node_label_set failed\n");
}
topo_mod_strfree(mod, label);
} else {
if (topo_node_resource(chip, &fmri, &err) == -1) {
whinge(mod, &nerr, "create_chip: "
"topo_node_resource failed\n");
} else {
(void) topo_node_fru_set(chip, fmri, 0, &perr);
nvlist_free(fmri);
}
}
if (topo_method_register(mod, chip, strands_retire_methods) < 0)
whinge(mod, &nerr, "create_chip: "
"topo_method_register failed\n");
if (topo_node_range_create(mod, chip, CORE_NODE_NAME, 0, 255))
return (-1);
if (strcmp(vendor, "AuthenticAMD") == 0) {
if (topo_node_range_create(mod, chip, MCT_NODE_NAME,
0, 255))
return (-1);
}
create_mc = B_TRUE;
}
if (FM_AWARE_SMBIOS(mod)) {
int status = 0;
/*
* STATUS
* CPU Socket Populated
* CPU Socket Unpopulated
* Populated : Enabled
* Populated : Disabled by BIOS (Setup)
* Populated : Disabled by BIOS (Error)
* Populated : Idle
*
* Enumerate core & strand only for Populated : Enabled
* Enumerate Off-Chip Memory Controller only for
* Populated : Enabled
*/
status = chip_status_smbios_get(mod, (id_t)smbios_id);
if (!status) {
whinge(mod, NULL, "create_chip: "
"CPU Socket is not populated or is disabled\n");
return (0);
}
}
err = create_core(mod, chip, cpu, auth, smbios_id);
/*
* Create memory-controller node under a chip for architectures
* that may have on-chip memory-controller(s).
* If SMBIOS meets FMA needs, when Multi-Chip-Module is
* addressed, mc instances should be derived from SMBIOS
*/
if (strcmp(vendor, "AuthenticAMD") == 0) {
amd_mc_create(mod, smbios_id, chip, MCT_NODE_NAME, auth,
procnodeid, procnodes_per_pkg, family, model, &nerr);
} else if (create_mc && !mc_offchip)
onchip_mc_create(mod, smbios_id, chip, MCT_NODE_NAME, auth);
return (err == 0 && nerr == 0 ? 0 : -1);
}
static int
create_strand(topo_mod_t *mod, tnode_t *pnode, nvlist_t *cpu,
nvlist_t *auth, uint16_t chip_smbiosid)
{
tnode_t *strand;
int32_t strandid, cpuid;
int err, perr, nerr = 0;
nvlist_t *fmri;
char *serial = NULL;
char *part = NULL;
char *rev = NULL;
if ((err = nvlist_lookup_int32(cpu, FM_PHYSCPU_INFO_STRAND_ID,
&strandid)) != 0) {
whinge(mod, NULL, "create_strand: lookup strand_id failed: "
"%s\n", strerror(err));
return (-1);
}
if ((strand = topo_node_lookup(pnode, STRAND_NODE_NAME, strandid))
!= NULL) {
whinge(mod, NULL, "create_strand: duplicate tuple found\n");
return (-1);
}
if ((strand = create_node(mod, pnode, auth, STRAND_NODE_NAME,
strandid, chip_smbiosid)) == NULL)
return (-1);
/*
* Inherit FRU from core node, in native use cpu scheme ASRU,
* in xpv, use hc scheme ASRU.
*/
(void) topo_node_fru_set(strand, NULL, 0, &perr);
/*
* From the inherited FRU, extract the Serial
* number(if SMBIOS donates) and set it in the ASRU
*/
if (FM_AWARE_SMBIOS(mod)) {
char *val = NULL;
if (topo_prop_get_fmri(strand, TOPO_PGROUP_PROTOCOL,
TOPO_PROP_RESOURCE, &fmri, &err) != 0)
whinge(mod, NULL,
"create_strand: topo_prop_get_fmri failed\n");
if (nvlist_lookup_string(fmri, FM_FMRI_HC_SERIAL_ID, &val) != 0)
whinge(mod, NULL,
"create_strand: nvlist_lookup_string failed: \n");
else
serial = topo_mod_strdup(mod, val);
nvlist_free(fmri);
}
if (is_xpv()) {
if (topo_node_resource(strand, &fmri, &err) == -1) {
whinge(mod, &nerr, "create_strand: "
"topo_node_resource failed\n");
} else {
if (FM_AWARE_SMBIOS(mod))
(void) nvlist_add_string(fmri,
FM_FMRI_HC_SERIAL_ID, serial);
(void) topo_node_asru_set(strand, fmri, 0, &err);
nvlist_free(fmri);
}
} else {
if (nvlist_lookup_int32(cpu, STRAND_CPU_ID, &cpuid) != 0) {
whinge(mod, &nerr, "create_strand: lookup cpuid "
"failed\n");
} else {
if ((fmri = cpu_fmri_create(mod, cpuid, serial, 0))
!= NULL) {
(void) topo_node_asru_set(strand, fmri,
0, &err);
nvlist_free(fmri);
} else {
whinge(mod, &nerr, "create_strand: "
"cpu_fmri_create() failed\n");
}
}
}
if (topo_method_register(mod, strand, strands_retire_methods) < 0)
whinge(mod, &nerr, "create_strand: "
"topo_method_register failed\n");
(void) topo_pgroup_create(strand, &strand_pgroup, &err);
nerr -= add_nvlist_longprops(mod, strand, cpu, PGNAME(STRAND), NULL,
STRAND_CHIP_ID, STRAND_PROCNODE_ID, STRAND_CORE_ID, STRAND_CPU_ID,
NULL);
if (FM_AWARE_SMBIOS(mod)) {
(void) topo_node_label_set(strand, NULL, &perr);
if (topo_node_resource(strand, &fmri, &perr) != 0) {
whinge(mod, &nerr, "create_strand: "
"topo_node_resource failed\n");
perr = 0;
}
perr += nvlist_lookup_string(fmri,
FM_FMRI_HC_PART, &part);
perr += nvlist_lookup_string(fmri,
FM_FMRI_HC_REVISION, &rev);
if (perr != 0) {
whinge(mod, NULL,
"create_strand: nvlist_lookup_string failed\n");
perr = 0;
}
perr += topo_prop_set_string(strand, PGNAME(STRAND),
FM_FMRI_HC_SERIAL_ID, TOPO_PROP_IMMUTABLE, serial, &perr);
perr += topo_prop_set_string(strand, PGNAME(STRAND),
FM_FMRI_HC_PART, TOPO_PROP_IMMUTABLE, part, &perr);
perr += topo_prop_set_string(strand, PGNAME(STRAND),
FM_FMRI_HC_REVISION, TOPO_PROP_IMMUTABLE, rev, &perr);
if (perr != 0)
whinge(mod, NULL, "create_strand: topo_prop_set_string"
"failed\n");
nvlist_free(fmri);
topo_mod_strfree(mod, serial);
}
return (err == 0 && nerr == 0 ? 0 : -1);
}
static int
create_core(topo_mod_t *mod, tnode_t *pnode, nvlist_t *cpu,
nvlist_t *auth, uint16_t chip_smbiosid)
{
tnode_t *core;
int32_t coreid, cpuid;
int err, perr, nerr = 0;
nvlist_t *fmri;
char *serial = NULL;
char *part = NULL;
char *rev = NULL;
if ((err = nvlist_lookup_int32(cpu, FM_PHYSCPU_INFO_CORE_ID, &coreid))
!= 0) {
whinge(mod, NULL, "create_core: lookup core_id failed: %s\n",
strerror(err));
return (-1);
}
if ((core = topo_node_lookup(pnode, CORE_NODE_NAME, coreid)) == NULL) {
if ((core = create_node(mod, pnode, auth, CORE_NODE_NAME,
coreid, chip_smbiosid)) == NULL)
return (-1);
/*
* Inherit FRU from the chip node, for native, we use hc
* scheme ASRU for the core node.
*/
(void) topo_node_fru_set(core, NULL, 0, &perr);
/*
* From the inherited FRU, extract the Serial
* number if SMBIOS donates and set it in the ASRU
*/
if (FM_AWARE_SMBIOS(mod)) {
char *val = NULL;
if (topo_node_resource(core, &fmri, &err) != 0)
whinge(mod, NULL,
"create_core: topo_prop_get_fmri failed\n");
if (nvlist_lookup_string(fmri, FM_FMRI_HC_SERIAL_ID,
&val) != 0)
whinge(mod, NULL, "create_core:"
"nvlist_lookup_string failed\n");
else
serial = topo_mod_strdup(mod, val);
nvlist_free(fmri);
}
if (is_xpv()) {
if (topo_node_resource(core, &fmri, &err) == -1) {
whinge(mod, &nerr, "create_core: "
"topo_node_resource failed\n");
} else {
if (FM_AWARE_SMBIOS(mod))
(void) nvlist_add_string(fmri,
FM_FMRI_HC_SERIAL_ID, serial);
(void) topo_node_asru_set(core, fmri, 0, &err);
nvlist_free(fmri);
}
}
if (topo_method_register(mod, core, strands_retire_methods) < 0)
whinge(mod, &nerr, "create_core: "
"topo_method_register failed\n");
(void) topo_pgroup_create(core, &core_pgroup, &err);
nerr -= add_nvlist_longprops(mod, core, cpu, PGNAME(CORE), NULL,
CORE_CHIP_ID, CORE_PROCNODE_ID, NULL);
if (topo_node_range_create(mod, core, STRAND_NODE_NAME,
0, 255) != 0)
return (-1);
}
if (!is_xpv()) {
/*
* In native mode, we're in favor of cpu scheme ASRU for
* printing reason. More work needs to be done to support
* multi-strand cpu: the ASRU will be a list of cpuid then.
*/
if (nvlist_lookup_int32(cpu, STRAND_CPU_ID, &cpuid) != 0) {
whinge(mod, &nerr, "create_core: lookup cpuid "
"failed\n");
} else {
if ((fmri = cpu_fmri_create(mod, cpuid, serial, 0))
!= NULL) {
(void) topo_node_asru_set(core, fmri, 0, &err);
nvlist_free(fmri);
} else {
whinge(mod, &nerr, "create_core: "
"cpu_fmri_create() failed\n");
}
}
}
if (FM_AWARE_SMBIOS(mod)) {
(void) topo_node_label_set(core, NULL, &perr);
if (topo_node_resource(core, &fmri, &perr) != 0) {
whinge(mod, &nerr, "create_core: "
"topo_node_resource failed\n");
perr = 0;
}
perr += nvlist_lookup_string(fmri,
FM_FMRI_HC_PART, &part);
perr += nvlist_lookup_string(fmri,
FM_FMRI_HC_REVISION, &rev);
if (perr != 0) {
whinge(mod, NULL,
"create_core: nvlist_lookup_string failed\n");
perr = 0;
}
perr += topo_prop_set_string(core, PGNAME(CORE),
FM_FMRI_HC_SERIAL_ID, TOPO_PROP_IMMUTABLE, serial, &perr);
perr += topo_prop_set_string(core, PGNAME(CORE),
FM_FMRI_HC_PART, TOPO_PROP_IMMUTABLE, part, &perr);
perr += topo_prop_set_string(core, PGNAME(CORE),
FM_FMRI_HC_REVISION, TOPO_PROP_IMMUTABLE, rev, &perr);
if (perr != 0)
whinge(mod, NULL, "create_core: topo_prop_set_string"
"failed\n");
nvlist_free(fmri);
topo_mod_strfree(mod, serial);
}
err = create_strand(mod, core, cpu, auth, chip_smbiosid);
return (err == 0 && nerr == 0 ? 0 : -1);
}
/*ARGSUSED*/
static int
amd_generic_mc_create(topo_mod_t *mod, uint16_t smbid, tnode_t *cnode,
tnode_t *mcnode, int family, int model, nvlist_t *auth)
{
int chan, cs;
/*
* Elsewhere we have already returned for families less than 0xf.
* This "generic" topology is adequate for all of family 0xf and
* for revisions A to E of family 0x10 (for the list of models
* in each revision, refer to usr/src/uts/i86pc/os/cpuid_subr.c).
* We cover all family 0x10 models, till model 10.
*/
if (family > 0x10 || (family == 0x10 && model > 10))
return (1);
if (topo_node_range_create(mod, mcnode, CHAN_NODE_NAME, 0,
MAX_CHANNUM) < 0) {
whinge(mod, NULL, "amd_generic_mc_create: range create for "
"channels failed\n");
return (-1);
}
for (chan = 0; chan <= MAX_CHANNUM; chan++) {
tnode_t *chnode;
nvlist_t *fmri;
int err;
if (mkrsrc(mod, mcnode, CHAN_NODE_NAME, chan, auth,
&fmri) != 0) {
whinge(mod, NULL, "amd_generic_mc_create: mkrsrc "
"failed\n");
return (-1);
}
if ((chnode = topo_node_bind(mod, mcnode, CHAN_NODE_NAME,
chan, fmri)) == NULL) {
nvlist_free(fmri);
whinge(mod, NULL, "amd_generic_mc_create: node "
"bind failed\n");
return (-1);
}
nvlist_free(fmri);
(void) topo_pgroup_create(chnode, &chan_pgroup, &err);
(void) topo_prop_set_string(chnode, PGNAME(CHAN), "channel",
TOPO_PROP_IMMUTABLE, chan == 0 ? "A" : "B", &err);
if (FM_AWARE_SMBIOS(mod)) {
if (topo_node_label_set(chnode, NULL, &err) == -1)
whinge(mod, NULL, "amd_generic_mc_create: "
"topo_node_label_set\n");
if (topo_node_fru_set(chnode, NULL, 0, &err) != 0)
whinge(mod, NULL, "amd_generic_mc_create: "
"topo_node_fru_set failed\n");
}
if (topo_node_range_create(mod, chnode, CS_NODE_NAME,
0, MAX_CSNUM) < 0) {
whinge(mod, NULL, "amd_generic_mc_create: "
"range create for cs failed\n");
return (-1);
}
for (cs = 0; cs <= MAX_CSNUM; cs++) {
tnode_t *csnode;
if (mkrsrc(mod, chnode, CS_NODE_NAME, cs, auth,
&fmri) != 0) {
whinge(mod, NULL, "amd_generic_mc_create: "
"mkrsrc for cs failed\n");
return (-1);
}
if ((csnode = topo_node_bind(mod, chnode, CS_NODE_NAME,
cs, fmri)) == NULL) {
nvlist_free(fmri);
whinge(mod, NULL, "amd_generic_mc_create: "
"bind for cs failed\n");
return (-1);
}
/*
* Dynamic ASRU for page faults within a chip-select.
* The topology does not represent pages (there are
* too many) so when a page is faulted we generate
* an ASRU to represent the individual page.
* If SMBIOS meets FMA needs, derive labels & serials
* for DIMMS and apply to chip-select nodes.
* If deriving from SMBIOS, skip IPMI
*/
if (FM_AWARE_SMBIOS(mod)) {
if (topo_method_register(mod, csnode,
x86pi_gen_cs_methods) < 0)
whinge(mod, NULL,
"amd_generic_mc_create: "
"method registration failed\n");
} else {
if (topo_method_register(mod, csnode,
gen_cs_methods) < 0)
whinge(mod, NULL,
"amd_generic_mc_create: method"
"registration failed\n");
}
(void) topo_node_asru_set(csnode, fmri,
TOPO_ASRU_COMPUTE, &err);
nvlist_free(fmri);
/*
* If SMBIOS meets FMA needs, set DIMM as the FRU for
* the chip-select node. Use the channel & chip-select
* numbers to get the DIMM instance.
* Send via inst : dram channel number
* Receive via inst : dimm instance
*/
if (FM_AWARE_SMBIOS(mod)) {
int inst;
id_t dimm_smbid;
const char *serial;
const char *part;
const char *rev;
char *label;
(void) topo_pgroup_create(csnode,
&cs_pgroup, &err);
inst = chan;
dimm_smbid = memnode_to_smbiosid(mod, smbid,
CS_NODE_NAME, cs, &inst);
serial = chip_serial_smbios_get(mod,
dimm_smbid);
part = chip_part_smbios_get(mod,
dimm_smbid);
rev = chip_rev_smbios_get(mod, dimm_smbid);
label = (char *)chip_label_smbios_get(mod,
chnode, dimm_smbid, NULL);
(void) topo_prop_set_string(csnode, PGNAME(CS),
FM_FMRI_HC_SERIAL_ID, TOPO_PROP_IMMUTABLE,
serial, &err);
(void) topo_prop_set_string(csnode, PGNAME(CS),
FM_FMRI_HC_PART, TOPO_PROP_IMMUTABLE,
part, &err);
(void) topo_prop_set_string(csnode, PGNAME(CS),
FM_FMRI_HC_REVISION, TOPO_PROP_IMMUTABLE,
rev, &err);
/*
* We apply DIMM labels to chip-select nodes,
* FRU for chip-selects should be DIMMs, and
* we do not derive dimm nodes for Family 0x10
* so FRU fmri is NULL, but FRU Labels are set,
* the FRU labels point to the DIMM.
*/
(void) topo_node_label_set(csnode, label, &err);
topo_mod_strfree(mod, label);
}
}
}
return (0);
}
int
amd_rank_create(topo_mod_t *mod, tnode_t *pnode, nvlist_t *dimmnvl,
nvlist_t *auth)
{
uint64_t *csnumarr;
char **csnamearr;
uint_t ncs, ncsname;
tnode_t *ranknode;
nvlist_t *fmri, *pfmri = NULL;
uint64_t dsz, rsz;
int nerr = 0;
int err;
int i;
if (nvlist_lookup_uint64_array(dimmnvl, "csnums", &csnumarr,
&ncs) != 0 || nvlist_lookup_string_array(dimmnvl, "csnames",
&csnamearr, &ncsname) != 0 || ncs != ncsname) {
whinge(mod, &nerr, "amd_rank_create: "
"csnums/csnames extraction failed\n");
return (nerr);
}
if (topo_node_resource(pnode, &pfmri, &err) < 0) {
whinge(mod, &nerr, "amd_rank_create: parent fmri lookup "
"failed\n");
return (nerr);
}
if (topo_node_range_create(mod, pnode, RANK_NODE_NAME, 0, ncs) < 0) {
whinge(mod, &nerr, "amd_rank_create: range create failed\n");
nvlist_free(pfmri);
return (nerr);
}
if (topo_prop_get_uint64(pnode, PGNAME(DIMM), "size", &dsz,
&err) == 0) {
rsz = dsz / ncs;
} else {
whinge(mod, &nerr, "amd_rank_create: parent dimm has no "
"size\n");
return (nerr);
}
for (i = 0; i < ncs; i++) {
if (mkrsrc(mod, pnode, RANK_NODE_NAME, i, auth, &fmri) < 0) {
whinge(mod, &nerr, "amd_rank_create: mkrsrc failed\n");
continue;
}
if ((ranknode = topo_node_bind(mod, pnode, RANK_NODE_NAME, i,
fmri)) == NULL) {
nvlist_free(fmri);
whinge(mod, &nerr, "amd_rank_create: node bind "
"failed\n");
continue;
}
nvlist_free(fmri);
if (FM_AWARE_SMBIOS(mod))
(void) topo_node_fru_set(ranknode, NULL, 0, &err);
else
(void) topo_node_fru_set(ranknode, pfmri, 0, &err);
/*
* If a rank is faulted the asru is the associated
* chip-select, but if a page within a rank is faulted
* the asru is just that page. Hence the dual preconstructed
* and computed ASRU.
*/
if (topo_method_register(mod, ranknode, rank_methods) < 0)
whinge(mod, &nerr, "amd_rank_create: "
"topo_method_register failed");
if (! is_xpv() && topo_method_register(mod, ranknode,
ntv_page_retire_methods) < 0)
whinge(mod, &nerr, "amd_rank_create: "
"topo_method_register failed");
(void) topo_node_asru_set(ranknode, cs_fmri[csnumarr[i]],
TOPO_ASRU_COMPUTE, &err);
(void) topo_pgroup_create(ranknode, &rank_pgroup, &err);
(void) topo_prop_set_uint64(ranknode, PGNAME(RANK), "size",
TOPO_PROP_IMMUTABLE, rsz, &err);
(void) topo_prop_set_string(ranknode, PGNAME(RANK), "csname",
TOPO_PROP_IMMUTABLE, csnamearr[i], &err);
(void) topo_prop_set_uint64(ranknode, PGNAME(RANK), "csnum",
TOPO_PROP_IMMUTABLE, csnumarr[i], &err);
}
nvlist_free(pfmri);
return (nerr);
}
void
amd_mc_create(topo_mod_t *mod, uint16_t smbid, tnode_t *pnode,
const char *name, nvlist_t *auth, int32_t procnodeid,
int32_t procnodes_per_pkg, int family,
int model, int *nerrp)
{
tnode_t *mcnode;
nvlist_t *rfmri, *fmri;
nvpair_t *nvp;
nvlist_t *mc = NULL;
int i, err;
int mcnum = procnodeid % procnodes_per_pkg;
char *serial = NULL;
char *part = NULL;
char *rev = NULL;
/*
* Return with no error for anything before AMD family 0xf - we
* won't generate even a generic memory topology for earlier
* families.
*/
if (family < 0xf)
return;
if (topo_node_lookup(pnode, name, mcnum) != NULL)
return;
if (FM_AWARE_SMBIOS(mod)) {
(void) topo_node_resource(pnode, &rfmri, &err);
(void) nvlist_lookup_string(rfmri, "serial", &serial);
(void) nvlist_lookup_string(rfmri, "part", &part);
(void) nvlist_lookup_string(rfmri, "revision", &rev);
}
if (mkrsrc(mod, pnode, name, mcnum, auth, &fmri) != 0) {
if (FM_AWARE_SMBIOS(mod))
nvlist_free(rfmri);
whinge(mod, nerrp, "mc_create: mkrsrc failed\n");
return;
}
if (FM_AWARE_SMBIOS(mod)) {
(void) nvlist_add_string(fmri, "serial", serial);
(void) nvlist_add_string(fmri, "part", part);
(void) nvlist_add_string(fmri, "revision", rev);
nvlist_free(rfmri);
}
if ((mcnode = topo_node_bind(mod, pnode, name, mcnum,
fmri)) == NULL) {
nvlist_free(fmri);
whinge(mod, nerrp, "mc_create: mc bind failed\n");
return;
}
if (topo_node_fru_set(mcnode, NULL, 0, &err) < 0)
whinge(mod, nerrp, "mc_create: topo_node_fru_set failed\n");
if (FM_AWARE_SMBIOS(mod)) {
if (topo_node_label_set(mcnode, NULL, &err) == -1)
topo_mod_dprintf(mod, "Failed to set label\n");
}
nvlist_free(fmri);
if (topo_pgroup_create(mcnode, &mc_pgroup, &err) < 0)
whinge(mod, nerrp, "mc_create: topo_pgroup_create failed\n");
if (topo_prop_set_int32(mcnode, PGNAME(MCT), MCT_PROCNODE_ID,
TOPO_PROP_IMMUTABLE, procnodeid, nerrp) != 0)
whinge(mod, nerrp, "mc_create: topo_prop_set_int32 failed to"
"add node id\n");
if ((mc = amd_lookup_by_mcid(mod, topo_node_instance(pnode))) == NULL) {
/*
* If a memory-controller driver exists for this chip model
* it has not attached or has otherwise malfunctioned;
* alternatively no memory-controller driver exists for this
* (presumably newly-released) cpu model. We fallback to
* creating a generic maximal topology.
*/
if (amd_generic_mc_create(mod, smbid, pnode, mcnode,
family, model, auth) != 0)
whinge(mod, nerrp,
"mc_create: amd_generic_mc_create failed\n");
return;
}
/*
* Add memory controller properties
*/
for (nvp = nvlist_next_nvpair(mc, NULL); nvp != NULL;
nvp = nvlist_next_nvpair(mc, nvp)) {
char *name = nvpair_name(nvp);
data_type_t type = nvpair_type(nvp);
if (type == DATA_TYPE_NVLIST_ARRAY &&
(strcmp(name, "cslist") == 0 ||
strcmp(name, "dimmlist") == 0)) {
continue;
} else if (type == DATA_TYPE_UINT8 &&
strcmp(name, MC_NVLIST_VERSTR) == 0) {
continue;
} else if (type == DATA_TYPE_NVLIST &&
strcmp(name, "htconfig") == 0) {
nvlist_t *htnvl;
(void) nvpair_value_nvlist(nvp, &htnvl);
if (amd_htconfig(mod, pnode, htnvl) != 0)
whinge(mod, nerrp,
"mc_create: amd_htconfig failed\n");
} else {
if (nvprop_add(mod, nvp, PGNAME(MCT), mcnode) != 0)
whinge(mod, nerrp,
"mc_create: nvprop_add failed\n");
}
}
if (amd_dramchan_create(mod, mcnode, CHAN_NODE_NAME, auth) != 0 ||
amd_cs_create(mod, mcnode, CS_NODE_NAME, mc, auth) != 0 ||
amd_dimm_create(mod, smbid, mcnode, DIMM_NODE_NAME, mc, auth) != 0)
whinge(mod, nerrp, "mc_create: create children failed\n");
/*
* Free the fmris for the chip-selects allocated in amd_cs_create
*/
for (i = 0; i < MC_CHIP_NCS; i++) {
if (cs_fmri[i] != NULL) {
nvlist_free(cs_fmri[i]);
cs_fmri[i] = NULL;
}
}
nvlist_free(mc);
}
int
main(int argc, char **argv)
{
int ch, err;
char **pkgs, **start;
char *prog_name = argv[0];
pkgs = start = argv;
while ((ch = getopt(argc, argv, Options)) != EOF)
switch(ch) {
case 'v':
Verbose = TRUE;
break;
case 'p':
Prefix = optarg;
break;
case 'I':
NoInstall = TRUE;
break;
case 'R':
NoRecord = TRUE;
break;
case 'n':
Fake = TRUE;
Verbose = TRUE;
break;
case 't':
PlayPen = optarg;
break;
case 'S':
AddMode = SLAVE;
break;
case 'M':
AddMode = MASTER;
break;
case 'h':
case '?':
default:
usage(prog_name, NULL);
break;
}
argc -= optind;
argv += optind;
/* Get all the remaining package names, if any */
while (*argv)
*pkgs++ = *argv++;
/* If no packages, yelp */
*pkgs = NULL;
if (pkgs == start && AddMode != SLAVE)
usage(prog_name, "Missing package name(s)");
else if (start[1] && AddMode == MASTER)
usage(prog_name, "Only one package name may be specified with master mode");
else if (pkgs != start && AddMode == SLAVE)
whinge("Package names ignored in slave mode.");
if ((err = pkg_perform(start)) != NULL) {
if (Verbose)
fprintf(stderr, "%d package addition(s) failed.\n", err);
return err;
}
else
return 0;
}
static int
amd_dimm_create(topo_mod_t *mod, uint16_t chip_smbid, tnode_t *pnode,
const char *name, nvlist_t *mc, nvlist_t *auth)
{
int i, err, nerr = 0;
int perr = 0;
nvpair_t *nvp;
tnode_t *dimmnode;
nvlist_t *fmri, **dimmarr = NULL;
uint64_t num;
uint_t ndimm;
id_t smbid;
const char *serial;
const char *part;
const char *rev;
if (nvlist_lookup_nvlist_array(mc, "dimmlist", &dimmarr, &ndimm) != 0) {
whinge(mod, NULL, "amd_dimm_create: dimmlist lookup failed\n");
return (-1);
}
if (ndimm == 0)
return (0); /* no dimms present on this node */
if (topo_node_range_create(mod, pnode, name, 0, MAX_DIMMNUM) < 0) {
whinge(mod, NULL, "amd_dimm_create: range create failed\n");
return (-1);
}
for (i = 0; i < ndimm; i++) {
if (nvlist_lookup_uint64(dimmarr[i], "num", &num) != 0) {
whinge(mod, &nerr, "amd_dimm_create: dimm num property "
"missing\n");
continue;
}
if (mkrsrc(mod, pnode, name, num, auth, &fmri) < 0) {
whinge(mod, &nerr, "amd_dimm_create: mkrsrc failed\n");
continue;
}
if (FM_AWARE_SMBIOS(mod)) {
smbid = memnode_to_smbiosid(mod, chip_smbid,
DIMM_NODE_NAME, i, NULL);
serial = chip_serial_smbios_get(mod, smbid);
part = chip_part_smbios_get(mod, smbid);
rev = chip_rev_smbios_get(mod, smbid);
perr += nvlist_add_string(fmri, FM_FMRI_HC_SERIAL_ID,
serial);
perr += nvlist_add_string(fmri, FM_FMRI_HC_PART,
part);
perr += nvlist_add_string(fmri, FM_FMRI_HC_REVISION,
rev);
if (perr != 0)
whinge(mod, NULL, "amd_dimm_create:"
"nvlist_add_string failed\n");
}
if ((dimmnode = topo_node_bind(mod, pnode, name, num, fmri))
== NULL) {
nvlist_free(fmri);
whinge(mod, &nerr, "amd_dimm_create: node bind "
"failed\n");
continue;
}
if (!FM_AWARE_SMBIOS(mod))
if (topo_method_register(mod,
dimmnode, dimm_methods) < 0)
whinge(mod, &nerr, "amd_dimm_create: "
"topo_method_register failed");
(void) topo_pgroup_create(dimmnode, &dimm_pgroup, &err);
if (FM_AWARE_SMBIOS(mod)) {
char *label;
nvlist_free(fmri);
(void) topo_node_resource(dimmnode,
&fmri, &err);
label = (char *)chip_label_smbios_get(mod,
pnode, smbid, NULL);
if (topo_node_label_set(dimmnode, label,
&perr) == -1)
topo_mod_dprintf(mod, "Failed"
"to set label\n");
topo_mod_strfree(mod, label);
(void) topo_prop_set_string(dimmnode, PGNAME(DIMM),
FM_FMRI_HC_SERIAL_ID, TOPO_PROP_IMMUTABLE,
serial, &err);
(void) topo_prop_set_string(dimmnode, PGNAME(DIMM),
FM_FMRI_HC_PART, TOPO_PROP_IMMUTABLE,
part, &err);
(void) topo_prop_set_string(dimmnode, PGNAME(DIMM),
FM_FMRI_HC_REVISION, TOPO_PROP_IMMUTABLE,
rev, &err);
}
(void) topo_node_asru_set(dimmnode, fmri, 0, &err);
(void) topo_node_fru_set(dimmnode, fmri, 0, &err);
nvlist_free(fmri);
for (nvp = nvlist_next_nvpair(dimmarr[i], NULL); nvp != NULL;
nvp = nvlist_next_nvpair(dimmarr[i], nvp)) {
if (nvpair_type(nvp) == DATA_TYPE_UINT64_ARRAY &&
strcmp(nvpair_name(nvp), "csnums") == 0 ||
nvpair_type(nvp) == DATA_TYPE_STRING_ARRAY &&
strcmp(nvpair_name(nvp), "csnames") == 0)
continue; /* used in amd_rank_create() */
nerr += nvprop_add(mod, nvp, PGNAME(DIMM), dimmnode);
}
nerr += amd_rank_create(mod, dimmnode, dimmarr[i], auth);
}
return (nerr == 0 ? 0 : -1);
}