1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License (the "License").
   6  * You may not use this file except in compliance with the License.
   7  *
   8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9  * or http://www.opensolaris.org/os/licensing.
  10  * See the License for the specific language governing permissions
  11  * and limitations under the License.
  12  *
  13  * When distributing Covered Code, include this CDDL HEADER in each
  14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15  * If applicable, add the following below this CDDL HEADER, with the
  16  * fields enclosed by brackets "[]" replaced with your own identifying
  17  * information: Portions Copyright [yyyy] [name of copyright owner]
  18  *
  19  * CDDL HEADER END
  20  */
  21 /*
  22  * Copyright (c) 2004, 2010, Oracle and/or its affiliates. All rights reserved.
  23  */
  24 
  25 /*
  26  * Fault Management Architecture (FMA) Resource and Protocol Support
  27  *
  28  * The routines contained herein provide services to support kernel subsystems
  29  * in publishing fault management telemetry (see PSARC 2002/412 and 2003/089).
  30  *
  31  * Name-Value Pair Lists
  32  *
  33  * The embodiment of an FMA protocol element (event, fmri or authority) is a
  34  * name-value pair list (nvlist_t).  FMA-specific nvlist construtor and
  35  * destructor functions, fm_nvlist_create() and fm_nvlist_destroy(), are used
  36  * to create an nvpair list using custom allocators.  Callers may choose to
  37  * allocate either from the kernel memory allocator, or from a preallocated
  38  * buffer, useful in constrained contexts like high-level interrupt routines.
  39  *
  40  * Protocol Event and FMRI Construction
  41  *
  42  * Convenience routines are provided to construct nvlist events according to
  43  * the FMA Event Protocol and Naming Schema specification for ereports and
  44  * FMRIs for the dev, cpu, hc, mem, legacy hc and de schemes.
  45  *
  46  * ENA Manipulation
  47  *
  48  * Routines to generate ENA formats 0, 1 and 2 are available as well as
  49  * routines to increment formats 1 and 2.  Individual fields within the
  50  * ENA are extractable via fm_ena_time_get(), fm_ena_id_get(),
  51  * fm_ena_format_get() and fm_ena_gen_get().
  52  */
  53 
  54 #include <sys/types.h>
  55 #include <sys/time.h>
  56 #include <sys/sysevent.h>
  57 #include <sys/sysevent_impl.h>
  58 #include <sys/nvpair.h>
  59 #include <sys/cmn_err.h>
  60 #include <sys/cpuvar.h>
  61 #include <sys/sysmacros.h>
  62 #include <sys/systm.h>
  63 #include <sys/ddifm.h>
  64 #include <sys/ddifm_impl.h>
  65 #include <sys/spl.h>
  66 #include <sys/dumphdr.h>
  67 #include <sys/compress.h>
  68 #include <sys/cpuvar.h>
  69 #include <sys/console.h>
  70 #include <sys/panic.h>
  71 #include <sys/kobj.h>
  72 #include <sys/sunddi.h>
  73 #include <sys/systeminfo.h>
  74 #include <sys/sysevent/eventdefs.h>
  75 #include <sys/fm/util.h>
  76 #include <sys/fm/protocol.h>
  77 
  78 /*
  79  * URL and SUNW-MSG-ID value to display for fm_panic(), defined below.  These
  80  * values must be kept in sync with the FMA source code in usr/src/cmd/fm.
  81  */
  82 static const char *fm_url = "http://illumos.org/msg";
  83 static const char *fm_msgid = "SUNOS-8000-0G";
  84 static char *volatile fm_panicstr = NULL;
  85 
  86 errorq_t *ereport_errorq;
  87 void *ereport_dumpbuf;
  88 size_t ereport_dumplen;
  89 
  90 static uint_t ereport_chanlen = ERPT_EVCH_MAX;
  91 static evchan_t *ereport_chan = NULL;
  92 static ulong_t ereport_qlen = 0;
  93 static size_t ereport_size = 0;
  94 static int ereport_cols = 80;
  95 
  96 extern void fastreboot_disable_highpil(void);
  97 
  98 /*
  99  * Common fault management kstats to record ereport generation
 100  * failures
 101  */
 102 
 103 struct erpt_kstat {
 104         kstat_named_t   erpt_dropped;           /* num erpts dropped on post */
 105         kstat_named_t   erpt_set_failed;        /* num erpt set failures */
 106         kstat_named_t   fmri_set_failed;        /* num fmri set failures */
 107         kstat_named_t   payload_set_failed;     /* num payload set failures */
 108 };
 109 
 110 static struct erpt_kstat erpt_kstat_data = {
 111         { "erpt-dropped", KSTAT_DATA_UINT64 },
 112         { "erpt-set-failed", KSTAT_DATA_UINT64 },
 113         { "fmri-set-failed", KSTAT_DATA_UINT64 },
 114         { "payload-set-failed", KSTAT_DATA_UINT64 }
 115 };
 116 
 117 /*ARGSUSED*/
 118 static void
 119 fm_drain(void *private, void *data, errorq_elem_t *eep)
 120 {
 121         nvlist_t *nvl = errorq_elem_nvl(ereport_errorq, eep);
 122 
 123         if (!panicstr)
 124                 (void) fm_ereport_post(nvl, EVCH_TRYHARD);
 125         else
 126                 fm_nvprint(nvl);
 127 }
 128 
 129 void
 130 fm_init(void)
 131 {
 132         kstat_t *ksp;
 133 
 134         (void) sysevent_evc_bind(FM_ERROR_CHAN,
 135             &ereport_chan, EVCH_CREAT | EVCH_HOLD_PEND);
 136 
 137         (void) sysevent_evc_control(ereport_chan,
 138             EVCH_SET_CHAN_LEN, &ereport_chanlen);
 139 
 140         if (ereport_qlen == 0)
 141                 ereport_qlen = ERPT_MAX_ERRS * MAX(max_ncpus, 4);
 142 
 143         if (ereport_size == 0)
 144                 ereport_size = ERPT_DATA_SZ;
 145 
 146         ereport_errorq = errorq_nvcreate("fm_ereport_queue",
 147             (errorq_func_t)fm_drain, NULL, ereport_qlen, ereport_size,
 148             FM_ERR_PIL, ERRORQ_VITAL);
 149         if (ereport_errorq == NULL)
 150                 panic("failed to create required ereport error queue");
 151 
 152         ereport_dumpbuf = kmem_alloc(ereport_size, KM_SLEEP);
 153         ereport_dumplen = ereport_size;
 154 
 155         /* Initialize ereport allocation and generation kstats */
 156         ksp = kstat_create("unix", 0, "fm", "misc", KSTAT_TYPE_NAMED,
 157             sizeof (struct erpt_kstat) / sizeof (kstat_named_t),
 158             KSTAT_FLAG_VIRTUAL);
 159 
 160         if (ksp != NULL) {
 161                 ksp->ks_data = &erpt_kstat_data;
 162                 kstat_install(ksp);
 163         } else {
 164                 cmn_err(CE_NOTE, "failed to create fm/misc kstat\n");
 165 
 166         }
 167 }
 168 
 169 /*
 170  * Formatting utility function for fm_nvprintr.  We attempt to wrap chunks of
 171  * output so they aren't split across console lines, and return the end column.
 172  */
 173 /*PRINTFLIKE4*/
 174 static int
 175 fm_printf(int depth, int c, int cols, const char *format, ...)
 176 {
 177         va_list ap;
 178         int width;
 179         char c1;
 180 
 181         va_start(ap, format);
 182         width = vsnprintf(&c1, sizeof (c1), format, ap);
 183         va_end(ap);
 184 
 185         if (c + width >= cols) {
 186                 console_printf("\n\r");
 187                 c = 0;
 188                 if (format[0] != ' ' && depth > 0) {
 189                         console_printf(" ");
 190                         c++;
 191                 }
 192         }
 193 
 194         va_start(ap, format);
 195         console_vprintf(format, ap);
 196         va_end(ap);
 197 
 198         return ((c + width) % cols);
 199 }
 200 
 201 /*
 202  * Recursively print a nvlist in the specified column width and return the
 203  * column we end up in.  This function is called recursively by fm_nvprint(),
 204  * below.  We generically format the entire nvpair using hexadecimal
 205  * integers and strings, and elide any integer arrays.  Arrays are basically
 206  * used for cache dumps right now, so we suppress them so as not to overwhelm
 207  * the amount of console output we produce at panic time.  This can be further
 208  * enhanced as FMA technology grows based upon the needs of consumers.  All
 209  * FMA telemetry is logged using the dump device transport, so the console
 210  * output serves only as a fallback in case this procedure is unsuccessful.
 211  */
 212 static int
 213 fm_nvprintr(nvlist_t *nvl, int d, int c, int cols)
 214 {
 215         nvpair_t *nvp;
 216 
 217         for (nvp = nvlist_next_nvpair(nvl, NULL);
 218             nvp != NULL; nvp = nvlist_next_nvpair(nvl, nvp)) {
 219 
 220                 data_type_t type = nvpair_type(nvp);
 221                 const char *name = nvpair_name(nvp);
 222 
 223                 boolean_t b;
 224                 uint8_t i8;
 225                 uint16_t i16;
 226                 uint32_t i32;
 227                 uint64_t i64;
 228                 char *str;
 229                 nvlist_t *cnv;
 230 
 231                 if (strcmp(name, FM_CLASS) == 0)
 232                         continue; /* already printed by caller */
 233 
 234                 c = fm_printf(d, c, cols, " %s=", name);
 235 
 236                 switch (type) {
 237                 case DATA_TYPE_BOOLEAN:
 238                         c = fm_printf(d + 1, c, cols, " 1");
 239                         break;
 240 
 241                 case DATA_TYPE_BOOLEAN_VALUE:
 242                         (void) nvpair_value_boolean_value(nvp, &b);
 243                         c = fm_printf(d + 1, c, cols, b ? "1" : "0");
 244                         break;
 245 
 246                 case DATA_TYPE_BYTE:
 247                         (void) nvpair_value_byte(nvp, &i8);
 248                         c = fm_printf(d + 1, c, cols, "%x", i8);
 249                         break;
 250 
 251                 case DATA_TYPE_INT8:
 252                         (void) nvpair_value_int8(nvp, (void *)&i8);
 253                         c = fm_printf(d + 1, c, cols, "%x", i8);
 254                         break;
 255 
 256                 case DATA_TYPE_UINT8:
 257                         (void) nvpair_value_uint8(nvp, &i8);
 258                         c = fm_printf(d + 1, c, cols, "%x", i8);
 259                         break;
 260 
 261                 case DATA_TYPE_INT16:
 262                         (void) nvpair_value_int16(nvp, (void *)&i16);
 263                         c = fm_printf(d + 1, c, cols, "%x", i16);
 264                         break;
 265 
 266                 case DATA_TYPE_UINT16:
 267                         (void) nvpair_value_uint16(nvp, &i16);
 268                         c = fm_printf(d + 1, c, cols, "%x", i16);
 269                         break;
 270 
 271                 case DATA_TYPE_INT32:
 272                         (void) nvpair_value_int32(nvp, (void *)&i32);
 273                         c = fm_printf(d + 1, c, cols, "%x", i32);
 274                         break;
 275 
 276                 case DATA_TYPE_UINT32:
 277                         (void) nvpair_value_uint32(nvp, &i32);
 278                         c = fm_printf(d + 1, c, cols, "%x", i32);
 279                         break;
 280 
 281                 case DATA_TYPE_INT64:
 282                         (void) nvpair_value_int64(nvp, (void *)&i64);
 283                         c = fm_printf(d + 1, c, cols, "%llx",
 284                             (u_longlong_t)i64);
 285                         break;
 286 
 287                 case DATA_TYPE_UINT64:
 288                         (void) nvpair_value_uint64(nvp, &i64);
 289                         c = fm_printf(d + 1, c, cols, "%llx",
 290                             (u_longlong_t)i64);
 291                         break;
 292 
 293                 case DATA_TYPE_HRTIME:
 294                         (void) nvpair_value_hrtime(nvp, (void *)&i64);
 295                         c = fm_printf(d + 1, c, cols, "%llx",
 296                             (u_longlong_t)i64);
 297                         break;
 298 
 299                 case DATA_TYPE_STRING:
 300                         (void) nvpair_value_string(nvp, &str);
 301                         c = fm_printf(d + 1, c, cols, "\"%s\"",
 302                             str ? str : "<NULL>");
 303                         break;
 304 
 305                 case DATA_TYPE_NVLIST:
 306                         c = fm_printf(d + 1, c, cols, "[");
 307                         (void) nvpair_value_nvlist(nvp, &cnv);
 308                         c = fm_nvprintr(cnv, d + 1, c, cols);
 309                         c = fm_printf(d + 1, c, cols, " ]");
 310                         break;
 311 
 312                 case DATA_TYPE_NVLIST_ARRAY: {
 313                         nvlist_t **val;
 314                         uint_t i, nelem;
 315 
 316                         c = fm_printf(d + 1, c, cols, "[");
 317                         (void) nvpair_value_nvlist_array(nvp, &val, &nelem);
 318                         for (i = 0; i < nelem; i++) {
 319                                 c = fm_nvprintr(val[i], d + 1, c, cols);
 320                         }
 321                         c = fm_printf(d + 1, c, cols, " ]");
 322                         }
 323                         break;
 324 
 325                 case DATA_TYPE_BOOLEAN_ARRAY:
 326                 case DATA_TYPE_BYTE_ARRAY:
 327                 case DATA_TYPE_INT8_ARRAY:
 328                 case DATA_TYPE_UINT8_ARRAY:
 329                 case DATA_TYPE_INT16_ARRAY:
 330                 case DATA_TYPE_UINT16_ARRAY:
 331                 case DATA_TYPE_INT32_ARRAY:
 332                 case DATA_TYPE_UINT32_ARRAY:
 333                 case DATA_TYPE_INT64_ARRAY:
 334                 case DATA_TYPE_UINT64_ARRAY:
 335                 case DATA_TYPE_STRING_ARRAY:
 336                         c = fm_printf(d + 1, c, cols, "[...]");
 337                         break;
 338                 case DATA_TYPE_UNKNOWN:
 339                         c = fm_printf(d + 1, c, cols, "<unknown>");
 340                         break;
 341                 }
 342         }
 343 
 344         return (c);
 345 }
 346 
 347 void
 348 fm_nvprint(nvlist_t *nvl)
 349 {
 350         char *class;
 351         int c = 0;
 352 
 353         console_printf("\r");
 354 
 355         if (nvlist_lookup_string(nvl, FM_CLASS, &class) == 0)
 356                 c = fm_printf(0, c, ereport_cols, "%s", class);
 357 
 358         if (fm_nvprintr(nvl, 0, c, ereport_cols) != 0)
 359                 console_printf("\n");
 360 
 361         console_printf("\n");
 362 }
 363 
 364 /*
 365  * Wrapper for panic() that first produces an FMA-style message for admins.
 366  * Normally such messages are generated by fmd(1M)'s syslog-msgs agent: this
 367  * is the one exception to that rule and the only error that gets messaged.
 368  * This function is intended for use by subsystems that have detected a fatal
 369  * error and enqueued appropriate ereports and wish to then force a panic.
 370  */
 371 /*PRINTFLIKE1*/
 372 void
 373 fm_panic(const char *format, ...)
 374 {
 375         va_list ap;
 376 
 377         (void) atomic_cas_ptr((void *)&fm_panicstr, NULL, (void *)format);
 378 #if defined(__i386) || defined(__amd64)
 379         fastreboot_disable_highpil();
 380 #endif /* __i386 || __amd64 */
 381         va_start(ap, format);
 382         vpanic(format, ap);
 383         va_end(ap);
 384 }
 385 
 386 /*
 387  * Simply tell the caller if fm_panicstr is set, ie. an fma event has
 388  * caused the panic. If so, something other than the default panic
 389  * diagnosis method will diagnose the cause of the panic.
 390  */
 391 int
 392 is_fm_panic()
 393 {
 394         if (fm_panicstr)
 395                 return (1);
 396         else
 397                 return (0);
 398 }
 399 
 400 /*
 401  * Print any appropriate FMA banner message before the panic message.  This
 402  * function is called by panicsys() and prints the message for fm_panic().
 403  * We print the message here so that it comes after the system is quiesced.
 404  * A one-line summary is recorded in the log only (cmn_err(9F) with "!" prefix).
 405  * The rest of the message is for the console only and not needed in the log,
 406  * so it is printed using console_printf().  We break it up into multiple
 407  * chunks so as to avoid overflowing any small legacy prom_printf() buffers.
 408  */
 409 void
 410 fm_banner(void)
 411 {
 412         timespec_t tod;
 413         hrtime_t now;
 414 
 415         if (!fm_panicstr)
 416                 return; /* panic was not initiated by fm_panic(); do nothing */
 417 
 418         if (panicstr) {
 419                 tod = panic_hrestime;
 420                 now = panic_hrtime;
 421         } else {
 422                 gethrestime(&tod);
 423                 now = gethrtime_waitfree();
 424         }
 425 
 426         cmn_err(CE_NOTE, "!SUNW-MSG-ID: %s, "
 427             "TYPE: Error, VER: 1, SEVERITY: Major\n", fm_msgid);
 428 
 429         console_printf(
 430 "\n\rSUNW-MSG-ID: %s, TYPE: Error, VER: 1, SEVERITY: Major\n"
 431 "EVENT-TIME: 0x%lx.0x%lx (0x%llx)\n",
 432             fm_msgid, tod.tv_sec, tod.tv_nsec, (u_longlong_t)now);
 433 
 434         console_printf(
 435 "PLATFORM: %s, CSN: -, HOSTNAME: %s\n"
 436 "SOURCE: %s, REV: %s %s\n",
 437             platform, utsname.nodename, utsname.sysname,
 438             utsname.release, utsname.version);
 439 
 440         console_printf(
 441 "DESC: Errors have been detected that require a reboot to ensure system\n"
 442 "integrity.  See %s/%s for more information.\n",
 443             fm_url, fm_msgid);
 444 
 445         console_printf(
 446 "AUTO-RESPONSE: Solaris will attempt to save and diagnose the error telemetry\n"
 447 "IMPACT: The system will sync files, save a crash dump if needed, and reboot\n"
 448 "REC-ACTION: Save the error summary below in case telemetry cannot be saved\n");
 449 
 450         console_printf("\n");
 451 }
 452 
 453 /*
 454  * Utility function to write all of the pending ereports to the dump device.
 455  * This function is called at either normal reboot or panic time, and simply
 456  * iterates over the in-transit messages in the ereport sysevent channel.
 457  */
 458 void
 459 fm_ereport_dump(void)
 460 {
 461         evchanq_t *chq;
 462         sysevent_t *sep;
 463         erpt_dump_t ed;
 464 
 465         timespec_t tod;
 466         hrtime_t now;
 467         char *buf;
 468         size_t len;
 469 
 470         if (panicstr) {
 471                 tod = panic_hrestime;
 472                 now = panic_hrtime;
 473         } else {
 474                 if (ereport_errorq != NULL)
 475                         errorq_drain(ereport_errorq);
 476                 gethrestime(&tod);
 477                 now = gethrtime_waitfree();
 478         }
 479 
 480         /*
 481          * In the panic case, sysevent_evc_walk_init() will return NULL.
 482          */
 483         if ((chq = sysevent_evc_walk_init(ereport_chan, NULL)) == NULL &&
 484             !panicstr)
 485                 return; /* event channel isn't initialized yet */
 486 
 487         while ((sep = sysevent_evc_walk_step(chq)) != NULL) {
 488                 if ((buf = sysevent_evc_event_attr(sep, &len)) == NULL)
 489                         break;
 490 
 491                 ed.ed_magic = ERPT_MAGIC;
 492                 ed.ed_chksum = checksum32(buf, len);
 493                 ed.ed_size = (uint32_t)len;
 494                 ed.ed_pad = 0;
 495                 ed.ed_hrt_nsec = SE_TIME(sep);
 496                 ed.ed_hrt_base = now;
 497                 ed.ed_tod_base.sec = tod.tv_sec;
 498                 ed.ed_tod_base.nsec = tod.tv_nsec;
 499 
 500                 dumpvp_write(&ed, sizeof (ed));
 501                 dumpvp_write(buf, len);
 502         }
 503 
 504         sysevent_evc_walk_fini(chq);
 505 }
 506 
 507 /*
 508  * Post an error report (ereport) to the sysevent error channel.  The error
 509  * channel must be established with a prior call to sysevent_evc_create()
 510  * before publication may occur.
 511  */
 512 void
 513 fm_ereport_post(nvlist_t *ereport, int evc_flag)
 514 {
 515         size_t nvl_size = 0;
 516         evchan_t *error_chan;
 517 
 518         (void) nvlist_size(ereport, &nvl_size, NV_ENCODE_NATIVE);
 519         if (nvl_size > ERPT_DATA_SZ || nvl_size == 0) {
 520                 atomic_add_64(&erpt_kstat_data.erpt_dropped.value.ui64, 1);
 521                 return;
 522         }
 523 
 524         if (sysevent_evc_bind(FM_ERROR_CHAN, &error_chan,
 525             EVCH_CREAT|EVCH_HOLD_PEND) != 0) {
 526                 atomic_add_64(&erpt_kstat_data.erpt_dropped.value.ui64, 1);
 527                 return;
 528         }
 529 
 530         if (sysevent_evc_publish(error_chan, EC_FM, ESC_FM_ERROR,
 531             SUNW_VENDOR, FM_PUB, ereport, evc_flag) != 0) {
 532                 atomic_add_64(&erpt_kstat_data.erpt_dropped.value.ui64, 1);
 533                 (void) sysevent_evc_unbind(error_chan);
 534                 return;
 535         }
 536         (void) sysevent_evc_unbind(error_chan);
 537 }
 538 
 539 /*
 540  * Wrapppers for FM nvlist allocators
 541  */
 542 /* ARGSUSED */
 543 static void *
 544 i_fm_alloc(nv_alloc_t *nva, size_t size)
 545 {
 546         return (kmem_zalloc(size, KM_SLEEP));
 547 }
 548 
 549 /* ARGSUSED */
 550 static void
 551 i_fm_free(nv_alloc_t *nva, void *buf, size_t size)
 552 {
 553         kmem_free(buf, size);
 554 }
 555 
 556 const nv_alloc_ops_t fm_mem_alloc_ops = {
 557         NULL,
 558         NULL,
 559         i_fm_alloc,
 560         i_fm_free,
 561         NULL
 562 };
 563 
 564 /*
 565  * Create and initialize a new nv_alloc_t for a fixed buffer, buf.  A pointer
 566  * to the newly allocated nv_alloc_t structure is returned upon success or NULL
 567  * is returned to indicate that the nv_alloc structure could not be created.
 568  */
 569 nv_alloc_t *
 570 fm_nva_xcreate(char *buf, size_t bufsz)
 571 {
 572         nv_alloc_t *nvhdl = kmem_zalloc(sizeof (nv_alloc_t), KM_SLEEP);
 573 
 574         if (bufsz == 0 || nv_alloc_init(nvhdl, nv_fixed_ops, buf, bufsz) != 0) {
 575                 kmem_free(nvhdl, sizeof (nv_alloc_t));
 576                 return (NULL);
 577         }
 578 
 579         return (nvhdl);
 580 }
 581 
 582 /*
 583  * Destroy a previously allocated nv_alloc structure.  The fixed buffer
 584  * associated with nva must be freed by the caller.
 585  */
 586 void
 587 fm_nva_xdestroy(nv_alloc_t *nva)
 588 {
 589         nv_alloc_fini(nva);
 590         kmem_free(nva, sizeof (nv_alloc_t));
 591 }
 592 
 593 /*
 594  * Create a new nv list.  A pointer to a new nv list structure is returned
 595  * upon success or NULL is returned to indicate that the structure could
 596  * not be created.  The newly created nv list is created and managed by the
 597  * operations installed in nva.   If nva is NULL, the default FMA nva
 598  * operations are installed and used.
 599  *
 600  * When called from the kernel and nva == NULL, this function must be called
 601  * from passive kernel context with no locks held that can prevent a
 602  * sleeping memory allocation from occurring.  Otherwise, this function may
 603  * be called from other kernel contexts as long a valid nva created via
 604  * fm_nva_create() is supplied.
 605  */
 606 nvlist_t *
 607 fm_nvlist_create(nv_alloc_t *nva)
 608 {
 609         int hdl_alloced = 0;
 610         nvlist_t *nvl;
 611         nv_alloc_t *nvhdl;
 612 
 613         if (nva == NULL) {
 614                 nvhdl = kmem_zalloc(sizeof (nv_alloc_t), KM_SLEEP);
 615 
 616                 if (nv_alloc_init(nvhdl, &fm_mem_alloc_ops, NULL, 0) != 0) {
 617                         kmem_free(nvhdl, sizeof (nv_alloc_t));
 618                         return (NULL);
 619                 }
 620                 hdl_alloced = 1;
 621         } else {
 622                 nvhdl = nva;
 623         }
 624 
 625         if (nvlist_xalloc(&nvl, NV_UNIQUE_NAME, nvhdl) != 0) {
 626                 if (hdl_alloced) {
 627                         nv_alloc_fini(nvhdl);
 628                         kmem_free(nvhdl, sizeof (nv_alloc_t));
 629                 }
 630                 return (NULL);
 631         }
 632 
 633         return (nvl);
 634 }
 635 
 636 /*
 637  * Destroy a previously allocated nvlist structure.  flag indicates whether
 638  * or not the associated nva structure should be freed (FM_NVA_FREE) or
 639  * retained (FM_NVA_RETAIN).  Retaining the nv alloc structure allows
 640  * it to be re-used for future nvlist creation operations.
 641  */
 642 void
 643 fm_nvlist_destroy(nvlist_t *nvl, int flag)
 644 {
 645         nv_alloc_t *nva = nvlist_lookup_nv_alloc(nvl);
 646 
 647         nvlist_free(nvl);
 648 
 649         if (nva != NULL) {
 650                 if (flag == FM_NVA_FREE)
 651                         fm_nva_xdestroy(nva);
 652         }
 653 }
 654 
 655 int
 656 i_fm_payload_set(nvlist_t *payload, const char *name, va_list ap)
 657 {
 658         int nelem, ret = 0;
 659         data_type_t type;
 660 
 661         while (ret == 0 && name != NULL) {
 662                 type = va_arg(ap, data_type_t);
 663                 switch (type) {
 664                 case DATA_TYPE_BYTE:
 665                         ret = nvlist_add_byte(payload, name,
 666                             va_arg(ap, uint_t));
 667                         break;
 668                 case DATA_TYPE_BYTE_ARRAY:
 669                         nelem = va_arg(ap, int);
 670                         ret = nvlist_add_byte_array(payload, name,
 671                             va_arg(ap, uchar_t *), nelem);
 672                         break;
 673                 case DATA_TYPE_BOOLEAN_VALUE:
 674                         ret = nvlist_add_boolean_value(payload, name,
 675                             va_arg(ap, boolean_t));
 676                         break;
 677                 case DATA_TYPE_BOOLEAN_ARRAY:
 678                         nelem = va_arg(ap, int);
 679                         ret = nvlist_add_boolean_array(payload, name,
 680                             va_arg(ap, boolean_t *), nelem);
 681                         break;
 682                 case DATA_TYPE_INT8:
 683                         ret = nvlist_add_int8(payload, name,
 684                             va_arg(ap, int));
 685                         break;
 686                 case DATA_TYPE_INT8_ARRAY:
 687                         nelem = va_arg(ap, int);
 688                         ret = nvlist_add_int8_array(payload, name,
 689                             va_arg(ap, int8_t *), nelem);
 690                         break;
 691                 case DATA_TYPE_UINT8:
 692                         ret = nvlist_add_uint8(payload, name,
 693                             va_arg(ap, uint_t));
 694                         break;
 695                 case DATA_TYPE_UINT8_ARRAY:
 696                         nelem = va_arg(ap, int);
 697                         ret = nvlist_add_uint8_array(payload, name,
 698                             va_arg(ap, uint8_t *), nelem);
 699                         break;
 700                 case DATA_TYPE_INT16:
 701                         ret = nvlist_add_int16(payload, name,
 702                             va_arg(ap, int));
 703                         break;
 704                 case DATA_TYPE_INT16_ARRAY:
 705                         nelem = va_arg(ap, int);
 706                         ret = nvlist_add_int16_array(payload, name,
 707                             va_arg(ap, int16_t *), nelem);
 708                         break;
 709                 case DATA_TYPE_UINT16:
 710                         ret = nvlist_add_uint16(payload, name,
 711                             va_arg(ap, uint_t));
 712                         break;
 713                 case DATA_TYPE_UINT16_ARRAY:
 714                         nelem = va_arg(ap, int);
 715                         ret = nvlist_add_uint16_array(payload, name,
 716                             va_arg(ap, uint16_t *), nelem);
 717                         break;
 718                 case DATA_TYPE_INT32:
 719                         ret = nvlist_add_int32(payload, name,
 720                             va_arg(ap, int32_t));
 721                         break;
 722                 case DATA_TYPE_INT32_ARRAY:
 723                         nelem = va_arg(ap, int);
 724                         ret = nvlist_add_int32_array(payload, name,
 725                             va_arg(ap, int32_t *), nelem);
 726                         break;
 727                 case DATA_TYPE_UINT32:
 728                         ret = nvlist_add_uint32(payload, name,
 729                             va_arg(ap, uint32_t));
 730                         break;
 731                 case DATA_TYPE_UINT32_ARRAY:
 732                         nelem = va_arg(ap, int);
 733                         ret = nvlist_add_uint32_array(payload, name,
 734                             va_arg(ap, uint32_t *), nelem);
 735                         break;
 736                 case DATA_TYPE_INT64:
 737                         ret = nvlist_add_int64(payload, name,
 738                             va_arg(ap, int64_t));
 739                         break;
 740                 case DATA_TYPE_INT64_ARRAY:
 741                         nelem = va_arg(ap, int);
 742                         ret = nvlist_add_int64_array(payload, name,
 743                             va_arg(ap, int64_t *), nelem);
 744                         break;
 745                 case DATA_TYPE_UINT64:
 746                         ret = nvlist_add_uint64(payload, name,
 747                             va_arg(ap, uint64_t));
 748                         break;
 749                 case DATA_TYPE_UINT64_ARRAY:
 750                         nelem = va_arg(ap, int);
 751                         ret = nvlist_add_uint64_array(payload, name,
 752                             va_arg(ap, uint64_t *), nelem);
 753                         break;
 754                 case DATA_TYPE_STRING:
 755                         ret = nvlist_add_string(payload, name,
 756                             va_arg(ap, char *));
 757                         break;
 758                 case DATA_TYPE_STRING_ARRAY:
 759                         nelem = va_arg(ap, int);
 760                         ret = nvlist_add_string_array(payload, name,
 761                             va_arg(ap, char **), nelem);
 762                         break;
 763                 case DATA_TYPE_NVLIST:
 764                         ret = nvlist_add_nvlist(payload, name,
 765                             va_arg(ap, nvlist_t *));
 766                         break;
 767                 case DATA_TYPE_NVLIST_ARRAY:
 768                         nelem = va_arg(ap, int);
 769                         ret = nvlist_add_nvlist_array(payload, name,
 770                             va_arg(ap, nvlist_t **), nelem);
 771                         break;
 772                 default:
 773                         ret = EINVAL;
 774                 }
 775 
 776                 name = va_arg(ap, char *);
 777         }
 778         return (ret);
 779 }
 780 
 781 void
 782 fm_payload_set(nvlist_t *payload, ...)
 783 {
 784         int ret;
 785         const char *name;
 786         va_list ap;
 787 
 788         va_start(ap, payload);
 789         name = va_arg(ap, char *);
 790         ret = i_fm_payload_set(payload, name, ap);
 791         va_end(ap);
 792 
 793         if (ret)
 794                 atomic_add_64(
 795                     &erpt_kstat_data.payload_set_failed.value.ui64, 1);
 796 }
 797 
 798 /*
 799  * Set-up and validate the members of an ereport event according to:
 800  *
 801  *      Member name             Type            Value
 802  *      ====================================================
 803  *      class                   string          ereport
 804  *      version                 uint8_t         0
 805  *      ena                     uint64_t        <ena>
 806  *      detector                nvlist_t        <detector>
 807  *      ereport-payload         nvlist_t        <var args>
 808  *
 809  * We don't actually add a 'version' member to the payload.  Really,
 810  * the version quoted to us by our caller is that of the category 1
 811  * "ereport" event class (and we require FM_EREPORT_VERS0) but
 812  * the payload version of the actual leaf class event under construction
 813  * may be something else.  Callers should supply a version in the varargs,
 814  * or (better) we could take two version arguments - one for the
 815  * ereport category 1 classification (expect FM_EREPORT_VERS0) and one
 816  * for the leaf class.
 817  */
 818 void
 819 fm_ereport_set(nvlist_t *ereport, int version, const char *erpt_class,
 820     uint64_t ena, const nvlist_t *detector, ...)
 821 {
 822         char ereport_class[FM_MAX_CLASS];
 823         const char *name;
 824         va_list ap;
 825         int ret;
 826 
 827         if (version != FM_EREPORT_VERS0) {
 828                 atomic_add_64(&erpt_kstat_data.erpt_set_failed.value.ui64, 1);
 829                 return;
 830         }
 831 
 832         (void) snprintf(ereport_class, FM_MAX_CLASS, "%s.%s",
 833             FM_EREPORT_CLASS, erpt_class);
 834         if (nvlist_add_string(ereport, FM_CLASS, ereport_class) != 0) {
 835                 atomic_add_64(&erpt_kstat_data.erpt_set_failed.value.ui64, 1);
 836                 return;
 837         }
 838 
 839         if (nvlist_add_uint64(ereport, FM_EREPORT_ENA, ena)) {
 840                 atomic_add_64(&erpt_kstat_data.erpt_set_failed.value.ui64, 1);
 841         }
 842 
 843         if (nvlist_add_nvlist(ereport, FM_EREPORT_DETECTOR,
 844             (nvlist_t *)detector) != 0) {
 845                 atomic_add_64(&erpt_kstat_data.erpt_set_failed.value.ui64, 1);
 846         }
 847 
 848         va_start(ap, detector);
 849         name = va_arg(ap, const char *);
 850         ret = i_fm_payload_set(ereport, name, ap);
 851         va_end(ap);
 852 
 853         if (ret)
 854                 atomic_add_64(&erpt_kstat_data.erpt_set_failed.value.ui64, 1);
 855 }
 856 
 857 /*
 858  * Set-up and validate the members of an hc fmri according to;
 859  *
 860  *      Member name             Type            Value
 861  *      ===================================================
 862  *      version                 uint8_t         0
 863  *      auth                    nvlist_t        <auth>
 864  *      hc-name                 string          <name>
 865  *      hc-id                   string          <id>
 866  *
 867  * Note that auth and hc-id are optional members.
 868  */
 869 
 870 #define HC_MAXPAIRS     20
 871 #define HC_MAXNAMELEN   50
 872 
 873 static int
 874 fm_fmri_hc_set_common(nvlist_t *fmri, int version, const nvlist_t *auth)
 875 {
 876         if (version != FM_HC_SCHEME_VERSION) {
 877                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
 878                 return (0);
 879         }
 880 
 881         if (nvlist_add_uint8(fmri, FM_VERSION, version) != 0 ||
 882             nvlist_add_string(fmri, FM_FMRI_SCHEME, FM_FMRI_SCHEME_HC) != 0) {
 883                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
 884                 return (0);
 885         }
 886 
 887         if (auth != NULL && nvlist_add_nvlist(fmri, FM_FMRI_AUTHORITY,
 888             (nvlist_t *)auth) != 0) {
 889                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
 890                 return (0);
 891         }
 892 
 893         return (1);
 894 }
 895 
 896 void
 897 fm_fmri_hc_set(nvlist_t *fmri, int version, const nvlist_t *auth,
 898     nvlist_t *snvl, int npairs, ...)
 899 {
 900         nv_alloc_t *nva = nvlist_lookup_nv_alloc(fmri);
 901         nvlist_t *pairs[HC_MAXPAIRS];
 902         va_list ap;
 903         int i;
 904 
 905         if (!fm_fmri_hc_set_common(fmri, version, auth))
 906                 return;
 907 
 908         npairs = MIN(npairs, HC_MAXPAIRS);
 909 
 910         va_start(ap, npairs);
 911         for (i = 0; i < npairs; i++) {
 912                 const char *name = va_arg(ap, const char *);
 913                 uint32_t id = va_arg(ap, uint32_t);
 914                 char idstr[11];
 915 
 916                 (void) snprintf(idstr, sizeof (idstr), "%u", id);
 917 
 918                 pairs[i] = fm_nvlist_create(nva);
 919                 if (nvlist_add_string(pairs[i], FM_FMRI_HC_NAME, name) != 0 ||
 920                     nvlist_add_string(pairs[i], FM_FMRI_HC_ID, idstr) != 0) {
 921                         atomic_add_64(
 922                             &erpt_kstat_data.fmri_set_failed.value.ui64, 1);
 923                 }
 924         }
 925         va_end(ap);
 926 
 927         if (nvlist_add_nvlist_array(fmri, FM_FMRI_HC_LIST, pairs, npairs) != 0)
 928                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
 929 
 930         for (i = 0; i < npairs; i++)
 931                 fm_nvlist_destroy(pairs[i], FM_NVA_RETAIN);
 932 
 933         if (snvl != NULL) {
 934                 if (nvlist_add_nvlist(fmri, FM_FMRI_HC_SPECIFIC, snvl) != 0) {
 935                         atomic_add_64(
 936                             &erpt_kstat_data.fmri_set_failed.value.ui64, 1);
 937                 }
 938         }
 939 }
 940 
 941 /*
 942  * Set-up and validate the members of an dev fmri according to:
 943  *
 944  *      Member name             Type            Value
 945  *      ====================================================
 946  *      version                 uint8_t         0
 947  *      auth                    nvlist_t        <auth>
 948  *      devpath                 string          <devpath>
 949  *      [devid]                 string          <devid>
 950  *      [target-port-l0id]      string          <target-port-lun0-id>
 951  *
 952  * Note that auth and devid are optional members.
 953  */
 954 void
 955 fm_fmri_dev_set(nvlist_t *fmri_dev, int version, const nvlist_t *auth,
 956     const char *devpath, const char *devid, const char *tpl0)
 957 {
 958         int err = 0;
 959 
 960         if (version != DEV_SCHEME_VERSION0) {
 961                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
 962                 return;
 963         }
 964 
 965         err |= nvlist_add_uint8(fmri_dev, FM_VERSION, version);
 966         err |= nvlist_add_string(fmri_dev, FM_FMRI_SCHEME, FM_FMRI_SCHEME_DEV);
 967 
 968         if (auth != NULL) {
 969                 err |= nvlist_add_nvlist(fmri_dev, FM_FMRI_AUTHORITY,
 970                     (nvlist_t *)auth);
 971         }
 972 
 973         err |= nvlist_add_string(fmri_dev, FM_FMRI_DEV_PATH, devpath);
 974 
 975         if (devid != NULL)
 976                 err |= nvlist_add_string(fmri_dev, FM_FMRI_DEV_ID, devid);
 977 
 978         if (tpl0 != NULL)
 979                 err |= nvlist_add_string(fmri_dev, FM_FMRI_DEV_TGTPTLUN0, tpl0);
 980 
 981         if (err)
 982                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
 983 
 984 }
 985 
 986 /*
 987  * Set-up and validate the members of an cpu fmri according to:
 988  *
 989  *      Member name             Type            Value
 990  *      ====================================================
 991  *      version                 uint8_t         0
 992  *      auth                    nvlist_t        <auth>
 993  *      cpuid                   uint32_t        <cpu_id>
 994  *      cpumask                 uint8_t         <cpu_mask>
 995  *      serial                  uint64_t        <serial_id>
 996  *
 997  * Note that auth, cpumask, serial are optional members.
 998  *
 999  */
