sys/arch/alpha/pci/mcpcia.c

   1 /* $NetBSD: mcpcia.c,v 1.25 2009/03/14 21:04:02 dsl Exp $ */
   2
   3 /*-
   4  * Copyright (c) 1999 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * This code is derived from software contributed to The NetBSD Foundation
   8  * by Jason R. Thorpe of the Numerical Aerospace Simulation Facility,
   9  * NASA Ames Research Center.
  10  *
  11  * Redistribution and use in source and binary forms, with or without
  12  * modification, are permitted provided that the following conditions
  13  * are met:
  14  * 1. Redistributions of source code must retain the above copyright
  15  *    notice, this list of conditions and the following disclaimer.
  16  * 2. Redistributions in binary form must reproduce the above copyright
  17  *    notice, this list of conditions and the following disclaimer in the
  18  *    documentation and/or other materials provided with the distribution.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  21  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  22  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  23  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  24  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  25  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  26  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  27  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  28  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  29  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  30  * POSSIBILITY OF SUCH DAMAGE.
  31  */
  32
  33 /*
  34  * Copyright (c) 1998 by Matthew Jacob
  35  * NASA AMES Research Center.
  36  * All rights reserved.
  37  *
  38  * Redistribution and use in source and binary forms, with or without
  39  * modification, are permitted provided that the following conditions
  40  * are met:
  41  * 1. Redistributions of source code must retain the above copyright
  42  *    notice immediately at the beginning of the file, without modification,
  43  *    this list of conditions, and the following disclaimer.
  44  * 2. Redistributions in binary form must reproduce the above copyright
  45  *    notice, this list of conditions and the following disclaimer in the
  46  *    documentation and/or other materials provided with the distribution.
  47  * 3. The name of the author may not be used to endorse or promote products
  48  *    derived from this software without specific prior written permission.
  49  *
  50  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  51  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  52  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  53  * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
  54  * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  55  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  56  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  57  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  58  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  59  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  60  * SUCH DAMAGE.
  61  */
  62
  63 /*
  64  * MCPCIA mcbus to PCI bus adapter
  65  * found on AlphaServer 4100 systems.
  66  */
  67
  68 #include <sys/cdefs.h>                  /* RCS ID & Copyright macro defns */
  69
  70 __KERNEL_RCSID(0, "$NetBSD: mcpcia.c,v 1.25 2009/03/14 21:04:02 dsl Exp $");
  71
  72 #include <sys/param.h>
  73 #include <sys/systm.h>
  74 #include <sys/device.h>
  75 #include <sys/malloc.h>
  76
  77 #include <machine/autoconf.h>
  78 #include <machine/rpb.h>
  79 #include <machine/sysarch.h>
  80
  81 #include <alpha/mcbus/mcbusreg.h>
  82 #include <alpha/mcbus/mcbusvar.h>
  83 #include <alpha/pci/mcpciareg.h>
  84 #include <alpha/pci/mcpciavar.h>
  85 #include <alpha/pci/pci_kn300.h>
  86
  87 #define KV(_addr)       ((void *)ALPHA_PHYS_TO_K0SEG((_addr)))
  88 #define MCPCIA_SYSBASE(mc)      \
  89         ((((unsigned long) (mc)->cc_gid) << MCBUS_GID_SHIFT) | \
  90          (((unsigned long) (mc)->cc_mid) << MCBUS_MID_SHIFT) | \
  91          (MCBUS_IOSPACE))
  92
  93 #define MCPCIA_PROBE(mid, gid)  \
  94         badaddr((void *)KV(((((unsigned long) gid) << MCBUS_GID_SHIFT) | \
  95          (((unsigned long) mid) << MCBUS_MID_SHIFT) | \
  96          (MCBUS_IOSPACE) | MCPCIA_PCI_BRIDGE | _MCPCIA_PCI_REV)), \
  97         sizeof(u_int32_t))
  98
  99 static int      mcpciamatch(struct device *, struct cfdata *, void *);
 100 static void     mcpciaattach(struct device *, struct device *, void *);
 101 CFATTACH_DECL(mcpcia, sizeof(struct mcpcia_softc),
 102     mcpciamatch, mcpciaattach, NULL, NULL);
 103
 104 void    mcpcia_init0(struct mcpcia_config *, int);
 105
 106 /*
 107  * We have one statically-allocated mcpcia_config structure; this is
 108  * the one used for the console (which, coincidentally, is the only
 109  * MCPCIA with an EISA adapter attached to it).
 110  */
 111 struct mcpcia_config mcpcia_console_configuration;
 112
 113 int     mcpcia_bus_get_window(int, int,
 114             struct alpha_bus_space_translation *abst);
 115
 116 static int
 117 mcpciamatch(struct device *parent, struct cfdata *cf, void *aux)
 118 {
 119         struct mcbus_dev_attach_args *ma = aux;
 120         if (ma->ma_type == MCBUS_TYPE_PCI)
 121                 return (1);
 122         return (0);
 123 }
 124
 125 static void
 126 mcpciaattach(struct device *parent, struct device *self, void *aux)
 127 {
 128         static int first = 1;
 129         struct mcbus_dev_attach_args *ma = aux;
 130         struct mcpcia_softc *mcp = (struct mcpcia_softc *)self;
 131         struct mcpcia_config *ccp;
 132         struct pcibus_attach_args pba;
 133         u_int32_t ctl;
 134
 135         /*
 136          * Make sure this MCPCIA exists...
 137          */
 138         if (MCPCIA_PROBE(ma->ma_mid, ma->ma_gid)) {
 139                 mcp->mcpcia_cc = NULL;
 140                 printf(" (not present)\n");
 141                 return;
 142         }
 143         printf("\n");
 144
 145         /*
 146          * Determine if we're the console's MCPCIA.
 147          */
 148         if (ma->ma_mid == mcpcia_console_configuration.cc_mid &&
 149             ma->ma_gid == mcpcia_console_configuration.cc_gid)
 150                 ccp = &mcpcia_console_configuration;
 151         else {
 152                 ccp = malloc(sizeof(struct mcpcia_config), M_DEVBUF, M_WAITOK);
 153                 memset(ccp, 0, sizeof(struct mcpcia_config));
 154
 155                 ccp->cc_mid = ma->ma_mid;
 156                 ccp->cc_gid = ma->ma_gid;
 157         }
 158
 159         mcp->mcpcia_cc = ccp;
 160         ccp->cc_sc = mcp;
 161
 162         /* This initializes cc_sysbase so we can do register access. */
 163         mcpcia_init0(ccp, 1);
 164
 165         ctl = REGVAL(MCPCIA_PCI_REV(ccp));
 166         printf("%s: Horse Revision %d, %s Handed Saddle Revision %d,"
 167             " CAP Revision %d\n", mcp->mcpcia_dev.dv_xname, HORSE_REV(ctl),
 168             (SADDLE_TYPE(ctl) & 1)? "Right": "Left", SADDLE_REV(ctl),
 169             CAP_REV(ctl));
 170
 171         mcpcia_dma_init(ccp);
 172
 173         /*
 174          * Set up interrupts
 175          */
 176         pci_kn300_pickintr(ccp, first);
 177         first = 0;
 178
 179         /*
 180          * Attach PCI bus
 181          */
 182         pba.pba_iot = &ccp->cc_iot;
 183         pba.pba_memt = &ccp->cc_memt;
 184         pba.pba_dmat =  /* start with direct, may change... */
 185             alphabus_dma_get_tag(&ccp->cc_dmat_direct, ALPHA_BUS_PCI);
 186         pba.pba_dmat64 = NULL;
 187         pba.pba_pc = &ccp->cc_pc;
 188         pba.pba_bus = 0;
 189         pba.pba_bridgetag = NULL;
 190         pba.pba_flags = PCI_FLAGS_IO_ENABLED | PCI_FLAGS_MEM_ENABLED |
 191             PCI_FLAGS_MRL_OKAY | PCI_FLAGS_MRM_OKAY | PCI_FLAGS_MWI_OKAY;
 192         (void) config_found_ia(self, "pcibus", &pba, pcibusprint);
 193
 194         /*
 195          * Clear any errors that may have occurred during the probe
 196          * sequence.
 197          */
 198         REGVAL(MCPCIA_CAP_ERR(ccp)) = 0xFFFFFFFF;
 199         alpha_mb();
 200 }
 201
 202 void
 203 mcpcia_init(void)
 204 {
 205         struct mcpcia_config *ccp = &mcpcia_console_configuration;
 206         int i;
 207
 208         /*
 209          * Look for all of the MCPCIAs on the system.  One of them
 210          * will have an EISA attached to it.  This MCPCIA is the
 211          * only one that can be used for the console.  Once we find
 212          * that one, initialize it.
 213          */
 214
 215         for (i = 0; i < MCPCIA_PER_MCBUS; i++) {
 216                 ccp->cc_mid = mcbus_mcpcia_probe_order[i];
 217                 /*
 218                  * XXX If we ever support more than one MCBUS, we'll
 219                  * XXX have to probe for them, and map them to unit
 220                  * XXX numbers.
 221                  */
 222                 ccp->cc_gid = MCBUS_GID_FROM_INSTANCE(0);
 223                 ccp->cc_sysbase = MCPCIA_SYSBASE(ccp);
 224
 225                 if (badaddr((void *)ALPHA_PHYS_TO_K0SEG(MCPCIA_PCI_REV(ccp)),
 226                     sizeof(u_int32_t)))
 227                         continue;
 228
 229                 if (EISA_PRESENT(REGVAL(MCPCIA_PCI_REV(ccp)))) {
 230                         mcpcia_init0(ccp, 0);
 231
 232                         alpha_bus_window_count[ALPHA_BUS_TYPE_PCI_IO] = 2;
 233                         alpha_bus_window_count[ALPHA_BUS_TYPE_PCI_MEM] = 3;
 234
 235                         alpha_bus_get_window = mcpcia_bus_get_window;
 236                         return;
 237                 }
 238         }
 239
 240         panic("mcpcia_init: unable to find EISA bus");
 241 }
 242
 243 void
 244 mcpcia_init0(struct mcpcia_config *ccp, int mallocsafe)
 245 {
 246         u_int32_t ctl;
 247
 248         if (ccp->cc_initted == 0) {
 249                 /* don't do these twice since they set up extents */
 250                 mcpcia_bus_io_init(&ccp->cc_iot, ccp);
 251                 mcpcia_bus_mem_init(&ccp->cc_memt, ccp);
 252         }
 253         ccp->cc_mallocsafe = mallocsafe;
 254
 255         mcpcia_pci_init(&ccp->cc_pc, ccp);
 256
 257         /*
 258          * Establish a precalculated base for convenience's sake.
 259          */
 260         ccp->cc_sysbase = MCPCIA_SYSBASE(ccp);
 261
 262         /*
 263          * Disable interrupts and clear errors prior to probing
 264          */
 265         REGVAL(MCPCIA_INT_MASK0(ccp)) = 0;
 266         REGVAL(MCPCIA_INT_MASK1(ccp)) = 0;
 267         REGVAL(MCPCIA_CAP_ERR(ccp)) = 0xFFFFFFFF;
 268         alpha_mb();
 269
 270         if (ccp == &mcpcia_console_configuration) {
 271                 /*
 272                  * Use this opportunity to also find out the MID and CPU
 273                  * type of the currently running CPU (that's us, billybob....)
 274                  */
 275                 ctl = REGVAL(MCPCIA_WHOAMI(ccp));
 276                 mcbus_primary.mcbus_cpu_mid = MCBUS_CPU_MID(ctl);
 277                 if ((MCBUS_CPU_INFO(ctl) & CPU_Fill_Err) == 0 &&
 278                     mcbus_primary.mcbus_valid == 0) {
 279                         mcbus_primary.mcbus_bcache =
 280                             MCBUS_CPU_INFO(ctl) & CPU_BCacheMask;
 281                         mcbus_primary.mcbus_valid = 1;
 282                 }
 283                 alpha_mb();
 284         }
 285
 286         ccp->cc_initted = 1;
 287 }
 288
 289 #ifdef TEST_PROBE_DEATH
 290 static void
 291 die_heathen_dog(void *arg)
 292 {
 293         struct mcpcia_config *ccp = arg;
 294
 295         /* this causes a fatal machine check (0x670) */
 296         REGVAL(MCPCIA_CAP_DIAG(ccp)) |= CAP_DIAG_MC_ADRPE;
 297 }
 298 #endif
 299
 300 void
 301 mcpcia_config_cleanup(void)
 302 {
 303         volatile u_int32_t ctl;
 304         struct mcpcia_softc *mcp;
 305         struct mcpcia_config *ccp;
 306         int i;
 307         extern struct cfdriver mcpcia_cd;
 308
 309         /*
 310          * Turn on Hard, Soft error interrupts. Maybe i2c too.
 311          */
 312         for (i = 0; i < mcpcia_cd.cd_ndevs; i++) {
 313                 if ((mcp = device_lookup_private(&mcpcia_cd, i)) == NULL)
 314                         continue;
 315
 316                 ccp = mcp->mcpcia_cc;
 317                 if (ccp == NULL)
 318                         continue;
 319
 320                 ctl = REGVAL(MCPCIA_INT_MASK0(ccp));
 321                 ctl |= MCPCIA_GEN_IENABL;
 322                 REGVAL(MCPCIA_INT_MASK0(ccp)) = ctl;
 323                 alpha_mb();
 324
 325                 /* force stall while write completes */
 326                 ctl = REGVAL(MCPCIA_INT_MASK0(ccp));
 327         }
 328 #ifdef TEST_PROBE_DEATH
 329         (void) timeout (die_heathen_dog, &mcpcia_console_configuration,
 330             30 * hz);
 331 #endif
 332 }
 333
 334 int
 335 mcpcia_bus_get_window(int type, int window, struct alpha_bus_space_translation *abst)
 336 {
 337         struct mcpcia_config *ccp = &mcpcia_console_configuration;
 338         bus_space_tag_t st;
 339
 340         switch (type) {
 341         case ALPHA_BUS_TYPE_PCI_IO:
 342                 st = &ccp->cc_iot;
 343                 break;
 344
 345         case ALPHA_BUS_TYPE_PCI_MEM:
 346                 st = &ccp->cc_memt;
 347                 break;
 348
 349         default:
 350                 panic("mcpcia_bus_get_window");
 351         }
 352
 353         return (alpha_bus_space_get_window(st, window, abst));
 354 }