#include <sys/param.h>
#include <sys/systm.h>
#include <sys/bus.h>
#include <sys/lock.h>
#include <sys/mutex.h>
#include <sys/rman.h>
#include <machine/bus.h>
#include <dev/clk/clk.h>
#include <dev/clk/clk_div.h>
#include <dev/clk/clk_fixed.h>
#include <dev/clk/clk_mux.h>
#include "qcom_clk_freqtbl.h"
#include "qcom_clk_rcg2.h"
#include "qcom_clk_rcg2_reg.h"
#include "clkdev_if.h"
#if 0
#define DPRINTF(dev, msg...) device_printf(dev, msg);
#else
#define DPRINTF(dev, msg...)
#endif
#define QCOM_CLK_RCG2_CFG_OFFSET(sc) \
((sc)->cmd_rcgr + (sc)->cfg_offset + QCOM_CLK_RCG2_CFG_REG)
#define QCOM_CLK_RCG2_CMD_REGISTER(sc) \
((sc)->cmd_rcgr + QCOM_CLK_RCG2_CMD_REG)
#define QCOM_CLK_RCG2_M_OFFSET(sc) \
((sc)->cmd_rcgr + (sc)->cfg_offset + QCOM_CLK_RCG2_M_REG)
#define QCOM_CLK_RCG2_N_OFFSET(sc) \
((sc)->cmd_rcgr + (sc)->cfg_offset + QCOM_CLK_RCG2_N_REG)
#define QCOM_CLK_RCG2_D_OFFSET(sc) \
((sc)->cmd_rcgr + (sc)->cfg_offset + QCOM_CLK_RCG2_D_REG)
struct qcom_clk_rcg2_sc {
struct clknode *clknode;
uint32_t cmd_rcgr;
uint32_t hid_width;
uint32_t mnd_width;
int32_t safe_src_idx;
uint32_t cfg_offset;
int safe_pre_parent_idx;
uint32_t flags;
const struct qcom_clk_freq_tbl *freq_tbl;
};
static bool
qcom_clk_rcg2_update_config_locked(struct qcom_clk_rcg2_sc *sc)
{
uint32_t reg, count;
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_CMD_REGISTER(sc), ®);
reg |= QCOM_CLK_RCG2_CMD_UPDATE;
CLKDEV_WRITE_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_CMD_REGISTER(sc), reg);
wmb();
for (count = 0; count < 1000; count++) {
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_CMD_REGISTER(sc), ®);
if ((reg & QCOM_CLK_RCG2_CMD_UPDATE) == 0) {
return (true);
}
DELAY(10);
rmb();
}
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_CMD_REGISTER(sc), ®);
DPRINTF(clknode_get_device(sc->clknode), "%s: failed; reg=0x%08x\n",
__func__, reg);
return (false);
}
static uint64_t
qcom_clk_rcg2_calc_rate(uint64_t rate, uint32_t mode, uint32_t m, uint32_t n,
uint32_t hid_div)
{
if (hid_div != 0) {
rate = rate * 2;
rate = rate / (hid_div + 1);
}
if (mode != 0) {
rate = (rate * m) / n;
}
return (rate);
}
static uint64_t
qcom_clk_rcg2_calc_input_freq(uint64_t freq, uint32_t m, uint32_t n,
uint32_t hid_div)
{
if (hid_div != 0) {
freq = freq / 2;
freq = freq * (hid_div + 1);
}
if (n != 0) {
freq = (freq * n) / m;
}
return (freq);
}
static int
qcom_clk_rcg2_recalc(struct clknode *clk, uint64_t *freq)
{
struct qcom_clk_rcg2_sc *sc;
uint32_t cfg, m = 0, n = 0, hid_div = 0;
uint32_t mode = 0, mask;
sc = clknode_get_softc(clk);
CLKDEV_DEVICE_LOCK(clknode_get_device(sc->clknode));
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_CFG_OFFSET(sc),
&cfg);
if (sc->mnd_width != 0) {
mask = (1U << sc->mnd_width) - 1;
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_M_OFFSET(sc), &m);
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_N_OFFSET(sc), &n);
m = m & mask;
n = ~ n;
n = n & mask;
n = n + m;
mode = (cfg & QCOM_CLK_RCG2_CFG_MODE_MASK)
>> QCOM_CLK_RCG2_CFG_MODE_SHIFT;
}
CLKDEV_DEVICE_UNLOCK(clknode_get_device(sc->clknode));
mask = (1U << sc->hid_width) - 1;
hid_div = (cfg >> QCOM_CLK_RCG2_CFG_SRC_DIV_SHIFT) & mask;
*freq = qcom_clk_rcg2_calc_rate(*freq, mode, m, n, hid_div);
return (0);
}
static void
qcom_clk_rcg2_set_config_locked(struct qcom_clk_rcg2_sc *sc,
const struct qcom_clk_freq_tbl *f, int parent_idx)
{
uint32_t mask, reg;
if (sc->mnd_width != 0 && f->n != 0) {
mask = (1U << sc->mnd_width) - 1;
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_M_OFFSET(sc), ®);
reg &= ~mask;
reg |= (f->m & mask);
CLKDEV_WRITE_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_M_OFFSET(sc), reg);
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_N_OFFSET(sc), ®);
reg &= ~mask;
reg |= ((~(f->n - f->m)) & mask);
CLKDEV_WRITE_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_N_OFFSET(sc), reg);
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_D_OFFSET(sc), ®);
reg &= ~mask;
reg |= ((~f->n) & mask);
CLKDEV_WRITE_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_D_OFFSET(sc), reg);
}
mask = (1U << sc->hid_width) - 1;
mask |= QCOM_CLK_RCG2_CFG_SRC_SEL_MASK
| QCOM_CLK_RCG2_CFG_MODE_MASK
| QCOM_CLK_RCG2_CFG_HW_CLK_CTRL_MASK;
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_CFG_OFFSET(sc), ®);
reg &= ~mask;
reg = reg | ((f->pre_div) << QCOM_CLK_RCG2_CFG_SRC_DIV_SHIFT);
reg = reg | (((parent_idx << QCOM_CLK_RCG2_CFG_SRC_SEL_SHIFT)
& QCOM_CLK_RCG2_CFG_SRC_SEL_MASK));
if (sc->mnd_width != 0 && f->n != 0 && (f->m != f->n))
reg |= QCOM_CLK_RCG2_CFG_MODE_DUAL_EDGE;
CLKDEV_WRITE_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_CFG_OFFSET(sc), reg);
}
static int
qcom_clk_rcg2_init(struct clknode *clk, device_t dev)
{
struct qcom_clk_rcg2_sc *sc;
uint32_t reg;
uint32_t idx;
bool enabled __unused;
sc = clknode_get_softc(clk);
CLKDEV_DEVICE_LOCK(clknode_get_device(sc->clknode));
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_CMD_REGISTER(sc), ®);
if (reg & QCOM_CLK_RCG2_CMD_ROOT_OFF)
enabled = false;
else
enabled = true;
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_CFG_OFFSET(sc), ®);
CLKDEV_DEVICE_UNLOCK(clknode_get_device(sc->clknode));
idx = (reg & QCOM_CLK_RCG2_CFG_SRC_SEL_MASK)
>> QCOM_CLK_RCG2_CFG_SRC_SEL_SHIFT;
DPRINTF(clknode_get_device(sc->clknode),
"%s: mux index %u, enabled=%d\n",
__func__, idx, enabled);
clknode_init_parent_idx(clk, idx);
return(0);
}
static int
qcom_clk_rcg2_set_gate(struct clknode *clk, bool enable)
{
return (0);
}
static void
qcom_clk_rcg2_set_parent_index_locked(struct qcom_clk_rcg2_sc *sc,
uint32_t index)
{
uint32_t reg;
CLKDEV_READ_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_CFG_OFFSET(sc), ®);
reg = reg & ~QCOM_CLK_RCG2_CFG_SRC_SEL_MASK;
reg = reg | (((index << QCOM_CLK_RCG2_CFG_SRC_SEL_SHIFT)
& QCOM_CLK_RCG2_CFG_SRC_SEL_MASK));
CLKDEV_WRITE_4(clknode_get_device(sc->clknode),
QCOM_CLK_RCG2_CFG_OFFSET(sc),
reg);
}
static int
qcom_clk_rcg2_set_freq(struct clknode *clk, uint64_t fin, uint64_t *fout,
int flags, int *stop)
{
struct qcom_clk_rcg2_sc *sc;
const struct qcom_clk_freq_tbl *f;
const char **parent_names;
uint64_t p_freq, p_clk_freq;
int parent_cnt;
struct clknode *p_clk;
int i;
sc = clknode_get_softc(clk);
f = qcom_clk_freq_tbl_lookup(sc->freq_tbl, *fout);
if (f == NULL) {
device_printf(clknode_get_device(sc->clknode),
"%s: no suitable freqtbl entry found for freq %llu\n",
__func__,
(unsigned long long) *fout);
return (ERANGE);
}
parent_cnt = clknode_get_parents_num(clk);
parent_names = clknode_get_parent_names(clk);
for (i = 0; i < parent_cnt; i++) {
if (parent_names[i] == NULL)
continue;
if (strcmp(parent_names[i], f->parent) == 0)
break;
}
if (i >= parent_cnt) {
device_printf(clknode_get_device(sc->clknode),
"%s: couldn't find suitable parent?\n",
__func__);
return (ENXIO);
}
if ((sc->flags & QCOM_CLK_RCG2_FLAGS_SET_RATE_PARENT) == 0) {
if (flags & CLK_SET_DRYRUN) {
*fout = f->freq;
return (0);
}
if (sc->safe_pre_parent_idx > -1) {
DPRINTF(clknode_get_device(sc->clknode),
"%s: setting to safe parent idx %d\n",
__func__,
sc->safe_pre_parent_idx);
CLKDEV_DEVICE_LOCK(clknode_get_device(sc->clknode));
qcom_clk_rcg2_set_parent_index_locked(sc,
sc->safe_pre_parent_idx);
DPRINTF(clknode_get_device(sc->clknode),
"%s: safe parent: updating config\n", __func__);
if (! qcom_clk_rcg2_update_config_locked(sc)) {
CLKDEV_DEVICE_UNLOCK(clknode_get_device(sc->clknode));
DPRINTF(clknode_get_device(sc->clknode),
"%s: error updating config\n",
__func__);
return (ENXIO);
}
CLKDEV_DEVICE_UNLOCK(clknode_get_device(sc->clknode));
DPRINTF(clknode_get_device(sc->clknode),
"%s: safe parent: done\n", __func__);
clknode_set_parent_by_idx(sc->clknode,
sc->safe_pre_parent_idx);
}
CLKDEV_DEVICE_LOCK(clknode_get_device(sc->clknode));
qcom_clk_rcg2_set_parent_index_locked(sc, i);
if (! qcom_clk_rcg2_update_config_locked(sc)) {
CLKDEV_DEVICE_UNLOCK(clknode_get_device(sc->clknode));
device_printf(clknode_get_device(sc->clknode),
"%s: couldn't program in parent idx %u!\n",
__func__, i);
return (ENXIO);
}
CLKDEV_DEVICE_UNLOCK(clknode_get_device(sc->clknode));
clknode_set_parent_by_idx(sc->clknode, i);
*fout = f->freq;
return (0);
}
p_clk = clknode_find_by_name(f->parent);
if (p_clk == NULL) {
device_printf(clknode_get_device(sc->clknode),
"%s: couldn't find parent clk (%s)\n",
__func__, f->parent);
return (ENXIO);
}
p_freq = qcom_clk_rcg2_calc_input_freq(f->freq, f->m, f->n,
f->pre_div);
DPRINTF(clknode_get_device(sc->clknode),
"%s: request %llu, parent %s freq %llu, parent freq %llu\n",
__func__,
*fout,
f->parent,
f->freq,
(unsigned long long) p_freq);
if (((flags & CLK_SET_DRYRUN) == 0) &&
(sc->safe_pre_parent_idx > -1)) {
DPRINTF(clknode_get_device(sc->clknode),
"%s: setting to safe parent idx %d\n",
__func__,
sc->safe_pre_parent_idx);
CLKDEV_DEVICE_LOCK(clknode_get_device(sc->clknode));
qcom_clk_rcg2_set_parent_index_locked(sc,
sc->safe_pre_parent_idx);
DPRINTF(clknode_get_device(sc->clknode),
"%s: safe parent: updating config\n", __func__);
if (! qcom_clk_rcg2_update_config_locked(sc)) {
CLKDEV_DEVICE_UNLOCK(clknode_get_device(sc->clknode));
DPRINTF(clknode_get_device(sc->clknode),
"%s: error updating config\n",
__func__);
return (ENXIO);
}
CLKDEV_DEVICE_UNLOCK(clknode_get_device(sc->clknode));
DPRINTF(clknode_get_device(sc->clknode),
"%s: safe parent: done\n", __func__);
clknode_set_parent_by_idx(sc->clknode,
sc->safe_pre_parent_idx);
}
if (clknode_get_freq(p_clk, &p_clk_freq) != 0) {
device_printf(clknode_get_device(sc->clknode),
"%s: couldn't get freq for parent clock %s\n",
__func__,
f->parent);
return (ENXIO);
}
if (p_clk_freq != p_freq) {
uint64_t n_freq;
int rv;
if (flags & CLK_SET_DRYRUN) {
n_freq = p_freq;
rv = clknode_test_freq(p_clk, n_freq, flags, 0,
&p_freq);
} else {
rv = clknode_set_freq(p_clk, p_freq, flags, 0);
}
if (rv != 0) {
device_printf(clknode_get_device(sc->clknode),
"%s: couldn't set parent clock %s frequency to "
"%llu\n",
__func__,
f->parent,
(unsigned long long) p_freq);
return (ENXIO);
}
if ((flags & CLK_SET_DRYRUN) == 0) {
rv = clknode_get_freq(p_clk, &p_freq);
if (rv != 0) {
device_printf(clknode_get_device(sc->clknode),
"%s: couldn't get parent frequency",
__func__);
return (ENXIO);
}
}
}
DPRINTF(clknode_get_device(sc->clknode),
"%s: requested freq=%llu, target freq=%llu,"
" parent choice=%s, parent_freq=%llu\n",
__func__,
*fout,
f->freq,
f->parent,
(unsigned long long) p_freq);
if ((flags & CLK_SET_DRYRUN) == 0) {
CLKDEV_DEVICE_LOCK(clknode_get_device(sc->clknode));
qcom_clk_rcg2_set_config_locked(sc, f, i);
if (! qcom_clk_rcg2_update_config_locked(sc)) {
CLKDEV_DEVICE_UNLOCK(clknode_get_device(sc->clknode));
device_printf(clknode_get_device(sc->clknode),
"%s: couldn't program in divisor, help!\n",
__func__);
return (ENXIO);
}
CLKDEV_DEVICE_UNLOCK(clknode_get_device(sc->clknode));
clknode_set_parent_by_idx(sc->clknode, i);
}
*fout = qcom_clk_rcg2_calc_rate(p_freq, (f->n == 0 ? 0 : 1),
f->m, f->n, f->pre_div);
return (0);
}
static clknode_method_t qcom_clk_rcg2_methods[] = {
CLKNODEMETHOD(clknode_init, qcom_clk_rcg2_init),
CLKNODEMETHOD(clknode_recalc_freq, qcom_clk_rcg2_recalc),
CLKNODEMETHOD(clknode_set_gate, qcom_clk_rcg2_set_gate),
CLKNODEMETHOD(clknode_set_freq, qcom_clk_rcg2_set_freq),
CLKNODEMETHOD_END
};
DEFINE_CLASS_1(qcom_clk_fepll, qcom_clk_rcg2_class, qcom_clk_rcg2_methods,
sizeof(struct qcom_clk_rcg2_sc), clknode_class);
int
qcom_clk_rcg2_register(struct clkdom *clkdom,
struct qcom_clk_rcg2_def *clkdef)
{
struct clknode *clk;
struct qcom_clk_rcg2_sc *sc;
if (clkdef->flags & QCOM_CLK_RCG2_FLAGS_CRITICAL)
clkdef->clkdef.flags |= CLK_NODE_CANNOT_STOP;
clk = clknode_create(clkdom, &qcom_clk_rcg2_class, &clkdef->clkdef);
if (clk == NULL)
return (1);
sc = clknode_get_softc(clk);
sc->clknode = clk;
sc->cmd_rcgr = clkdef->cmd_rcgr;
sc->hid_width = clkdef->hid_width;
sc->mnd_width = clkdef->mnd_width;
sc->safe_src_idx = clkdef->safe_src_idx;
sc->safe_pre_parent_idx = clkdef->safe_pre_parent_idx;
sc->cfg_offset = clkdef->cfg_offset;
sc->flags = clkdef->flags;
sc->freq_tbl = clkdef->freq_tbl;
clknode_register(clkdom, clk);
return (0);
}