1000 void
1001 fm_fmri_cpu_set(nvlist_t *fmri_cpu, int version, const nvlist_t *auth,
1002     uint32_t cpu_id, uint8_t *cpu_maskp, const char *serial_idp)
1003 {
1004         uint64_t *failedp = &erpt_kstat_data.fmri_set_failed.value.ui64;
1005 
1006         if (version < CPU_SCHEME_VERSION1) {
1007                 atomic_add_64(failedp, 1);
1008                 return;
1009         }
1010 
1011         if (nvlist_add_uint8(fmri_cpu, FM_VERSION, version) != 0) {
1012                 atomic_add_64(failedp, 1);
1013                 return;
1014         }
1015 
1016         if (nvlist_add_string(fmri_cpu, FM_FMRI_SCHEME,
1017             FM_FMRI_SCHEME_CPU) != 0) {
1018                 atomic_add_64(failedp, 1);
1019                 return;
1020         }
1021 
1022         if (auth != NULL && nvlist_add_nvlist(fmri_cpu, FM_FMRI_AUTHORITY,
1023             (nvlist_t *)auth) != 0)
1024                 atomic_add_64(failedp, 1);
1025 
1026         if (nvlist_add_uint32(fmri_cpu, FM_FMRI_CPU_ID, cpu_id) != 0)
1027                 atomic_add_64(failedp, 1);
1028 
1029         if (cpu_maskp != NULL && nvlist_add_uint8(fmri_cpu, FM_FMRI_CPU_MASK,
1030             *cpu_maskp) != 0)
1031                 atomic_add_64(failedp, 1);
1032 
1033         if (serial_idp == NULL || nvlist_add_string(fmri_cpu,
1034             FM_FMRI_CPU_SERIAL_ID, (char *)serial_idp) != 0)
1035                         atomic_add_64(failedp, 1);
1036 }
1037 
1038 /*
1039  * Set-up and validate the members of a mem according to:
1040  *
1041  *      Member name             Type            Value
1042  *      ====================================================
1043  *      version                 uint8_t         0
1044  *      auth                    nvlist_t        <auth>            [optional]
1045  *      unum                    string          <unum>
1046  *      serial                  string          <serial>  [optional*]
1047  *      offset                  uint64_t        <offset>  [optional]
1048  *
1049  *      * serial is required if offset is present
1050  */
1051 void
1052 fm_fmri_mem_set(nvlist_t *fmri, int version, const nvlist_t *auth,
1053     const char *unum, const char *serial, uint64_t offset)
1054 {
1055         if (version != MEM_SCHEME_VERSION0) {
1056                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1057                 return;
1058         }
1059 
1060         if (!serial && (offset != (uint64_t)-1)) {
1061                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1062                 return;
1063         }
1064 
1065         if (nvlist_add_uint8(fmri, FM_VERSION, version) != 0) {
1066                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1067                 return;
1068         }
1069 
1070         if (nvlist_add_string(fmri, FM_FMRI_SCHEME, FM_FMRI_SCHEME_MEM) != 0) {
1071                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1072                 return;
1073         }
1074 
1075         if (auth != NULL) {
1076                 if (nvlist_add_nvlist(fmri, FM_FMRI_AUTHORITY,
1077                     (nvlist_t *)auth) != 0) {
1078                         atomic_add_64(
1079                             &erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1080                 }
1081         }
1082 
1083         if (nvlist_add_string(fmri, FM_FMRI_MEM_UNUM, unum) != 0) {
1084                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1085         }
1086 
1087         if (serial != NULL) {
1088                 if (nvlist_add_string_array(fmri, FM_FMRI_MEM_SERIAL_ID,
1089                     (char **)&serial, 1) != 0) {
1090                         atomic_add_64(
1091                             &erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1092                 }
1093                 if (offset != (uint64_t)-1) {
1094                         if (nvlist_add_uint64(fmri, FM_FMRI_MEM_OFFSET,
1095                             offset) != 0) {
1096                                 atomic_add_64(&erpt_kstat_data.
1097                                     fmri_set_failed.value.ui64, 1);
1098                         }
1099                 }
1100         }
1101 }
1102 
1103 void
1104 fm_fmri_zfs_set(nvlist_t *fmri, int version, uint64_t pool_guid,
1105     uint64_t vdev_guid)
1106 {
1107         if (version != ZFS_SCHEME_VERSION0) {
1108                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1109                 return;
1110         }
1111 
1112         if (nvlist_add_uint8(fmri, FM_VERSION, version) != 0) {
1113                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1114                 return;
1115         }
1116 
1117         if (nvlist_add_string(fmri, FM_FMRI_SCHEME, FM_FMRI_SCHEME_ZFS) != 0) {
1118                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1119                 return;
1120         }
1121 
1122         if (nvlist_add_uint64(fmri, FM_FMRI_ZFS_POOL, pool_guid) != 0) {
1123                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1124         }
1125 
1126         if (vdev_guid != 0) {
1127                 if (nvlist_add_uint64(fmri, FM_FMRI_ZFS_VDEV, vdev_guid) != 0) {
1128                         atomic_add_64(
1129                             &erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1130                 }
1131         }
1132 }
1133 
1134 uint64_t
1135 fm_ena_increment(uint64_t ena)
1136 {
1137         uint64_t new_ena;
1138 
1139         switch (ENA_FORMAT(ena)) {
1140         case FM_ENA_FMT1:
1141                 new_ena = ena + (1 << ENA_FMT1_GEN_SHFT);
1142                 break;
1143         case FM_ENA_FMT2:
1144                 new_ena = ena + (1 << ENA_FMT2_GEN_SHFT);
1145                 break;
1146         default:
1147                 new_ena = 0;
1148         }
1149 
1150         return (new_ena);
1151 }
1152 
1153 uint64_t
1154 fm_ena_generate_cpu(uint64_t timestamp, processorid_t cpuid, uchar_t format)
1155 {
1156         uint64_t ena = 0;
1157 
1158         switch (format) {
1159         case FM_ENA_FMT1:
1160                 if (timestamp) {
1161                         ena = (uint64_t)((format & ENA_FORMAT_MASK) |
1162                             ((cpuid << ENA_FMT1_CPUID_SHFT) &
1163                             ENA_FMT1_CPUID_MASK) |
1164                             ((timestamp << ENA_FMT1_TIME_SHFT) &
1165                             ENA_FMT1_TIME_MASK));
1166                 } else {
1167                         ena = (uint64_t)((format & ENA_FORMAT_MASK) |
1168                             ((cpuid << ENA_FMT1_CPUID_SHFT) &
1169                             ENA_FMT1_CPUID_MASK) |
1170                             ((gethrtime_waitfree() << ENA_FMT1_TIME_SHFT) &
1171                             ENA_FMT1_TIME_MASK));
1172                 }
1173                 break;
1174         case FM_ENA_FMT2:
1175                 ena = (uint64_t)((format & ENA_FORMAT_MASK) |
1176                     ((timestamp << ENA_FMT2_TIME_SHFT) & ENA_FMT2_TIME_MASK));
1177                 break;
1178         default:
1179                 break;
1180         }
1181 
1182         return (ena);
1183 }
1184 
1185 uint64_t
1186 fm_ena_generate(uint64_t timestamp, uchar_t format)
1187 {
1188         return (fm_ena_generate_cpu(timestamp, CPU->cpu_id, format));
1189 }
1190 
1191 uint64_t
1192 fm_ena_generation_get(uint64_t ena)
1193 {
1194         uint64_t gen;
1195 
1196         switch (ENA_FORMAT(ena)) {
1197         case FM_ENA_FMT1:
1198                 gen = (ena & ENA_FMT1_GEN_MASK) >> ENA_FMT1_GEN_SHFT;
1199                 break;
1200         case FM_ENA_FMT2:
1201                 gen = (ena & ENA_FMT2_GEN_MASK) >> ENA_FMT2_GEN_SHFT;
1202                 break;
1203         default:
1204                 gen = 0;
1205                 break;
1206         }
1207 
1208         return (gen);
1209 }
1210 
1211 uchar_t
1212 fm_ena_format_get(uint64_t ena)
1213 {
1214 
1215         return (ENA_FORMAT(ena));
1216 }
1217 
1218 uint64_t
1219 fm_ena_id_get(uint64_t ena)
1220 {
1221         uint64_t id;
1222 
1223         switch (ENA_FORMAT(ena)) {
1224         case FM_ENA_FMT1:
1225                 id = (ena & ENA_FMT1_ID_MASK) >> ENA_FMT1_ID_SHFT;
1226                 break;
1227         case FM_ENA_FMT2:
1228                 id = (ena & ENA_FMT2_ID_MASK) >> ENA_FMT2_ID_SHFT;
1229                 break;
1230         default:
1231                 id = 0;
1232         }
1233 
1234         return (id);
1235 }
1236 
1237 uint64_t
1238 fm_ena_time_get(uint64_t ena)
1239 {
1240         uint64_t time;
1241 
1242         switch (ENA_FORMAT(ena)) {
1243         case FM_ENA_FMT1:
1244                 time = (ena & ENA_FMT1_TIME_MASK) >> ENA_FMT1_TIME_SHFT;
1245                 break;
1246         case FM_ENA_FMT2:
1247                 time = (ena & ENA_FMT2_TIME_MASK) >> ENA_FMT2_TIME_SHFT;
1248                 break;
1249         default:
1250                 time = 0;
1251         }
1252 
1253         return (time);
1254 }
1255 
1256 /*
1257  * Convert a getpcstack() trace to symbolic name+offset, and add the resulting
1258  * string array to a Fault Management ereport as FM_EREPORT_PAYLOAD_NAME_STACK.
1259  */
1260 void
1261 fm_payload_stack_add(nvlist_t *payload, const pc_t *stack, int depth)
1262 {
1263         int i;
1264         char *sym;
1265         ulong_t off;
1266         char *stkpp[FM_STK_DEPTH];
1267         char buf[FM_STK_DEPTH * FM_SYM_SZ];
1268         char *stkp = buf;
1269 
1270         for (i = 0; i < depth && i != FM_STK_DEPTH; i++, stkp += FM_SYM_SZ) {
1271                 if ((sym = kobj_getsymname(stack[i], &off)) != NULL)
1272                         (void) snprintf(stkp, FM_SYM_SZ, "%s+%lx", sym, off);
1273                 else
1274                         (void) snprintf(stkp, FM_SYM_SZ, "%lx", (long)stack[i]);
1275                 stkpp[i] = stkp;
1276         }
1277 
1278         fm_payload_set(payload, FM_EREPORT_PAYLOAD_NAME_STACK,
1279             DATA_TYPE_STRING_ARRAY, depth, stkpp, NULL);
1280 }
1281 
1282 void
1283 print_msg_hwerr(ctid_t ct_id, proc_t *p)
1284 {
1285         uprintf("Killed process %d (%s) in contract id %d "
1286             "due to hardware error\n", p->p_pid, p->p_user.u_comm, ct_id);
1287 }
1288 
1289 void
1290 fm_fmri_hc_create(nvlist_t *fmri, int version, const nvlist_t *auth,
1291     nvlist_t *snvl, nvlist_t *bboard, int npairs, ...)
1292 {
1293         nv_alloc_t *nva = nvlist_lookup_nv_alloc(fmri);
1294         nvlist_t *pairs[HC_MAXPAIRS];
1295         nvlist_t **hcl;
1296         uint_t n;
1297         int i, j;
1298         va_list ap;
1299         char *hcname, *hcid;
1300 
1301         if (!fm_fmri_hc_set_common(fmri, version, auth))
1302                 return;
1303 
1304         /*
1305          * copy the bboard nvpairs to the pairs array
1306          */
1307         if (nvlist_lookup_nvlist_array(bboard, FM_FMRI_HC_LIST, &hcl, &n)
1308             != 0) {
1309                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1310                 return;
1311         }
1312 
1313         for (i = 0; i < n; i++) {
1314                 if (nvlist_lookup_string(hcl[i], FM_FMRI_HC_NAME,
1315                     &hcname) != 0) {
1316                         atomic_add_64(
1317                             &erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1318                         return;
1319                 }
1320                 if (nvlist_lookup_string(hcl[i], FM_FMRI_HC_ID, &hcid) != 0) {
1321                         atomic_add_64(
1322                             &erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1323                         return;
1324                 }
1325 
1326                 pairs[i] = fm_nvlist_create(nva);
1327                 if (nvlist_add_string(pairs[i], FM_FMRI_HC_NAME, hcname) != 0 ||
1328                     nvlist_add_string(pairs[i], FM_FMRI_HC_ID, hcid) != 0) {
1329                         for (j = 0; j <= i; j++) {
1330                                 if (pairs[j] != NULL)
1331                                         fm_nvlist_destroy(pairs[j],
1332                                             FM_NVA_RETAIN);
1333                         }
1334                         atomic_add_64(
1335                             &erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1336                         return;
1337                 }
1338         }
1339 
1340         /*
1341          * create the pairs from passed in pairs
1342          */
1343         npairs = MIN(npairs, HC_MAXPAIRS);
1344 
1345         va_start(ap, npairs);
1346         for (i = n; i < npairs + n; i++) {
1347                 const char *name = va_arg(ap, const char *);
1348                 uint32_t id = va_arg(ap, uint32_t);
1349                 char idstr[11];
1350                 (void) snprintf(idstr, sizeof (idstr), "%u", id);
1351                 pairs[i] = fm_nvlist_create(nva);
1352                 if (nvlist_add_string(pairs[i], FM_FMRI_HC_NAME, name) != 0 ||
1353                     nvlist_add_string(pairs[i], FM_FMRI_HC_ID, idstr) != 0) {
1354                         for (j = 0; j <= i; j++) {
1355                                 if (pairs[j] != NULL)
1356                                         fm_nvlist_destroy(pairs[j],
1357                                             FM_NVA_RETAIN);
1358                         }
1359                         atomic_add_64(
1360                             &erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1361                         return;
1362                 }
1363         }
1364         va_end(ap);
1365 
1366         /*
1367          * Create the fmri hc list
1368          */
1369         if (nvlist_add_nvlist_array(fmri, FM_FMRI_HC_LIST, pairs,
1370             npairs + n) != 0) {
1371                 atomic_add_64(&erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1372                 return;
1373         }
1374 
1375         for (i = 0; i < npairs + n; i++) {
1376                         fm_nvlist_destroy(pairs[i], FM_NVA_RETAIN);
1377         }
1378 
1379         if (snvl != NULL) {
1380                 if (nvlist_add_nvlist(fmri, FM_FMRI_HC_SPECIFIC, snvl) != 0) {
1381                         atomic_add_64(
1382                             &erpt_kstat_data.fmri_set_failed.value.ui64, 1);
1383                         return;
1384                 }
1385         }
1386 }