piixpm.c revision 1.42 1 1.41 soren /* $NetBSD: piixpm.c,v 1.42 2013/07/22 13:27:14 soren Exp $ */
2 1.1 jmcneill /* $OpenBSD: piixpm.c,v 1.20 2006/02/27 08:25:02 grange Exp $ */
3 1.1 jmcneill
4 1.1 jmcneill /*
5 1.1 jmcneill * Copyright (c) 2005, 2006 Alexander Yurchenko <grange (at) openbsd.org>
6 1.1 jmcneill *
7 1.1 jmcneill * Permission to use, copy, modify, and distribute this software for any
8 1.1 jmcneill * purpose with or without fee is hereby granted, provided that the above
9 1.1 jmcneill * copyright notice and this permission notice appear in all copies.
10 1.1 jmcneill *
11 1.1 jmcneill * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
12 1.1 jmcneill * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13 1.1 jmcneill * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
14 1.1 jmcneill * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15 1.1 jmcneill * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16 1.1 jmcneill * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
17 1.1 jmcneill * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
18 1.1 jmcneill */
19 1.1 jmcneill
20 1.1 jmcneill /*
21 1.1 jmcneill * Intel PIIX and compatible Power Management controller driver.
22 1.1 jmcneill */
23 1.1 jmcneill
24 1.19 lukem #include <sys/cdefs.h>
25 1.41 soren __KERNEL_RCSID(0, "$NetBSD: piixpm.c,v 1.42 2013/07/22 13:27:14 soren Exp $");
26 1.19 lukem
27 1.1 jmcneill #include <sys/param.h>
28 1.1 jmcneill #include <sys/systm.h>
29 1.1 jmcneill #include <sys/device.h>
30 1.1 jmcneill #include <sys/kernel.h>
31 1.40 pgoyette #include <sys/mutex.h>
32 1.1 jmcneill #include <sys/proc.h>
33 1.1 jmcneill
34 1.17 ad #include <sys/bus.h>
35 1.1 jmcneill
36 1.1 jmcneill #include <dev/pci/pcidevs.h>
37 1.1 jmcneill #include <dev/pci/pcireg.h>
38 1.1 jmcneill #include <dev/pci/pcivar.h>
39 1.1 jmcneill
40 1.1 jmcneill #include <dev/pci/piixpmreg.h>
41 1.1 jmcneill
42 1.1 jmcneill #include <dev/i2c/i2cvar.h>
43 1.1 jmcneill
44 1.5 drochner #include <dev/ic/acpipmtimer.h>
45 1.4 jmcneill
46 1.1 jmcneill #ifdef PIIXPM_DEBUG
47 1.1 jmcneill #define DPRINTF(x) printf x
48 1.1 jmcneill #else
49 1.1 jmcneill #define DPRINTF(x)
50 1.1 jmcneill #endif
51 1.1 jmcneill
52 1.35 hannken #define PIIXPM_IS_CSB5(id) \
53 1.35 hannken (PCI_VENDOR((id)) == PCI_VENDOR_SERVERWORKS && \
54 1.35 hannken PCI_PRODUCT((id)) == PCI_PRODUCT_SERVERWORKS_CSB5)
55 1.1 jmcneill #define PIIXPM_DELAY 200
56 1.1 jmcneill #define PIIXPM_TIMEOUT 1
57 1.1 jmcneill
58 1.42 soren struct piixpm_smbus {
59 1.42 soren int sda;
60 1.42 soren struct piixpm_softc *softc;
61 1.42 soren };
62 1.36 jmcneill
63 1.1 jmcneill struct piixpm_softc {
64 1.25 joerg device_t sc_dev;
65 1.1 jmcneill
66 1.42 soren bus_space_tag_t sc_iot;
67 1.42 soren #define sc_pm_iot sc_iot
68 1.42 soren #define sc_smb_iot sc_iot
69 1.42 soren bus_space_handle_t sc_pm_ioh;
70 1.42 soren bus_space_handle_t sc_sb800_ioh;
71 1.4 jmcneill bus_space_handle_t sc_smb_ioh;
72 1.4 jmcneill void * sc_smb_ih;
73 1.1 jmcneill int sc_poll;
74 1.1 jmcneill
75 1.3 jmcneill pci_chipset_tag_t sc_pc;
76 1.3 jmcneill pcitag_t sc_pcitag;
77 1.35 hannken pcireg_t sc_id;
78 1.3 jmcneill
79 1.42 soren struct piixpm_smbus sc_busses[4];
80 1.42 soren struct i2c_controller sc_i2c_tags[4];
81 1.42 soren
82 1.40 pgoyette kmutex_t sc_i2c_mutex;
83 1.1 jmcneill struct {
84 1.42 soren i2c_op_t op;
85 1.42 soren void * buf;
86 1.42 soren size_t len;
87 1.42 soren int flags;
88 1.42 soren volatile int error;
89 1.1 jmcneill } sc_i2c_xfer;
90 1.3 jmcneill
91 1.3 jmcneill pcireg_t sc_devact[2];
92 1.1 jmcneill };
93 1.1 jmcneill
94 1.25 joerg static int piixpm_match(device_t, cfdata_t, void *);
95 1.25 joerg static void piixpm_attach(device_t, device_t, void *);
96 1.1 jmcneill
97 1.32 dyoung static bool piixpm_suspend(device_t, const pmf_qual_t *);
98 1.32 dyoung static bool piixpm_resume(device_t, const pmf_qual_t *);
99 1.3 jmcneill
100 1.42 soren static int piixpm_sb800_init(struct piixpm_softc *);
101 1.35 hannken static void piixpm_csb5_reset(void *);
102 1.25 joerg static int piixpm_i2c_acquire_bus(void *, int);
103 1.25 joerg static void piixpm_i2c_release_bus(void *, int);
104 1.25 joerg static int piixpm_i2c_exec(void *, i2c_op_t, i2c_addr_t, const void *,
105 1.25 joerg size_t, void *, size_t, int);
106 1.1 jmcneill
107 1.25 joerg static int piixpm_intr(void *);
108 1.1 jmcneill
109 1.25 joerg CFATTACH_DECL_NEW(piixpm, sizeof(struct piixpm_softc),
110 1.1 jmcneill piixpm_match, piixpm_attach, NULL, NULL);
111 1.1 jmcneill
112 1.25 joerg static int
113 1.25 joerg piixpm_match(device_t parent, cfdata_t match, void *aux)
114 1.1 jmcneill {
115 1.1 jmcneill struct pci_attach_args *pa;
116 1.1 jmcneill
117 1.1 jmcneill pa = (struct pci_attach_args *)aux;
118 1.1 jmcneill switch (PCI_VENDOR(pa->pa_id)) {
119 1.1 jmcneill case PCI_VENDOR_INTEL:
120 1.1 jmcneill switch (PCI_PRODUCT(pa->pa_id)) {
121 1.1 jmcneill case PCI_PRODUCT_INTEL_82371AB_PMC:
122 1.1 jmcneill case PCI_PRODUCT_INTEL_82440MX_PMC:
123 1.1 jmcneill return 1;
124 1.1 jmcneill }
125 1.1 jmcneill break;
126 1.1 jmcneill case PCI_VENDOR_ATI:
127 1.1 jmcneill switch (PCI_PRODUCT(pa->pa_id)) {
128 1.1 jmcneill case PCI_PRODUCT_ATI_SB200_SMB:
129 1.10 toshii case PCI_PRODUCT_ATI_SB300_SMB:
130 1.10 toshii case PCI_PRODUCT_ATI_SB400_SMB:
131 1.23 jmcneill case PCI_PRODUCT_ATI_SB600_SMB: /* matches SB600/SB700/SB800 */
132 1.1 jmcneill return 1;
133 1.1 jmcneill }
134 1.1 jmcneill break;
135 1.14 martin case PCI_VENDOR_SERVERWORKS:
136 1.14 martin switch (PCI_PRODUCT(pa->pa_id)) {
137 1.14 martin case PCI_PRODUCT_SERVERWORKS_OSB4:
138 1.14 martin case PCI_PRODUCT_SERVERWORKS_CSB5:
139 1.14 martin case PCI_PRODUCT_SERVERWORKS_CSB6:
140 1.14 martin case PCI_PRODUCT_SERVERWORKS_HT1000SB:
141 1.14 martin return 1;
142 1.14 martin }
143 1.1 jmcneill }
144 1.1 jmcneill
145 1.1 jmcneill return 0;
146 1.1 jmcneill }
147 1.1 jmcneill
148 1.25 joerg static void
149 1.25 joerg piixpm_attach(device_t parent, device_t self, void *aux)
150 1.1 jmcneill {
151 1.25 joerg struct piixpm_softc *sc = device_private(self);
152 1.1 jmcneill struct pci_attach_args *pa = aux;
153 1.1 jmcneill struct i2cbus_attach_args iba;
154 1.1 jmcneill pcireg_t base, conf;
155 1.5 drochner pcireg_t pmmisc;
156 1.1 jmcneill pci_intr_handle_t ih;
157 1.1 jmcneill const char *intrstr = NULL;
158 1.42 soren int i, numbusses = 1;
159 1.1 jmcneill
160 1.25 joerg sc->sc_dev = self;
161 1.42 soren sc->sc_iot = pa->pa_iot;
162 1.35 hannken sc->sc_id = pa->pa_id;
163 1.3 jmcneill sc->sc_pc = pa->pa_pc;
164 1.3 jmcneill sc->sc_pcitag = pa->pa_tag;
165 1.3 jmcneill
166 1.39 drochner pci_aprint_devinfo(pa, NULL);
167 1.3 jmcneill
168 1.18 jmcneill if (!pmf_device_register(self, piixpm_suspend, piixpm_resume))
169 1.18 jmcneill aprint_error_dev(self, "couldn't establish power handler\n");
170 1.3 jmcneill
171 1.1 jmcneill /* Read configuration */
172 1.1 jmcneill conf = pci_conf_read(pa->pa_pc, pa->pa_tag, PIIX_SMB_HOSTC);
173 1.25 joerg DPRINTF(("%s: conf 0x%x\n", device_xname(self), conf));
174 1.1 jmcneill
175 1.5 drochner if ((PCI_VENDOR(pa->pa_id) != PCI_VENDOR_INTEL) ||
176 1.5 drochner (PCI_PRODUCT(pa->pa_id) != PCI_PRODUCT_INTEL_82371AB_PMC))
177 1.5 drochner goto nopowermanagement;
178 1.5 drochner
179 1.5 drochner /* check whether I/O access to PM regs is enabled */
180 1.5 drochner pmmisc = pci_conf_read(pa->pa_pc, pa->pa_tag, PIIX_PMREGMISC);
181 1.5 drochner if (!(pmmisc & 1))
182 1.5 drochner goto nopowermanagement;
183 1.5 drochner
184 1.4 jmcneill /* Map I/O space */
185 1.5 drochner base = pci_conf_read(pa->pa_pc, pa->pa_tag, PIIX_PM_BASE);
186 1.4 jmcneill if (bus_space_map(sc->sc_pm_iot, PCI_MAPREG_IO_ADDR(base),
187 1.4 jmcneill PIIX_PM_SIZE, 0, &sc->sc_pm_ioh)) {
188 1.25 joerg aprint_error_dev(self, "can't map power management I/O space\n");
189 1.4 jmcneill goto nopowermanagement;
190 1.4 jmcneill }
191 1.4 jmcneill
192 1.5 drochner /*
193 1.5 drochner * Revision 0 and 1 are PIIX4, 2 is PIIX4E, 3 is PIIX4M.
194 1.5 drochner * PIIX4 and PIIX4E have a bug in the timer latch, see Errata #20
195 1.5 drochner * in the "Specification update" (document #297738).
196 1.5 drochner */
197 1.25 joerg acpipmtimer_attach(self, sc->sc_pm_iot, sc->sc_pm_ioh,
198 1.5 drochner PIIX_PM_PMTMR,
199 1.5 drochner (PCI_REVISION(pa->pa_class) < 3) ? ACPIPMT_BADLATCH : 0 );
200 1.4 jmcneill
201 1.5 drochner nopowermanagement:
202 1.36 jmcneill
203 1.36 jmcneill /* SB800 rev 0x40+ needs special initialization */
204 1.36 jmcneill if (PCI_VENDOR(pa->pa_id) == PCI_VENDOR_ATI &&
205 1.36 jmcneill PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_ATI_SB600_SMB &&
206 1.36 jmcneill PCI_REVISION(pa->pa_class) >= 0x40) {
207 1.42 soren if (piixpm_sb800_init(sc) == 0) {
208 1.42 soren numbusses = 4;
209 1.36 jmcneill goto attach_i2c;
210 1.42 soren }
211 1.36 jmcneill aprint_normal_dev(self, "SMBus disabled\n");
212 1.36 jmcneill return;
213 1.36 jmcneill }
214 1.36 jmcneill
215 1.1 jmcneill if ((conf & PIIX_SMB_HOSTC_HSTEN) == 0) {
216 1.25 joerg aprint_normal_dev(self, "SMBus disabled\n");
217 1.1 jmcneill return;
218 1.1 jmcneill }
219 1.1 jmcneill
220 1.1 jmcneill /* Map I/O space */
221 1.1 jmcneill base = pci_conf_read(pa->pa_pc, pa->pa_tag, PIIX_SMB_BASE) & 0xffff;
222 1.4 jmcneill if (bus_space_map(sc->sc_smb_iot, PCI_MAPREG_IO_ADDR(base),
223 1.4 jmcneill PIIX_SMB_SIZE, 0, &sc->sc_smb_ioh)) {
224 1.25 joerg aprint_error_dev(self, "can't map smbus I/O space\n");
225 1.1 jmcneill return;
226 1.1 jmcneill }
227 1.1 jmcneill
228 1.1 jmcneill sc->sc_poll = 1;
229 1.28 pgoyette aprint_normal_dev(self, "");
230 1.1 jmcneill if ((conf & PIIX_SMB_HOSTC_INTMASK) == PIIX_SMB_HOSTC_SMI) {
231 1.1 jmcneill /* No PCI IRQ */
232 1.28 pgoyette aprint_normal("interrupting at SMI, ");
233 1.1 jmcneill } else if ((conf & PIIX_SMB_HOSTC_INTMASK) == PIIX_SMB_HOSTC_IRQ) {
234 1.1 jmcneill /* Install interrupt handler */
235 1.1 jmcneill if (pci_intr_map(pa, &ih) == 0) {
236 1.1 jmcneill intrstr = pci_intr_string(pa->pa_pc, ih);
237 1.4 jmcneill sc->sc_smb_ih = pci_intr_establish(pa->pa_pc, ih, IPL_BIO,
238 1.1 jmcneill piixpm_intr, sc);
239 1.4 jmcneill if (sc->sc_smb_ih != NULL) {
240 1.28 pgoyette aprint_normal("interrupting at %s", intrstr);
241 1.1 jmcneill sc->sc_poll = 0;
242 1.1 jmcneill }
243 1.1 jmcneill }
244 1.1 jmcneill }
245 1.26 martin if (sc->sc_poll)
246 1.28 pgoyette aprint_normal("polling");
247 1.1 jmcneill
248 1.3 jmcneill aprint_normal("\n");
249 1.1 jmcneill
250 1.37 jmcneill attach_i2c:
251 1.1 jmcneill /* Attach I2C bus */
252 1.40 pgoyette mutex_init(&sc->sc_i2c_mutex, MUTEX_DEFAULT, IPL_NONE);
253 1.1 jmcneill
254 1.42 soren for (i = 0; i < numbusses; i++) {
255 1.42 soren sc->sc_busses[i].sda = i;
256 1.42 soren sc->sc_busses[i].softc = sc;
257 1.42 soren sc->sc_i2c_tags[i].ic_cookie = &sc->sc_busses[i];
258 1.42 soren sc->sc_i2c_tags[i].ic_acquire_bus = piixpm_i2c_acquire_bus;
259 1.42 soren sc->sc_i2c_tags[i].ic_release_bus = piixpm_i2c_release_bus;
260 1.42 soren sc->sc_i2c_tags[i].ic_exec = piixpm_i2c_exec;
261 1.42 soren
262 1.42 soren memset(&iba, 0, sizeof(iba));
263 1.42 soren iba.iba_type = I2C_TYPE_SMBUS;
264 1.42 soren iba.iba_tag = &sc->sc_i2c_tags[i];
265 1.42 soren config_found_ia(self, "i2cbus", &iba, iicbus_print);
266 1.42 soren }
267 1.1 jmcneill }
268 1.1 jmcneill
269 1.18 jmcneill static bool
270 1.32 dyoung piixpm_suspend(device_t dv, const pmf_qual_t *qual)
271 1.18 jmcneill {
272 1.18 jmcneill struct piixpm_softc *sc = device_private(dv);
273 1.18 jmcneill
274 1.18 jmcneill sc->sc_devact[0] = pci_conf_read(sc->sc_pc, sc->sc_pcitag,
275 1.18 jmcneill PIIX_DEVACTA);
276 1.18 jmcneill sc->sc_devact[1] = pci_conf_read(sc->sc_pc, sc->sc_pcitag,
277 1.18 jmcneill PIIX_DEVACTB);
278 1.18 jmcneill
279 1.18 jmcneill return true;
280 1.18 jmcneill }
281 1.18 jmcneill
282 1.18 jmcneill static bool
283 1.32 dyoung piixpm_resume(device_t dv, const pmf_qual_t *qual)
284 1.3 jmcneill {
285 1.18 jmcneill struct piixpm_softc *sc = device_private(dv);
286 1.3 jmcneill
287 1.18 jmcneill pci_conf_write(sc->sc_pc, sc->sc_pcitag, PIIX_DEVACTA,
288 1.18 jmcneill sc->sc_devact[0]);
289 1.18 jmcneill pci_conf_write(sc->sc_pc, sc->sc_pcitag, PIIX_DEVACTB,
290 1.18 jmcneill sc->sc_devact[1]);
291 1.3 jmcneill
292 1.18 jmcneill return true;
293 1.3 jmcneill }
294 1.3 jmcneill
295 1.36 jmcneill /*
296 1.36 jmcneill * Extract SMBus base address from SB800 Power Management (PM) registers.
297 1.36 jmcneill * The PM registers can be accessed either through indirect I/O (CD6/CD7) or
298 1.36 jmcneill * direct mapping if AcpiMMioDecodeEn is enabled. Since this function is only
299 1.36 jmcneill * called once it uses indirect I/O for simplicity.
300 1.36 jmcneill */
301 1.36 jmcneill static int
302 1.42 soren piixpm_sb800_init(struct piixpm_softc *sc)
303 1.36 jmcneill {
304 1.42 soren bus_space_tag_t iot = sc->sc_iot;
305 1.36 jmcneill bus_space_handle_t ioh; /* indirect I/O handle */
306 1.36 jmcneill uint16_t val, base_addr;
307 1.36 jmcneill
308 1.36 jmcneill /* Fetch SMB base address */
309 1.36 jmcneill if (bus_space_map(iot,
310 1.36 jmcneill PIIXPM_INDIRECTIO_BASE, PIIXPM_INDIRECTIO_SIZE, 0, &ioh)) {
311 1.36 jmcneill device_printf(sc->sc_dev, "couldn't map indirect I/O space\n");
312 1.36 jmcneill return EBUSY;
313 1.36 jmcneill }
314 1.36 jmcneill bus_space_write_1(iot, ioh, PIIXPM_INDIRECTIO_INDEX,
315 1.36 jmcneill SB800_PM_SMBUS0EN_LO);
316 1.36 jmcneill val = bus_space_read_1(iot, ioh, PIIXPM_INDIRECTIO_DATA);
317 1.36 jmcneill bus_space_write_1(iot, ioh, PIIXPM_INDIRECTIO_INDEX,
318 1.36 jmcneill SB800_PM_SMBUS0EN_HI);
319 1.36 jmcneill val |= bus_space_read_1(iot, ioh, PIIXPM_INDIRECTIO_DATA) << 8;
320 1.42 soren sc->sc_sb800_ioh = ioh;
321 1.36 jmcneill
322 1.36 jmcneill if ((val & SB800_PM_SMBUS0EN_ENABLE) == 0)
323 1.36 jmcneill return ENOENT;
324 1.36 jmcneill
325 1.36 jmcneill base_addr = val & SB800_PM_SMBUS0EN_BADDR;
326 1.36 jmcneill
327 1.36 jmcneill aprint_debug_dev(sc->sc_dev, "SMBus @ 0x%04x\n", base_addr);
328 1.36 jmcneill
329 1.42 soren bus_space_write_1(iot, ioh, PIIXPM_INDIRECTIO_INDEX, SB800_PM_SMBUS0SELEN);
330 1.42 soren bus_space_write_1(iot, ioh, PIIXPM_INDIRECTIO_DATA, 1); /* SMBUS0SEL */
331 1.42 soren
332 1.42 soren if (bus_space_map(iot, PCI_MAPREG_IO_ADDR(base_addr),
333 1.36 jmcneill PIIX_SMB_SIZE, 0, &sc->sc_smb_ioh)) {
334 1.36 jmcneill aprint_error_dev(sc->sc_dev, "can't map smbus I/O space\n");
335 1.36 jmcneill return EBUSY;
336 1.36 jmcneill }
337 1.40 pgoyette aprint_normal_dev(sc->sc_dev, "polling (SB800)\n");
338 1.36 jmcneill sc->sc_poll = 1;
339 1.36 jmcneill
340 1.36 jmcneill return 0;
341 1.36 jmcneill }
342 1.36 jmcneill
343 1.35 hannken static void
344 1.35 hannken piixpm_csb5_reset(void *arg)
345 1.35 hannken {
346 1.35 hannken struct piixpm_softc *sc = arg;
347 1.35 hannken pcireg_t base, hostc, pmbase;
348 1.35 hannken
349 1.35 hannken base = pci_conf_read(sc->sc_pc, sc->sc_pcitag, PIIX_SMB_BASE);
350 1.35 hannken hostc = pci_conf_read(sc->sc_pc, sc->sc_pcitag, PIIX_SMB_HOSTC);
351 1.35 hannken
352 1.35 hannken pmbase = pci_conf_read(sc->sc_pc, sc->sc_pcitag, PIIX_PM_BASE);
353 1.35 hannken pmbase |= PIIX_PM_BASE_CSB5_RESET;
354 1.35 hannken pci_conf_write(sc->sc_pc, sc->sc_pcitag, PIIX_PM_BASE, pmbase);
355 1.35 hannken pmbase &= ~PIIX_PM_BASE_CSB5_RESET;
356 1.35 hannken pci_conf_write(sc->sc_pc, sc->sc_pcitag, PIIX_PM_BASE, pmbase);
357 1.35 hannken
358 1.35 hannken pci_conf_write(sc->sc_pc, sc->sc_pcitag, PIIX_SMB_BASE, base);
359 1.35 hannken pci_conf_write(sc->sc_pc, sc->sc_pcitag, PIIX_SMB_HOSTC, hostc);
360 1.35 hannken
361 1.35 hannken (void) tsleep(&sc, PRIBIO, "csb5reset", hz/2);
362 1.35 hannken }
363 1.35 hannken
364 1.25 joerg static int
365 1.1 jmcneill piixpm_i2c_acquire_bus(void *cookie, int flags)
366 1.1 jmcneill {
367 1.42 soren struct piixpm_smbus *smbus = cookie;
368 1.42 soren struct piixpm_softc *sc = smbus->softc;
369 1.1 jmcneill
370 1.40 pgoyette if (!cold)
371 1.40 pgoyette mutex_enter(&sc->sc_i2c_mutex);
372 1.1 jmcneill
373 1.42 soren if (smbus->sda > 0) /* SB800 */
374 1.42 soren {
375 1.42 soren bus_space_write_1(sc->sc_iot, sc->sc_sb800_ioh,
376 1.42 soren PIIXPM_INDIRECTIO_INDEX, SB800_PM_SMBUS0SEL);
377 1.42 soren bus_space_write_1(sc->sc_iot, sc->sc_sb800_ioh,
378 1.42 soren PIIXPM_INDIRECTIO_DATA, smbus->sda << 1);
379 1.42 soren }
380 1.42 soren
381 1.16 xtraeme return 0;
382 1.1 jmcneill }
383 1.1 jmcneill
384 1.25 joerg static void
385 1.1 jmcneill piixpm_i2c_release_bus(void *cookie, int flags)
386 1.1 jmcneill {
387 1.42 soren struct piixpm_smbus *smbus = cookie;
388 1.42 soren struct piixpm_softc *sc = smbus->softc;
389 1.42 soren
390 1.42 soren if (smbus->sda > 0) /* SB800 */
391 1.42 soren {
392 1.42 soren /*
393 1.42 soren * HP Microserver hangs after reboot if not set to SDA0.
394 1.42 soren * Also add shutdown hook?
395 1.42 soren */
396 1.42 soren bus_space_write_1(sc->sc_iot, sc->sc_sb800_ioh,
397 1.42 soren PIIXPM_INDIRECTIO_INDEX, SB800_PM_SMBUS0SEL);
398 1.42 soren bus_space_write_1(sc->sc_iot, sc->sc_sb800_ioh,
399 1.42 soren PIIXPM_INDIRECTIO_DATA, 0);
400 1.42 soren }
401 1.1 jmcneill
402 1.40 pgoyette if (!cold)
403 1.40 pgoyette mutex_exit(&sc->sc_i2c_mutex);
404 1.1 jmcneill }
405 1.1 jmcneill
406 1.25 joerg static int
407 1.1 jmcneill piixpm_i2c_exec(void *cookie, i2c_op_t op, i2c_addr_t addr,
408 1.1 jmcneill const void *cmdbuf, size_t cmdlen, void *buf, size_t len, int flags)
409 1.1 jmcneill {
410 1.42 soren struct piixpm_smbus *smbus = cookie;
411 1.42 soren struct piixpm_softc *sc = smbus->softc;
412 1.1 jmcneill const u_int8_t *b;
413 1.1 jmcneill u_int8_t ctl = 0, st;
414 1.1 jmcneill int retries;
415 1.1 jmcneill
416 1.33 jakllsch DPRINTF(("%s: exec: op %d, addr 0x%x, cmdlen %zu, len %zu, flags 0x%x\n",
417 1.25 joerg device_xname(sc->sc_dev), op, addr, cmdlen, len, flags));
418 1.1 jmcneill
419 1.41 soren /* Clear status bits */
420 1.41 soren bus_space_write_1(sc->sc_smb_iot, sc->sc_smb_ioh, PIIX_SMB_HS,
421 1.41 soren PIIX_SMB_HS_INTR | PIIX_SMB_HS_DEVERR |
422 1.41 soren PIIX_SMB_HS_BUSERR | PIIX_SMB_HS_FAILED);
423 1.42 soren bus_space_barrier(sc->sc_smb_iot, sc->sc_smb_ioh, PIIX_SMB_HS, 1,
424 1.41 soren BUS_SPACE_BARRIER_READ | BUS_SPACE_BARRIER_WRITE);
425 1.41 soren
426 1.1 jmcneill /* Wait for bus to be idle */
427 1.1 jmcneill for (retries = 100; retries > 0; retries--) {
428 1.4 jmcneill st = bus_space_read_1(sc->sc_smb_iot, sc->sc_smb_ioh,
429 1.4 jmcneill PIIX_SMB_HS);
430 1.1 jmcneill if (!(st & PIIX_SMB_HS_BUSY))
431 1.1 jmcneill break;
432 1.1 jmcneill DELAY(PIIXPM_DELAY);
433 1.1 jmcneill }
434 1.25 joerg DPRINTF(("%s: exec: st 0x%d\n", device_xname(sc->sc_dev), st & 0xff));
435 1.1 jmcneill if (st & PIIX_SMB_HS_BUSY)
436 1.1 jmcneill return (1);
437 1.1 jmcneill
438 1.1 jmcneill if (cold || sc->sc_poll)
439 1.1 jmcneill flags |= I2C_F_POLL;
440 1.1 jmcneill
441 1.34 hannken if (!I2C_OP_STOP_P(op) || cmdlen > 1 || len > 2 ||
442 1.34 hannken (cmdlen == 0 && len > 1))
443 1.1 jmcneill return (1);
444 1.1 jmcneill
445 1.1 jmcneill /* Setup transfer */
446 1.1 jmcneill sc->sc_i2c_xfer.op = op;
447 1.1 jmcneill sc->sc_i2c_xfer.buf = buf;
448 1.1 jmcneill sc->sc_i2c_xfer.len = len;
449 1.1 jmcneill sc->sc_i2c_xfer.flags = flags;
450 1.1 jmcneill sc->sc_i2c_xfer.error = 0;
451 1.1 jmcneill
452 1.1 jmcneill /* Set slave address and transfer direction */
453 1.4 jmcneill bus_space_write_1(sc->sc_smb_iot, sc->sc_smb_ioh, PIIX_SMB_TXSLVA,
454 1.1 jmcneill PIIX_SMB_TXSLVA_ADDR(addr) |
455 1.1 jmcneill (I2C_OP_READ_P(op) ? PIIX_SMB_TXSLVA_READ : 0));
456 1.1 jmcneill
457 1.1 jmcneill b = cmdbuf;
458 1.1 jmcneill if (cmdlen > 0)
459 1.1 jmcneill /* Set command byte */
460 1.4 jmcneill bus_space_write_1(sc->sc_smb_iot, sc->sc_smb_ioh,
461 1.4 jmcneill PIIX_SMB_HCMD, b[0]);
462 1.1 jmcneill
463 1.1 jmcneill if (I2C_OP_WRITE_P(op)) {
464 1.1 jmcneill /* Write data */
465 1.1 jmcneill b = buf;
466 1.34 hannken if (cmdlen == 0 && len == 1)
467 1.34 hannken bus_space_write_1(sc->sc_smb_iot, sc->sc_smb_ioh,
468 1.34 hannken PIIX_SMB_HCMD, b[0]);
469 1.34 hannken else if (len > 0)
470 1.4 jmcneill bus_space_write_1(sc->sc_smb_iot, sc->sc_smb_ioh,
471 1.1 jmcneill PIIX_SMB_HD0, b[0]);
472 1.1 jmcneill if (len > 1)
473 1.4 jmcneill bus_space_write_1(sc->sc_smb_iot, sc->sc_smb_ioh,
474 1.1 jmcneill PIIX_SMB_HD1, b[1]);
475 1.1 jmcneill }
476 1.1 jmcneill
477 1.1 jmcneill /* Set SMBus command */
478 1.34 hannken if (cmdlen == 0) {
479 1.34 hannken if (len == 0)
480 1.27 pgoyette ctl = PIIX_SMB_HC_CMD_QUICK;
481 1.27 pgoyette else
482 1.27 pgoyette ctl = PIIX_SMB_HC_CMD_BYTE;
483 1.27 pgoyette } else if (len == 1)
484 1.1 jmcneill ctl = PIIX_SMB_HC_CMD_BDATA;
485 1.1 jmcneill else if (len == 2)
486 1.1 jmcneill ctl = PIIX_SMB_HC_CMD_WDATA;
487 1.1 jmcneill
488 1.1 jmcneill if ((flags & I2C_F_POLL) == 0)
489 1.1 jmcneill ctl |= PIIX_SMB_HC_INTREN;
490 1.1 jmcneill
491 1.1 jmcneill /* Start transaction */
492 1.1 jmcneill ctl |= PIIX_SMB_HC_START;
493 1.4 jmcneill bus_space_write_1(sc->sc_smb_iot, sc->sc_smb_ioh, PIIX_SMB_HC, ctl);
494 1.1 jmcneill
495 1.1 jmcneill if (flags & I2C_F_POLL) {
496 1.1 jmcneill /* Poll for completion */
497 1.35 hannken if (PIIXPM_IS_CSB5(sc->sc_id))
498 1.35 hannken DELAY(2*PIIXPM_DELAY);
499 1.35 hannken else
500 1.35 hannken DELAY(PIIXPM_DELAY);
501 1.1 jmcneill for (retries = 1000; retries > 0; retries--) {
502 1.4 jmcneill st = bus_space_read_1(sc->sc_smb_iot, sc->sc_smb_ioh,
503 1.1 jmcneill PIIX_SMB_HS);
504 1.1 jmcneill if ((st & PIIX_SMB_HS_BUSY) == 0)
505 1.1 jmcneill break;
506 1.1 jmcneill DELAY(PIIXPM_DELAY);
507 1.1 jmcneill }
508 1.1 jmcneill if (st & PIIX_SMB_HS_BUSY)
509 1.1 jmcneill goto timeout;
510 1.42 soren piixpm_intr(smbus);
511 1.1 jmcneill } else {
512 1.1 jmcneill /* Wait for interrupt */
513 1.1 jmcneill if (tsleep(sc, PRIBIO, "iicexec", PIIXPM_TIMEOUT * hz))
514 1.1 jmcneill goto timeout;
515 1.1 jmcneill }
516 1.1 jmcneill
517 1.1 jmcneill if (sc->sc_i2c_xfer.error)
518 1.1 jmcneill return (1);
519 1.1 jmcneill
520 1.1 jmcneill return (0);
521 1.1 jmcneill
522 1.1 jmcneill timeout:
523 1.1 jmcneill /*
524 1.1 jmcneill * Transfer timeout. Kill the transaction and clear status bits.
525 1.1 jmcneill */
526 1.25 joerg aprint_error_dev(sc->sc_dev, "timeout, status 0x%x\n", st);
527 1.4 jmcneill bus_space_write_1(sc->sc_smb_iot, sc->sc_smb_ioh, PIIX_SMB_HC,
528 1.1 jmcneill PIIX_SMB_HC_KILL);
529 1.1 jmcneill DELAY(PIIXPM_DELAY);
530 1.4 jmcneill st = bus_space_read_1(sc->sc_smb_iot, sc->sc_smb_ioh, PIIX_SMB_HS);
531 1.1 jmcneill if ((st & PIIX_SMB_HS_FAILED) == 0)
532 1.25 joerg aprint_error_dev(sc->sc_dev, "transaction abort failed, status 0x%x\n", st);
533 1.4 jmcneill bus_space_write_1(sc->sc_smb_iot, sc->sc_smb_ioh, PIIX_SMB_HS, st);
534 1.35 hannken /*
535 1.35 hannken * CSB5 needs hard reset to unlock the smbus after timeout.
536 1.35 hannken */
537 1.35 hannken if (PIIXPM_IS_CSB5(sc->sc_id))
538 1.35 hannken piixpm_csb5_reset(sc);
539 1.1 jmcneill return (1);
540 1.1 jmcneill }
541 1.1 jmcneill
542 1.25 joerg static int
543 1.1 jmcneill piixpm_intr(void *arg)
544 1.1 jmcneill {
545 1.42 soren struct piixpm_smbus *smbus = arg;
546 1.42 soren struct piixpm_softc *sc = smbus->softc;
547 1.1 jmcneill u_int8_t st;
548 1.1 jmcneill u_int8_t *b;
549 1.1 jmcneill size_t len;
550 1.1 jmcneill
551 1.1 jmcneill /* Read status */
552 1.4 jmcneill st = bus_space_read_1(sc->sc_smb_iot, sc->sc_smb_ioh, PIIX_SMB_HS);
553 1.1 jmcneill if ((st & PIIX_SMB_HS_BUSY) != 0 || (st & (PIIX_SMB_HS_INTR |
554 1.1 jmcneill PIIX_SMB_HS_DEVERR | PIIX_SMB_HS_BUSERR |
555 1.1 jmcneill PIIX_SMB_HS_FAILED)) == 0)
556 1.1 jmcneill /* Interrupt was not for us */
557 1.1 jmcneill return (0);
558 1.1 jmcneill
559 1.25 joerg DPRINTF(("%s: intr st 0x%d\n", device_xname(sc->sc_dev), st & 0xff));
560 1.1 jmcneill
561 1.1 jmcneill /* Clear status bits */
562 1.4 jmcneill bus_space_write_1(sc->sc_smb_iot, sc->sc_smb_ioh, PIIX_SMB_HS, st);
563 1.1 jmcneill
564 1.1 jmcneill /* Check for errors */
565 1.1 jmcneill if (st & (PIIX_SMB_HS_DEVERR | PIIX_SMB_HS_BUSERR |
566 1.1 jmcneill PIIX_SMB_HS_FAILED)) {
567 1.1 jmcneill sc->sc_i2c_xfer.error = 1;
568 1.1 jmcneill goto done;
569 1.1 jmcneill }
570 1.1 jmcneill
571 1.1 jmcneill if (st & PIIX_SMB_HS_INTR) {
572 1.1 jmcneill if (I2C_OP_WRITE_P(sc->sc_i2c_xfer.op))
573 1.1 jmcneill goto done;
574 1.1 jmcneill
575 1.1 jmcneill /* Read data */
576 1.1 jmcneill b = sc->sc_i2c_xfer.buf;
577 1.1 jmcneill len = sc->sc_i2c_xfer.len;
578 1.1 jmcneill if (len > 0)
579 1.4 jmcneill b[0] = bus_space_read_1(sc->sc_smb_iot, sc->sc_smb_ioh,
580 1.1 jmcneill PIIX_SMB_HD0);
581 1.1 jmcneill if (len > 1)
582 1.4 jmcneill b[1] = bus_space_read_1(sc->sc_smb_iot, sc->sc_smb_ioh,
583 1.1 jmcneill PIIX_SMB_HD1);
584 1.1 jmcneill }
585 1.1 jmcneill
586 1.1 jmcneill done:
587 1.1 jmcneill if ((sc->sc_i2c_xfer.flags & I2C_F_POLL) == 0)
588 1.1 jmcneill wakeup(sc);
589 1.1 jmcneill return (1);
590 1.1 jmcneill }
591