2018-01-11 09:26:28 +00:00
|
|
|
/*-
|
|
|
|
* Copyright (c) 2015 Nathan Whitehorn
|
|
|
|
* All rights reserved.
|
|
|
|
*
|
|
|
|
* Redistribution and use in source and binary forms, with or without
|
|
|
|
* modification, are permitted provided that the following conditions
|
|
|
|
* are met:
|
|
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
|
|
* notice, this list of conditions and the following disclaimer.
|
|
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
|
|
* documentation and/or other materials provided with the distribution.
|
|
|
|
*
|
|
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
|
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
|
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
|
|
* SUCH DAMAGE.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <sys/cdefs.h>
|
|
|
|
__FBSDID("$FreeBSD$");
|
|
|
|
|
|
|
|
#include <sys/param.h>
|
|
|
|
#include <sys/systm.h>
|
|
|
|
#include <sys/module.h>
|
|
|
|
#include <sys/bus.h>
|
|
|
|
#include <sys/conf.h>
|
|
|
|
#include <sys/clock.h>
|
|
|
|
#include <sys/cpu.h>
|
|
|
|
#include <sys/kernel.h>
|
|
|
|
#include <sys/reboot.h>
|
|
|
|
#include <sys/sysctl.h>
|
2018-01-12 12:14:52 +00:00
|
|
|
#include <sys/endian.h>
|
|
|
|
|
|
|
|
#include <vm/vm.h>
|
|
|
|
#include <vm/pmap.h>
|
2018-01-11 09:26:28 +00:00
|
|
|
|
|
|
|
#include <dev/ofw/ofw_bus.h>
|
|
|
|
#include <dev/ofw/ofw_bus_subr.h>
|
|
|
|
#include <dev/ofw/openfirm.h>
|
|
|
|
|
|
|
|
#include "clock_if.h"
|
|
|
|
#include "opal.h"
|
|
|
|
|
|
|
|
static int opaldev_probe(device_t);
|
|
|
|
static int opaldev_attach(device_t);
|
|
|
|
/* clock interface */
|
|
|
|
static int opal_gettime(device_t dev, struct timespec *ts);
|
|
|
|
static int opal_settime(device_t dev, struct timespec *ts);
|
|
|
|
/* ofw bus interface */
|
|
|
|
static const struct ofw_bus_devinfo *opaldev_get_devinfo(device_t dev,
|
|
|
|
device_t child);
|
|
|
|
|
|
|
|
static void opal_shutdown(void *arg, int howto);
|
2018-01-12 12:14:52 +00:00
|
|
|
static void opal_intr(void *);
|
2018-01-11 09:26:28 +00:00
|
|
|
|
|
|
|
static device_method_t opaldev_methods[] = {
|
|
|
|
/* Device interface */
|
|
|
|
DEVMETHOD(device_probe, opaldev_probe),
|
|
|
|
DEVMETHOD(device_attach, opaldev_attach),
|
|
|
|
|
|
|
|
/* clock interface */
|
|
|
|
DEVMETHOD(clock_gettime, opal_gettime),
|
|
|
|
DEVMETHOD(clock_settime, opal_settime),
|
|
|
|
|
|
|
|
/* ofw_bus interface */
|
|
|
|
DEVMETHOD(ofw_bus_get_devinfo, opaldev_get_devinfo),
|
|
|
|
DEVMETHOD(ofw_bus_get_compat, ofw_bus_gen_get_compat),
|
|
|
|
DEVMETHOD(ofw_bus_get_model, ofw_bus_gen_get_model),
|
|
|
|
DEVMETHOD(ofw_bus_get_name, ofw_bus_gen_get_name),
|
|
|
|
DEVMETHOD(ofw_bus_get_node, ofw_bus_gen_get_node),
|
|
|
|
DEVMETHOD(ofw_bus_get_type, ofw_bus_gen_get_type),
|
|
|
|
|
|
|
|
DEVMETHOD_END
|
|
|
|
};
|
|
|
|
|
|
|
|
static driver_t opaldev_driver = {
|
|
|
|
"opal",
|
|
|
|
opaldev_methods,
|
|
|
|
0
|
|
|
|
};
|
|
|
|
|
|
|
|
static devclass_t opaldev_devclass;
|
|
|
|
|
|
|
|
DRIVER_MODULE(opaldev, ofwbus, opaldev_driver, opaldev_devclass, 0, 0);
|
|
|
|
|
|
|
|
static int
|
|
|
|
opaldev_probe(device_t dev)
|
|
|
|
{
|
2018-01-12 12:14:52 +00:00
|
|
|
phandle_t iparent;
|
|
|
|
pcell_t *irqs;
|
|
|
|
int i, n_irqs;
|
2018-01-11 09:26:28 +00:00
|
|
|
|
|
|
|
if (!ofw_bus_is_compatible(dev, "ibm,opal-v3"))
|
|
|
|
return (ENXIO);
|
|
|
|
if (opal_check() != 0)
|
|
|
|
return (ENXIO);
|
|
|
|
|
|
|
|
device_set_desc(dev, "OPAL Abstraction Firmware");
|
2018-01-12 12:14:52 +00:00
|
|
|
|
|
|
|
/* Manually add IRQs before attaching */
|
|
|
|
if (OF_hasprop(ofw_bus_get_node(dev), "opal-interrupts")) {
|
|
|
|
iparent = OF_finddevice("/interrupt-controller@0");
|
|
|
|
iparent = OF_xref_from_node(iparent);
|
|
|
|
|
|
|
|
n_irqs = OF_getproplen(ofw_bus_get_node(dev),
|
|
|
|
"opal-interrupts") / sizeof(*irqs);
|
|
|
|
irqs = malloc(n_irqs * sizeof(*irqs), M_DEVBUF, M_WAITOK);
|
|
|
|
OF_getencprop(ofw_bus_get_node(dev), "opal-interrupts", irqs,
|
|
|
|
n_irqs * sizeof(*irqs));
|
|
|
|
for (i = 0; i < n_irqs; i++)
|
|
|
|
bus_set_resource(dev, SYS_RES_IRQ, i,
|
|
|
|
ofw_bus_map_intr(dev, iparent, 1, &irqs[i]), 1);
|
|
|
|
free(irqs, M_DEVBUF);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2018-01-11 09:26:28 +00:00
|
|
|
return (BUS_PROBE_SPECIFIC);
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
opaldev_attach(device_t dev)
|
|
|
|
{
|
|
|
|
phandle_t child;
|
|
|
|
device_t cdev;
|
2018-01-12 12:14:52 +00:00
|
|
|
uint64_t junk;
|
|
|
|
int i, rv;
|
2018-01-11 09:26:28 +00:00
|
|
|
struct ofw_bus_devinfo *dinfo;
|
2018-01-12 12:14:52 +00:00
|
|
|
struct resource *irq;
|
2018-01-11 09:26:28 +00:00
|
|
|
|
2018-01-12 12:14:52 +00:00
|
|
|
/* Test for RTC support and register clock if it works */
|
|
|
|
rv = opal_call(OPAL_RTC_READ, vtophys(&junk), vtophys(&junk));
|
|
|
|
do {
|
|
|
|
rv = opal_call(OPAL_RTC_READ, vtophys(&junk), vtophys(&junk));
|
|
|
|
if (rv == OPAL_BUSY_EVENT)
|
|
|
|
rv = opal_call(OPAL_POLL_EVENTS, 0);
|
|
|
|
} while (rv == OPAL_BUSY_EVENT);
|
|
|
|
|
|
|
|
if (rv == OPAL_SUCCESS)
|
2018-01-11 09:26:28 +00:00
|
|
|
clock_register(dev, 2000);
|
|
|
|
|
|
|
|
EVENTHANDLER_REGISTER(shutdown_final, opal_shutdown, NULL,
|
|
|
|
SHUTDOWN_PRI_LAST);
|
|
|
|
|
2018-01-12 12:14:52 +00:00
|
|
|
/* Bind to interrupts */
|
|
|
|
for (i = 0; (irq = bus_alloc_resource_any(dev, SYS_RES_IRQ, &i,
|
|
|
|
RF_ACTIVE)) != NULL; i++)
|
|
|
|
bus_setup_intr(dev, irq, INTR_TYPE_TTY | INTR_MPSAFE |
|
|
|
|
INTR_ENTROPY, NULL, opal_intr, (void *)rman_get_start(irq),
|
|
|
|
NULL);
|
|
|
|
|
2018-01-11 09:26:28 +00:00
|
|
|
for (child = OF_child(ofw_bus_get_node(dev)); child != 0;
|
|
|
|
child = OF_peer(child)) {
|
|
|
|
dinfo = malloc(sizeof(*dinfo), M_DEVBUF, M_WAITOK | M_ZERO);
|
|
|
|
if (ofw_bus_gen_setup_devinfo(dinfo, child) != 0) {
|
|
|
|
free(dinfo, M_DEVBUF);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
cdev = device_add_child(dev, NULL, -1);
|
|
|
|
if (cdev == NULL) {
|
|
|
|
device_printf(dev, "<%s>: device_add_child failed\n",
|
|
|
|
dinfo->obd_name);
|
|
|
|
ofw_bus_gen_destroy_devinfo(dinfo);
|
|
|
|
free(dinfo, M_DEVBUF);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
device_set_ivars(cdev, dinfo);
|
|
|
|
}
|
|
|
|
|
|
|
|
return (bus_generic_attach(dev));
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2018-01-12 12:14:52 +00:00
|
|
|
bcd2bin32(int bcd)
|
|
|
|
{
|
|
|
|
int out = 0;
|
|
|
|
|
|
|
|
out += bcd2bin(bcd & 0xff);
|
|
|
|
out += 100*bcd2bin((bcd & 0x0000ff00) >> 8);
|
|
|
|
out += 10000*bcd2bin((bcd & 0x00ff0000) >> 16);
|
|
|
|
out += 1000000*bcd2bin((bcd & 0xffff0000) >> 24);
|
|
|
|
|
|
|
|
return (out);
|
|
|
|
}
|
|
|
|
|
2018-02-21 08:13:17 +00:00
|
|
|
static int
|
|
|
|
bin2bcd32(int bin)
|
|
|
|
{
|
|
|
|
int out = 0;
|
|
|
|
int tmp;
|
|
|
|
|
|
|
|
tmp = bin % 100;
|
|
|
|
out += bin2bcd(tmp) * 1;
|
|
|
|
bin = bin / 100;
|
|
|
|
|
|
|
|
tmp = bin % 100;
|
|
|
|
out += bin2bcd(tmp) * 100;
|
|
|
|
bin = bin / 100;
|
|
|
|
|
|
|
|
tmp = bin % 100;
|
|
|
|
out += bin2bcd(tmp) * 10000;
|
|
|
|
|
|
|
|
return (out);
|
|
|
|
}
|
|
|
|
|
2018-01-12 12:14:52 +00:00
|
|
|
static int
|
|
|
|
opal_gettime(device_t dev, struct timespec *ts)
|
|
|
|
{
|
|
|
|
int rv;
|
|
|
|
struct clocktime ct;
|
|
|
|
uint32_t ymd;
|
|
|
|
uint64_t hmsm;
|
|
|
|
|
|
|
|
do {
|
|
|
|
rv = opal_call(OPAL_RTC_READ, vtophys(&ymd), vtophys(&hmsm));
|
|
|
|
if (rv == OPAL_BUSY_EVENT) {
|
|
|
|
rv = opal_call(OPAL_POLL_EVENTS, 0);
|
|
|
|
pause("opalrtc", 1);
|
|
|
|
}
|
|
|
|
} while (rv == OPAL_BUSY_EVENT);
|
|
|
|
|
|
|
|
if (rv != OPAL_SUCCESS)
|
|
|
|
return (ENXIO);
|
|
|
|
|
|
|
|
hmsm = be64toh(hmsm);
|
|
|
|
ymd = be32toh(ymd);
|
|
|
|
|
|
|
|
ct.nsec = bcd2bin32((hmsm & 0x000000ffffff0000) >> 16) * 1000;
|
|
|
|
ct.sec = bcd2bin((hmsm & 0x0000ff0000000000) >> 40);
|
|
|
|
ct.min = bcd2bin((hmsm & 0x00ff000000000000) >> 48);
|
|
|
|
ct.hour = bcd2bin((hmsm & 0xff00000000000000) >> 56);
|
|
|
|
|
|
|
|
ct.day = bcd2bin((ymd & 0x000000ff) >> 0);
|
|
|
|
ct.mon = bcd2bin((ymd & 0x0000ff00) >> 8);
|
|
|
|
ct.year = bcd2bin32((ymd & 0xffff0000) >> 16);
|
2018-02-21 08:13:17 +00:00
|
|
|
|
2018-01-12 12:14:52 +00:00
|
|
|
return (clock_ct_to_ts(&ct, ts));
|
2018-01-11 09:26:28 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
opal_settime(device_t dev, struct timespec *ts)
|
|
|
|
{
|
2018-02-21 08:13:17 +00:00
|
|
|
int rv;
|
|
|
|
struct clocktime ct;
|
|
|
|
uint32_t ymd = 0;
|
|
|
|
uint64_t hmsm = 0;
|
|
|
|
|
|
|
|
clock_ts_to_ct(ts, &ct);
|
|
|
|
|
|
|
|
ymd |= (uint32_t)bin2bcd(ct.day);
|
|
|
|
ymd |= ((uint32_t)bin2bcd(ct.mon) << 8);
|
|
|
|
ymd |= ((uint32_t)bin2bcd32(ct.year) << 16);
|
|
|
|
|
|
|
|
hmsm |= ((uint64_t)bin2bcd32(ct.nsec/1000) << 16);
|
|
|
|
hmsm |= ((uint64_t)bin2bcd(ct.sec) << 40);
|
|
|
|
hmsm |= ((uint64_t)bin2bcd(ct.min) << 48);
|
|
|
|
hmsm |= ((uint64_t)bin2bcd(ct.hour) << 56);
|
|
|
|
|
|
|
|
hmsm = htobe64(hmsm);
|
|
|
|
ymd = htobe32(ymd);
|
|
|
|
|
|
|
|
do {
|
|
|
|
rv = opal_call(OPAL_RTC_WRITE, vtophys(&ymd), vtophys(&hmsm));
|
|
|
|
if (rv == OPAL_BUSY_EVENT) {
|
|
|
|
rv = opal_call(OPAL_POLL_EVENTS, 0);
|
|
|
|
pause("opalrtc", 1);
|
|
|
|
}
|
|
|
|
} while (rv == OPAL_BUSY_EVENT);
|
|
|
|
|
|
|
|
if (rv != OPAL_SUCCESS)
|
|
|
|
return (ENXIO);
|
2018-01-12 12:14:52 +00:00
|
|
|
|
2018-01-11 09:26:28 +00:00
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
static const struct ofw_bus_devinfo *
|
|
|
|
opaldev_get_devinfo(device_t dev, device_t child)
|
|
|
|
{
|
|
|
|
return (device_get_ivars(child));
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
opal_shutdown(void *arg, int howto)
|
|
|
|
{
|
|
|
|
|
|
|
|
if (howto & RB_HALT)
|
|
|
|
opal_call(OPAL_CEC_POWER_DOWN, 0 /* Normal power off */);
|
|
|
|
else
|
|
|
|
opal_call(OPAL_CEC_REBOOT);
|
2018-01-12 12:14:52 +00:00
|
|
|
|
|
|
|
opal_call(OPAL_RETURN_CPU);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
opal_intr(void *xintr)
|
|
|
|
{
|
|
|
|
uint64_t events = 0;
|
|
|
|
|
|
|
|
opal_call(OPAL_HANDLE_INTERRUPT, (uint32_t)(uint64_t)xintr,
|
|
|
|
vtophys(&events));
|
|
|
|
/* XXX: do something useful with this information */
|
|
|
|
|
2018-01-11 09:26:28 +00:00
|
|
|
}
|
|
|
|
|