src/solx_devfs.c

   1 /*
   2  * (C) Copyright IBM Corporation 2006
   3  * All Rights Reserved.
   4  *
   5  * Permission is hereby granted, free of charge, to any person obtaining a
   6  * copy of this software and associated documentation files (the "Software"),
   7  * to deal in the Software without restriction, including without limitation
   8  * on the rights to use, copy, modify, merge, publish, distribute, sub
   9  * license, and/or sell copies of the Software, and to permit persons to whom
  10  * the Software is furnished to do so, subject to the following conditions:
  11  *
  12  * The above copyright notice and this permission notice (including the next
  13  * paragraph) shall be included in all copies or substantial portions of the
  14  * Software.
  15  *
  16  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  17  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  18  * FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.  IN NO EVENT SHALL
  19  * IBM AND/OR THEIR SUPPLIERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  20  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
  21  * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
  22  * DEALINGS IN THE SOFTWARE.
  23  */
  24 /*
  25  * Copyright 2007, 2009 Sun Microsystems, Inc.  All rights reserved.
  26  *
  27  * Permission is hereby granted, free of charge, to any person obtaining a
  28  * copy of this software and associated documentation files (the
  29  * "Software"), to deal in the Software without restriction, including
  30  * without limitation the rights to use, copy, modify, merge, publish,
  31  * distribute, and/or sell copies of the Software, and to permit persons
  32  * to whom the Software is furnished to do so, provided that the above
  33  * copyright notice(s) and this permission notice appear in all copies of
  34  * the Software and that both the above copyright notice(s) and this
  35  * permission notice appear in supporting documentation.
  36  *
  37  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  38  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  39  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT
  40  * OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
  41  * HOLDERS INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL
  42  * INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER RESULTING
  43  * FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
  44  * NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
  45  * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  46  *
  47  * Except as contained in this notice, the name of a copyright holder
  48  * shall not be used in advertising or otherwise to promote the sale, use
  49  * or other dealings in this Software without prior written authorization
  50  * of the copyright holder.
  51  */
  52 /*
  53  * Solaris devfs interfaces
  54  */
  55
  56 #include <stdlib.h>
  57 #include <strings.h>
  58 #include <stdio.h>
  59 #include <unistd.h>
  60 #include <sys/types.h>
  61 #include <fcntl.h>
  62 #include <sys/mman.h>
  63 #include <errno.h>
  64 #include <sys/pci.h>
  65 #include <libdevinfo.h>
  66 #include "pci_tools.h"
  67
  68 #include "pciaccess.h"
  69 #include "pciaccess_private.h"
  70
  71 /* #define DEBUG */
  72
  73 #define MAX_DEVICES     256
  74 #define CELL_NUMS_1275  (sizeof(pci_regspec_t) / sizeof(uint_t))
  75
  76 typedef union {
  77     uint8_t bytes[16 * sizeof (uint32_t)];
  78     uint32_t dwords[16];
  79 } pci_conf_hdr_t;
  80
  81 typedef struct i_devnode {
  82     uint8_t bus;
  83     uint8_t dev;
  84     uint8_t func;
  85     di_node_t node;
  86 } i_devnode_t;
  87
  88 typedef struct nexus {
  89     int fd;
  90     int first_bus;
  91     int last_bus;
  92     char *path;                 /* for errors/debugging; fd is all we need */
  93     struct nexus *next;
  94 } nexus_t;
  95
  96 static nexus_t *nexus_list = NULL;
  97 static int xsvc_fd = -1;
  98
  99 /*
 100  * Read config space in native processor endianness.  Endian-neutral
 101  * processing can then take place.  On big endian machines, MSB and LSB
 102  * of little endian data end up switched if read as little endian.
 103  * They are in correct order if read as big endian.
 104  */
 105 #if defined(__sparc)
 106 # define NATIVE_ENDIAN  PCITOOL_ACC_ATTR_ENDN_BIG
 107 #elif defined(__x86)
 108 # define NATIVE_ENDIAN  PCITOOL_ACC_ATTR_ENDN_LTL
 109 #else
 110 # error "ISA is neither __sparc nor __x86"
 111 #endif
 112
 113 /*
 114  * Identify problematic southbridges.  These have device id 0x5249 and
 115  * vendor id 0x10b9.  Check for revision ID 0 and class code 060400 as well.
 116  * Values are little endian, so they are reversed for SPARC.
 117  *
 118  * Check for these southbridges on all architectures, as the issue is a
 119  * southbridge issue, independent of processor.
 120  *
 121  * If one of these is found during probing, skip probing other devs/funcs on
 122  * the rest of the bus, since the southbridge and all devs underneath will
 123  * otherwise disappear.
 124  */
 125 #if (NATIVE_ENDIAN == PCITOOL_ACC_ATTR_ENDN_BIG)
 126 # define U45_SB_DEVID_VID       0xb9104952
 127 # define U45_SB_CLASS_RID       0x00000406
 128 #else
 129 # define U45_SB_DEVID_VID       0x524910b9
 130 # define U45_SB_CLASS_RID       0x06040000
 131 #endif
 132
 133 static int pci_device_solx_devfs_map_range(struct pci_device *dev,
 134     struct pci_device_mapping *map);
 135
 136 static int pci_device_solx_devfs_read_rom( struct pci_device * dev,
 137     void * buffer );
 138
 139 static int pci_device_solx_devfs_probe( struct pci_device * dev );
 140
 141 static int pci_device_solx_devfs_read( struct pci_device * dev, void * data,
 142     pciaddr_t offset, pciaddr_t size, pciaddr_t * bytes_read );
 143
 144 static int pci_device_solx_devfs_write( struct pci_device * dev,
 145     const void * data, pciaddr_t offset, pciaddr_t size,
 146     pciaddr_t * bytes_written );
 147
 148 static int probe_dev(nexus_t *nexus, pcitool_reg_t *prg_p,
 149                      struct pci_system *pci_sys);
 150
 151 static int do_probe(nexus_t *nexus, struct pci_system *pci_sys);
 152
 153 static int probe_nexus_node(di_node_t di_node, di_minor_t minor, void *arg);
 154
 155 static void pci_system_solx_devfs_destroy( void );
 156
 157 static int get_config_header(int fd, uint8_t bus_no, uint8_t dev_no,
 158                              uint8_t func_no, pci_conf_hdr_t *config_hdr_p);
 159
 160 int pci_system_solx_devfs_create( void );
 161
 162 static const struct pci_system_methods solx_devfs_methods = {
 163     .destroy = pci_system_solx_devfs_destroy,
 164     .destroy_device = NULL,
 165     .read_rom = pci_device_solx_devfs_read_rom,
 166     .probe = pci_device_solx_devfs_probe,
 167     .map_range = pci_device_solx_devfs_map_range,
 168     .unmap_range = pci_device_generic_unmap_range,
 169
 170     .read = pci_device_solx_devfs_read,
 171     .write = pci_device_solx_devfs_write,
 172
 173     .fill_capabilities = pci_fill_capabilities_generic
 174 };
 175
 176 static nexus_t *
 177 find_nexus_for_bus( int bus )
 178 {
 179     nexus_t *nexus;
 180
 181     for (nexus = nexus_list ; nexus != NULL ; nexus = nexus->next) {
 182         if ((bus >= nexus->first_bus) && (bus <= nexus->last_bus)) {
 183             return nexus;
 184         }
 185     }
 186     return NULL;
 187 }
 188
 189 #define GET_CONFIG_VAL_8(offset) (config_hdr.bytes[offset])
 190 #define GET_CONFIG_VAL_16(offset) \
 191     (uint16_t) (GET_CONFIG_VAL_8(offset) + (GET_CONFIG_VAL_8(offset+1) << 8))
 192 #define GET_CONFIG_VAL_32(offset) \
 193     (uint32_t) (GET_CONFIG_VAL_8(offset) +              \
 194                 (GET_CONFIG_VAL_8(offset+1) << 8) +     \
 195                 (GET_CONFIG_VAL_8(offset+2) << 16) +    \
 196                 (GET_CONFIG_VAL_8(offset+3) << 24))
 197
 198 /*
 199  * Release all the resources
 200  * Solaris version
 201  */
 202 static void
 203 pci_system_solx_devfs_destroy( void )
 204 {
 205     /*
 206      * The memory allocated for pci_sys & devices in create routines
 207      * will be freed in pci_system_cleanup.
 208      * Need to free system-specific allocations here.
 209      */
 210     nexus_t *nexus, *next;
 211
 212     for (nexus = nexus_list ; nexus != NULL ; nexus = next) {
 213         next = nexus->next;
 214         close(nexus->fd);
 215         free(nexus->path);
 216         free(nexus);
 217     }
 218     nexus_list = NULL;
 219
 220     if (xsvc_fd >= 0) {
 221         close(xsvc_fd);
 222         xsvc_fd = -1;
 223     }
 224 }
 225
 226 /*
 227  * Attempt to access PCI subsystem using Solaris's devfs interface.
 228  * Solaris version
 229  */
 230 _pci_hidden int
 231 pci_system_solx_devfs_create( void )
 232 {
 233     int err = 0;
 234     di_node_t di_node;
 235
 236
 237     if (nexus_list != NULL) {
 238         return 0;
 239     }
 240
 241     /*
 242      * Only allow MAX_DEVICES exists
 243      * I will fix it later to get
 244      * the total devices first
 245      */
 246     if ((pci_sys = calloc(1, sizeof (struct pci_system))) != NULL) {
 247         pci_sys->methods = &solx_devfs_methods;
 248
 249         if ((pci_sys->devices =
 250              calloc(MAX_DEVICES, sizeof (struct pci_device_private)))
 251             != NULL) {
 252
 253             if ((di_node = di_init("/", DINFOCPYALL)) == DI_NODE_NIL) {
 254                 err = errno;
 255                 (void) fprintf(stderr, "di_init() failed: %s\n",
 256                                strerror(errno));
 257             } else {
 258                 (void) di_walk_minor(di_node, DDI_NT_REGACC, 0, pci_sys,
 259                                      probe_nexus_node);
 260                 di_fini(di_node);
 261             }
 262         }
 263         else {
 264             err = errno;
 265         }
 266     } else {
 267         err = errno;
 268     }
 269
 270     if (err != 0) {
 271         if (pci_sys != NULL) {
 272             free(pci_sys->devices);
 273             free(pci_sys);
 274             pci_sys = NULL;
 275         }
 276     }
 277
 278     return (err);
 279 }
 280
 281 /*
 282  * Retrieve first 16 dwords of device's config header, except for the first
 283  * dword.  First 16 dwords are defined by the PCI specification.
 284  */
 285 static int
 286 get_config_header(int fd, uint8_t bus_no, uint8_t dev_no, uint8_t func_no,
 287                   pci_conf_hdr_t *config_hdr_p)
 288 {
 289     pcitool_reg_t cfg_prg;
 290     int i;
 291     int rval = 0;
 292
 293     /* Prepare a local pcitool_reg_t so as to not disturb the caller's. */
 294     cfg_prg.offset = 0;
 295     cfg_prg.acc_attr = PCITOOL_ACC_ATTR_SIZE_4 + NATIVE_ENDIAN;
 296     cfg_prg.bus_no = bus_no;
 297     cfg_prg.dev_no = dev_no;
 298     cfg_prg.func_no = func_no;
 299     cfg_prg.barnum = 0;
 300     cfg_prg.user_version = PCITOOL_USER_VERSION;
 301
 302     /* Get dwords 1-15 of config space. They must be read as uint32_t. */
 303     for (i = 1; i < (sizeof (pci_conf_hdr_t) / sizeof (uint32_t)); i++) {
 304         cfg_prg.offset += sizeof (uint32_t);
 305         if ((rval = ioctl(fd, PCITOOL_DEVICE_GET_REG, &cfg_prg)) != 0) {
 306             break;
 307         }
 308         config_hdr_p->dwords[i] = (uint32_t)cfg_prg.data;
 309     }
 310
 311     return (rval);
 312 }
 313
 314
 315 /*
 316  * Probe device's functions.  Modifies many fields in the prg_p.
 317  */
 318 static int
 319 probe_dev(nexus_t *nexus, pcitool_reg_t *prg_p, struct pci_system *pci_sys)
 320 {
 321     pci_conf_hdr_t      config_hdr;
 322     boolean_t           multi_function_device;
 323     int8_t              func;
 324     int8_t              first_func = 0;
 325     int8_t              last_func = PCI_REG_FUNC_M >> PCI_REG_FUNC_SHIFT;
 326     int                 rval = 0;
 327     struct pci_device * pci_base;
 328
 329     /*
 330      * Loop through at least func=first_func.  Continue looping through
 331      * functions if there are no errors and the device is a multi-function
 332      * device.
 333      *
 334      * (Note, if first_func == 0, header will show whether multifunction
 335      * device and set multi_function_device.  If first_func != 0, then we
 336      * will force the loop as the user wants a specific function to be
 337      * checked.
 338      */
 339     for (func = first_func, multi_function_device = B_FALSE;
 340          ((func <= last_func) &&
 341           ((func == first_func) || (multi_function_device)));
 342          func++) {
 343         prg_p->func_no = func;
 344
 345         /*
 346          * Four things can happen here:
 347          *
 348          * 1) ioctl comes back as EFAULT and prg_p->status is
 349          *    PCITOOL_INVALID_ADDRESS.  There is no device at this location.
 350          *
 351          * 2) ioctl comes back successful and the data comes back as
 352          *    zero.  Config space is mapped but no device responded.
 353          *
 354          * 3) ioctl comes back successful and the data comes back as
 355          *    non-zero.  We've found a device.
 356          *
 357          * 4) Some other error occurs in an ioctl.
 358          */
 359
 360         prg_p->status = PCITOOL_SUCCESS;
 361         prg_p->offset = 0;
 362         prg_p->data = 0;
 363         prg_p->user_version = PCITOOL_USER_VERSION;
 364
 365         errno = 0;
 366         if (((rval = ioctl(nexus->fd, PCITOOL_DEVICE_GET_REG, prg_p)) != 0) ||
 367             (prg_p->data == 0xffffffff)) {
 368
 369             /*
 370              * Accept errno == EINVAL along with status of
 371              * PCITOOL_OUT_OF_RANGE because some systems
 372              * don't implement the full range of config space.
 373              * Leave the loop quietly in this case.
 374              */
 375             if ((errno == EINVAL) ||
 376                 (prg_p->status == PCITOOL_OUT_OF_RANGE)) {
 377                 break;
 378             }
 379
 380             /*
 381              * Exit silently with ENXIO as this means that there are
 382              * no devices under the pci root nexus.
 383              */
 384             else if ((errno == ENXIO) &&
 385                      (prg_p->status == PCITOOL_IO_ERROR)) {
 386                 break;
 387             }
 388
 389             /*
 390              * Expect errno == EFAULT along with status of
 391              * PCITOOL_INVALID_ADDRESS because there won't be
 392              * devices at each stop.  Quit on any other error.
 393              */
 394             else if (((errno != EFAULT) ||
 395                       (prg_p->status != PCITOOL_INVALID_ADDRESS)) &&
 396                      (prg_p->data != 0xffffffff)) {
 397                 break;
 398             }
 399
 400             /*
 401              * If no function at this location,
 402              * just advance to the next function.
 403              */
 404             else {
 405                 rval = 0;
 406             }
 407
 408             /*
 409              * Data came back as 0.
 410              * Treat as unresponsive device and check next device.
 411              */
 412         } else if (prg_p->data == 0) {
 413             rval = 0;
 414             break;      /* Func loop. */
 415
 416             /* Found something. */
 417         } else {
 418             config_hdr.dwords[0] = (uint32_t)prg_p->data;
 419
 420             /* Get the rest of the PCI header. */
 421             if ((rval = get_config_header(nexus->fd, prg_p->bus_no,
 422                                           prg_p->dev_no, prg_p->func_no,
 423                                           &config_hdr)) != 0) {
 424                 break;
 425             }
 426
 427             /*
 428              * Special case for the type of Southbridge found on
 429              * Ultra-45 and other sun4u fire workstations.
 430              */
 431             if ((config_hdr.dwords[0] == U45_SB_DEVID_VID) &&
 432                 (config_hdr.dwords[2] == U45_SB_CLASS_RID)) {
 433                 rval = ECANCELED;
 434                 break;
 435             }
 436
 437             /*
 438              * Found one device with bus number, device number and
 439              * function number.
 440              */
 441
 442             pci_base = &pci_sys->devices[pci_sys->num_devices].base;
 443
 444             /*
 445              * Domain is peer bus??
 446              */
 447             pci_base->domain = 0;
 448             pci_base->bus = prg_p->bus_no;
 449             pci_base->dev = prg_p->dev_no;
 450             pci_base->func = func;
 451
 452             /*
 453              * for the format of device_class, see struct pci_device;
 454              */
 455
 456             pci_base->device_class =
 457                 (GET_CONFIG_VAL_8(PCI_CONF_BASCLASS) << 16) |
 458                 (GET_CONFIG_VAL_8(PCI_CONF_SUBCLASS) << 8) |
 459                 GET_CONFIG_VAL_8(PCI_CONF_PROGCLASS);
 460
 461             pci_base->revision          = GET_CONFIG_VAL_8(PCI_CONF_REVID);
 462             pci_base->vendor_id         = GET_CONFIG_VAL_16(PCI_CONF_VENID);
 463             pci_base->device_id         = GET_CONFIG_VAL_16(PCI_CONF_DEVID);
 464             pci_base->subvendor_id      = GET_CONFIG_VAL_16(PCI_CONF_SUBVENID);
 465             pci_base->subdevice_id      = GET_CONFIG_VAL_16(PCI_CONF_SUBSYSID);
 466
 467             pci_sys->devices[pci_sys->num_devices].header_type
 468                                         = GET_CONFIG_VAL_8(PCI_CONF_HEADER);
 469
 470 #ifdef DEBUG
 471             fprintf(stderr,
 472                     "nexus = %s, busno = %x, devno = %x, funcno = %x\n",
 473                     nexus->path, prg_p->bus_no, prg_p->dev_no, func);
 474 #endif
 475
 476             if (pci_sys->num_devices < (MAX_DEVICES - 1)) {
 477                 pci_sys->num_devices++;
 478             } else {
 479                 (void) fprintf(stderr,
 480                                "Maximum number of PCI devices found,"
 481                                " discarding additional devices\n");
 482             }
 483
 484
 485             /*
 486              * Accommodate devices which state their
 487              * multi-functionality only in their function 0 config
 488              * space.  Note multi-functionality throughout probing
 489              * of all of this device's functions.
 490              */
 491             if (config_hdr.bytes[PCI_CONF_HEADER] & PCI_HEADER_MULTI) {
 492                 multi_function_device = B_TRUE;
 493             }
 494         }
 495     }
 496
 497     return (rval);
 498 }
 499
 500 /*
 501  * This function is called from di_walk_minor() when any PROBE is processed
 502  */
 503 static int
 504 probe_nexus_node(di_node_t di_node, di_minor_t minor, void *arg)
 505 {
 506     struct pci_system *pci_sys = (struct pci_system *) arg;
 507     char *nexus_name;
 508     nexus_t *nexus;
 509     int fd;
 510     char nexus_path[MAXPATHLEN];
 511
 512     di_prop_t prop;
 513     char *strings;
 514     int *ints;
 515     int numval;
 516     int pci_node = 0;
 517     int first_bus = 0, last_bus = PCI_REG_BUS_G(PCI_REG_BUS_M);
 518
 519 #ifdef DEBUG
 520     nexus_name = di_devfs_minor_path(minor);
 521     fprintf(stderr, "-- device name: %s\n", nexus_name);
 522 #endif
 523
 524     for (prop = di_prop_next(di_node, NULL); prop != NULL;
 525          prop = di_prop_next(di_node, prop)) {
 526
 527         const char *prop_name = di_prop_name(prop);
 528
 529 #ifdef DEBUG
 530         fprintf(stderr, "   property: %s\n", prop_name);
 531 #endif
 532
 533         if (strcmp(prop_name, "device_type") == 0) {
 534             numval = di_prop_strings(prop, &strings);
 535             if (numval != 1 || strncmp(strings, "pci", 3) != 0) {
 536                 /* not a PCI node, bail */
 537                 return (DI_WALK_CONTINUE);
 538             }
 539             pci_node = 1;
 540         }
 541         else if (strcmp(prop_name, "class-code") == 0) {
 542             /* not a root bus node, bail */
 543             return (DI_WALK_CONTINUE);
 544         }
 545         else if (strcmp(prop_name, "bus-range") == 0) {
 546             numval = di_prop_ints(prop, &ints);
 547             if (numval == 2) {
 548                 first_bus = ints[0];
 549                 last_bus = ints[1];
 550             }
 551         }
 552     }
 553
 554 #ifdef __x86  /* sparc pci nodes don't have the device_type set */
 555     if (pci_node != 1)
 556         return (DI_WALK_CONTINUE);
 557 #endif
 558
 559     /* we have a PCI root bus node. */
 560     nexus = calloc(1, sizeof(nexus_t));
 561     if (nexus == NULL) {
 562         (void) fprintf(stderr, "Error allocating memory for nexus: %s\n",
 563                        strerror(errno));
 564         return (DI_WALK_TERMINATE);
 565     }
 566     nexus->first_bus = first_bus;
 567     nexus->last_bus = last_bus;
 568
 569     nexus_name = di_devfs_minor_path(minor);
 570     if (nexus_name == NULL) {
 571         (void) fprintf(stderr, "Error getting nexus path: %s\n",
 572                        strerror(errno));
 573         free(nexus);
 574         return (DI_WALK_CONTINUE);
 575     }
 576
 577     snprintf(nexus_path, sizeof(nexus_path), "/devices%s", nexus_name);
 578     di_devfs_path_free(nexus_name);
 579
 580 #ifdef DEBUG
 581     fprintf(stderr, "nexus = %s, bus-range = %d - %d\n",
 582             nexus_path, first_bus, last_bus);
 583 #endif
 584
 585     if ((fd = open(nexus_path, O_RDWR)) >= 0) {
 586         nexus->fd = fd;
 587         nexus->path = strdup(nexus_path);
 588         if ((do_probe(nexus, pci_sys) != 0) && (errno != ENXIO)) {
 589             (void) fprintf(stderr, "Error probing node %s: %s\n",
 590                            nexus_path, strerror(errno));
 591             (void) close(fd);
 592             free(nexus->path);
 593             free(nexus);
 594         } else {
 595             nexus->next = nexus_list;
 596             nexus_list = nexus;
 597         }
 598     } else {
 599         (void) fprintf(stderr, "Error opening %s: %s\n",
 600                        nexus_path, strerror(errno));
 601         free(nexus);
 602     }
 603
 604     return DI_WALK_CONTINUE;
 605 }
 606
 607
 608 /*
 609  * Solaris version
 610  * Probe a given nexus config space for devices.
 611  *
 612  * fd is the file descriptor of the nexus.
 613  * input_args contains commandline options as specified by the user.
 614  */
 615 static int
 616 do_probe(nexus_t *nexus, struct pci_system *pci_sys)
 617 {
 618     pcitool_reg_t prg;
 619     uint32_t bus;
 620     uint8_t dev;
 621     uint32_t last_bus = nexus->last_bus;
 622     uint8_t last_dev = PCI_REG_DEV_M >> PCI_REG_DEV_SHIFT;
 623     uint8_t first_bus = nexus->first_bus;
 624     uint8_t first_dev = 0;
 625     int rval = 0;
 626
 627     prg.barnum = 0;     /* Config space. */
 628
 629     /* Must read in 4-byte quantities. */
 630     prg.acc_attr = PCITOOL_ACC_ATTR_SIZE_4 + NATIVE_ENDIAN;
 631
 632     prg.data = 0;
 633
 634     /*
 635      * Loop through all valid bus / dev / func combinations to check for
 636      * all devices, with the following exceptions:
 637      *
 638      * When nothing is found at function 0 of a bus / dev combination, skip
 639      * the other functions of that bus / dev combination.
 640      *
 641      * When a found device's function 0 is probed and it is determined that
 642      * it is not a multifunction device, skip probing of that device's
 643      * other functions.
 644      */
 645     for (bus = first_bus; ((bus <= last_bus) && (rval == 0)); bus++) {
 646         prg.bus_no = (uint8_t)bus;
 647
 648         for (dev = first_dev; ((dev <= last_dev) && (rval == 0)); dev++) {
 649             prg.dev_no = dev;
 650             rval = probe_dev(nexus, &prg, pci_sys);
 651         }
 652
 653         /*
 654          * Ultra-45 southbridge workaround:
 655          * ECANCELED tells to skip to the next bus.
 656          */
 657         if (rval == ECANCELED) {
 658             rval = 0;
 659         }
 660     }
 661
 662     return (rval);
 663 }
 664
 665 static int
 666 find_target_node(di_node_t node, void *arg)
 667 {
 668     int *regbuf = NULL;
 669     int len = 0;
 670     uint32_t busno, funcno, devno;
 671     i_devnode_t *devnode;
 672     void *prop = DI_PROP_NIL;
 673     int i;
 674
 675     devnode = (i_devnode_t *)arg;
 676
 677     /*
 678      * Test the property functions, only for testing
 679      */
 680     /*
 681     (void) fprintf(stderr, "start of node 0x%x\n", node->nodeid);
 682     while ((prop = di_prop_hw_next(node, prop)) != DI_PROP_NIL) {
 683         (void) fprintf(stderr, "name=%s: ", di_prop_name(prop));
 684         len = 0;
 685         if (!strcmp(di_prop_name(prop), "reg")) {
 686             len = di_prop_ints(prop, &regbuf);
 687         }
 688         for (i = 0; i < len; i++) {
 689             fprintf(stderr, "0x%0x.", regbuf[i]);
 690         }
 691         fprintf(stderr, "\n");
 692     }
 693     (void) fprintf(stderr, "end of node 0x%x\n", node->nodeid);
 694     */
 695
 696     len = di_prop_lookup_ints(DDI_DEV_T_ANY, node, "reg", &regbuf);
 697
 698     if (len <= 0) {
 699 #ifdef DEBUG
 700         fprintf(stderr, "error = %x\n", errno);
 701         fprintf(stderr, "can not find assigned-address\n");
 702 #endif
 703         return (DI_WALK_CONTINUE);
 704     }
 705
 706     busno = PCI_REG_BUS_G(regbuf[0]);
 707     devno = PCI_REG_DEV_G(regbuf[0]);
 708     funcno = PCI_REG_FUNC_G(regbuf[0]);
 709
 710     if ((busno == devnode->bus) &&
 711         (devno == devnode->dev) &&
 712         (funcno == devnode->func)) {
 713         devnode->node = node;
 714
 715         return (DI_WALK_TERMINATE);
 716     }
 717
 718     return (DI_WALK_CONTINUE);
 719 }
 720
 721 /*
 722  * Solaris version
 723  */
 724 static int
 725 pci_device_solx_devfs_probe( struct pci_device * dev )
 726 {
 727     uint8_t  config[256];
 728     int err;
 729     di_node_t rnode;
 730     i_devnode_t args;
 731     int *regbuf;
 732     pci_regspec_t *reg;
 733     int i;
 734     pciaddr_t bytes;
 735     int len = 0;
 736     uint ent = 0;
 737
 738     err = pci_device_solx_devfs_read( dev, config, 0, 256, & bytes );
 739     args.node = DI_NODE_NIL;
 740
 741     if ( bytes >= 64 ) {
 742         struct pci_device_private *priv =
 743             (struct pci_device_private *) dev;
 744
 745         dev->vendor_id = (uint16_t)config[0] + ((uint16_t)config[1] << 8);
 746         dev->device_id = (uint16_t)config[2] + ((uint16_t)config[3] << 8);
 747         dev->device_class = (uint32_t)config[9] +
 748             ((uint32_t)config[10] << 8) +
 749             ((uint16_t)config[11] << 16);
 750
 751         /*
 752          * device class code is already there.
 753          * see probe_dev function.
 754          */
 755         dev->revision = config[8];
 756         dev->subvendor_id = (uint16_t)config[44] + ((uint16_t)config[45] << 8);
 757         dev->subdevice_id = (uint16_t)config[46] + ((uint16_t)config[47] << 8);
 758         dev->irq = config[60];
 759
 760         priv->header_type = config[14];
 761         /*
 762          * starting to find if it is MEM/MEM64/IO
 763          * using libdevinfo
 764          */
 765         if ((rnode = di_init("/", DINFOCPYALL)) == DI_NODE_NIL) {
 766             err = errno;
 767             (void) fprintf(stderr, "di_init failed: %s\n", strerror(errno));
 768         } else {
 769             args.bus = dev->bus;
 770             args.dev = dev->dev;
 771             args.func = dev->func;
 772             (void) di_walk_node(rnode, DI_WALK_CLDFIRST,
 773                                 (void *)&args, find_target_node);
 774             di_fini(rnode);
 775         }
 776     }
 777     if (args.node != DI_NODE_NIL) {
 778         /*
 779          * It will succeed for sure, because it was
 780          * successfully called in find_target_node
 781          */
 782         len = di_prop_lookup_ints(DDI_DEV_T_ANY, args.node,
 783                                   "assigned-addresses",
 784                                   &regbuf);
 785
 786     }
 787
 788     if (len <= 0)
 789         return (err);
 790
 791
 792     /*
 793      * how to find the size of rom???
 794      * if the device has expansion rom,
 795      * it must be listed in the last
 796      * cells because solaris find probe
 797      * the base address from offset 0x10
 798      * to 0x30h. So only check the last
 799      * item.
 800      */
 801     reg = (pci_regspec_t *)&regbuf[len - CELL_NUMS_1275];
 802     if (PCI_REG_REG_G(reg->pci_phys_hi) == PCI_CONF_ROM) {
 803         /*
 804          * rom can only be 32 bits
 805          */
 806         dev->rom_size = reg->pci_size_low;
 807         len = len - CELL_NUMS_1275;
 808     }
 809     else {
 810         /*
 811          * size default to 64K and base address
 812          * default to 0xC0000
 813          */
 814         dev->rom_size = 0x10000;
 815     }
 816
 817     /*
 818      * Solaris has its own BAR index.
 819      * Linux give two region slot for 64 bit address.
 820      */
 821     for (i = 0; i < len; i = i + CELL_NUMS_1275) {
 822
 823         reg = (pci_regspec_t *)&regbuf[i];
 824         ent = reg->pci_phys_hi & 0xff;
 825         /*
 826          * G35 broken in BAR0
 827          */
 828         ent = (ent - PCI_CONF_BASE0) >> 2;
 829         if (ent >= 6) {
 830             fprintf(stderr, "error ent = %d\n", ent);
 831             break;
 832         }
 833
 834         /*
 835          * non relocatable resource is excluded
 836          * such like 0xa0000, 0x3b0. If it is met,
 837          * the loop is broken;
 838          */
 839         if (!PCI_REG_REG_G(reg->pci_phys_hi))
 840             break;
 841
 842         if (reg->pci_phys_hi & PCI_PREFETCH_B) {
 843             dev->regions[ent].is_prefetchable = 1;
 844         }
 845
 846
 847         /*
 848          * We split the shift count 32 into two 16 to
 849          * avoid the complaining of the compiler
 850          */
 851         dev->regions[ent].base_addr = reg->pci_phys_low +
 852             ((reg->pci_phys_mid << 16) << 16);
 853         dev->regions[ent].size = reg->pci_size_low +
 854             ((reg->pci_size_hi << 16) << 16);
 855
 856         switch (reg->pci_phys_hi & PCI_REG_ADDR_M) {
 857             case PCI_ADDR_IO:
 858                 dev->regions[ent].is_IO = 1;
 859                 break;
 860             case PCI_ADDR_MEM32:
 861                 break;
 862             case PCI_ADDR_MEM64:
 863                 dev->regions[ent].is_64 = 1;
 864                 /*
 865                  * Skip one slot for 64 bit address
 866                  */
 867                 break;
 868         }
 869     }
 870
 871     return (err);
 872 }
 873
 874 /*
 875  * Solaris version: read the VGA ROM data
 876  */
 877 static int
 878 pci_device_solx_devfs_read_rom( struct pci_device * dev, void * buffer )
 879 {
 880     int err;
 881     struct pci_device_mapping prom = {
 882         .base = 0xC0000,
 883         .size = dev->rom_size,
 884         .flags = 0
 885     };
 886
 887     err = pci_device_solx_devfs_map_range(dev, &prom);
 888     if (err == 0) {
 889         (void) bcopy(prom.memory, buffer, dev->rom_size);
 890
 891         if (munmap(prom.memory, dev->rom_size) == -1) {
 892             err = errno;
 893         }
 894     }
 895     return err;
 896 }
 897
 898 /*
 899  * solaris version: Read the configurations space of the devices
 900  */
 901 static int
 902 pci_device_solx_devfs_read( struct pci_device * dev, void * data,
 903                              pciaddr_t offset, pciaddr_t size,
 904                              pciaddr_t * bytes_read )
 905 {
 906     pcitool_reg_t cfg_prg;
 907     int err = 0;
 908     int i = 0;
 909     nexus_t *nexus = find_nexus_for_bus(dev->bus);
 910
 911     *bytes_read = 0;
 912
 913     if ( nexus == NULL ) {
 914         return ENODEV;
 915     }
 916
 917     cfg_prg.offset = offset;
 918     cfg_prg.acc_attr = PCITOOL_ACC_ATTR_SIZE_1 + NATIVE_ENDIAN;
 919     cfg_prg.bus_no = dev->bus;
 920     cfg_prg.dev_no = dev->dev;
 921     cfg_prg.func_no = dev->func;
 922     cfg_prg.barnum = 0;
 923     cfg_prg.user_version = PCITOOL_USER_VERSION;
 924
 925     for (i = 0; i < size; i += PCITOOL_ACC_ATTR_SIZE(PCITOOL_ACC_ATTR_SIZE_1))
 926     {
 927         cfg_prg.offset = offset + i;
 928
 929         if ((err = ioctl(nexus->fd, PCITOOL_DEVICE_GET_REG, &cfg_prg)) != 0) {
 930             fprintf(stderr, "read bdf<%s,%x,%x,%x,%llx> config space failure\n",
 931                     nexus->path,
 932                     cfg_prg.bus_no,
 933                     cfg_prg.dev_no,
 934                     cfg_prg.func_no,
 935                     cfg_prg.offset);
 936             fprintf(stderr, "Failure cause = %x\n", err);
 937             break;
 938         }
 939
 940         ((uint8_t *)data)[i] = (uint8_t)cfg_prg.data;
 941         /*
 942          * DWORDS Offset or bytes Offset ??
 943          */
 944     }
 945     *bytes_read = i;
 946
 947     return (err);
 948 }
 949
 950 /*
 951  * Solaris version
 952  */
 953 static int
 954 pci_device_solx_devfs_write( struct pci_device * dev, const void * data,
 955                              pciaddr_t offset, pciaddr_t size,
 956                              pciaddr_t * bytes_written )
 957 {
 958     pcitool_reg_t cfg_prg;
 959     int err = 0;
 960     int cmd;
 961     nexus_t *nexus = find_nexus_for_bus(dev->bus);
 962
 963     if ( bytes_written != NULL ) {
 964         *bytes_written = 0;
 965     }
 966
 967     if ( nexus == NULL ) {
 968         return ENODEV;
 969     }
 970
 971     cfg_prg.offset = offset;
 972     switch (size) {
 973         case 1:
 974             cfg_prg.acc_attr = PCITOOL_ACC_ATTR_SIZE_1 + NATIVE_ENDIAN;
 975             break;
 976         case 2:
 977             cfg_prg.acc_attr = PCITOOL_ACC_ATTR_SIZE_2 + NATIVE_ENDIAN;
 978             break;
 979         case 4:
 980             cfg_prg.acc_attr = PCITOOL_ACC_ATTR_SIZE_4 + NATIVE_ENDIAN;
 981             break;
 982         case 8:
 983             cfg_prg.acc_attr = PCITOOL_ACC_ATTR_SIZE_8 + NATIVE_ENDIAN;
 984             break;
 985         default:
 986             return EINVAL;
 987     }
 988     cfg_prg.bus_no = dev->bus;
 989     cfg_prg.dev_no = dev->dev;
 990     cfg_prg.func_no = dev->func;
 991     cfg_prg.barnum = 0;
 992     cfg_prg.user_version = PCITOOL_USER_VERSION;
 993     cfg_prg.data = *((uint64_t *)data);
 994
 995     /*
 996      * Check if this device is bridge device.
 997      * If it is, it is also a nexus node???
 998      * It seems that there is no explicit
 999      * PCI nexus device for X86, so not applicable
1000      * from pcitool_bus_reg_ops in pci_tools.c
1001      */
1002     cmd = PCITOOL_DEVICE_SET_REG;
1003
1004     if ((err = ioctl(nexus->fd, cmd, &cfg_prg)) != 0) {
1005         return (err);
1006     }
1007     *bytes_written = size;
1008
1009     return (err);
1010 }
1011
1012
1013 /**
1014  * Map a memory region for a device using /dev/xsvc.
1015  *
1016  * \param dev   Device whose memory region is to be mapped.
1017  * \param map   Parameters of the mapping that is to be created.
1018  *
1019  * \return
1020  * Zero on success or an \c errno value on failure.
1021  */
1022 static int
1023 pci_device_solx_devfs_map_range(struct pci_device *dev,
1024                                 struct pci_device_mapping *map)
1025 {
1026     const int prot = ((map->flags & PCI_DEV_MAP_FLAG_WRITABLE) != 0)
1027                         ? (PROT_READ | PROT_WRITE) : PROT_READ;
1028     int err = 0;
1029
1030     /*
1031      * Still used xsvc to do the user space mapping
1032      */
1033     if (xsvc_fd < 0) {
1034         if ((xsvc_fd = open("/dev/xsvc", O_RDWR)) < 0) {
1035             err = errno;
1036             (void) fprintf(stderr, "can not open /dev/xsvc: %s\n",
1037                            strerror(errno));
1038             return err;
1039         }
1040     }
1041
1042     map->memory = mmap(NULL, map->size, prot, MAP_SHARED, xsvc_fd, map->base);
1043     if (map->memory == MAP_FAILED) {
1044         err = errno;
1045
1046         (void) fprintf(stderr, "map rom region =%llx failed: %s\n",
1047                        map->base, strerror(errno));
1048     }
1049
1050     return err;
1051 }