[linux-block.git] / arch / mips / sgi-ip27 / ip27-timer.c

/*
 * Copytight (C) 1999, 2000, 05, 06 Ralf Baechle (ralf@linux-mips.org)
 * Copytight (C) 1999, 2000 Silicon Graphics, Inc.
 */
#include <linux/bcd.h>
#include <linux/init.h>
#include <linux/kernel.h>
#include <linux/sched.h>
#include <linux/interrupt.h>
#include <linux/kernel_stat.h>
#include <linux/param.h>
#include <linux/time.h>
#include <linux/timex.h>
#include <linux/mm.h>

#include <asm/time.h>
#include <asm/pgtable.h>
#include <asm/sgialib.h>
#include <asm/sn/ioc3.h>
#include <asm/m48t35.h>
#include <asm/sn/klconfig.h>
#include <asm/sn/arch.h>
#include <asm/sn/addrs.h>
#include <asm/sn/sn_private.h>
#include <asm/sn/sn0/ip27.h>
#include <asm/sn/sn0/hub.h>

/*
 * This is a hack; we really need to figure these values out dynamically
 *
 * Since 800 ns works very well with various HUB frequencies, such as
 * 360, 380, 390 and 400 MHZ, we use 800 ns rtc cycle time.
 *
 * Ralf: which clock rate is used to feed the counter?
 */
#define NSEC_PER_CYCLE		800
#define CYCLES_PER_SEC		(NSEC_PER_SEC/NSEC_PER_CYCLE)
#define CYCLES_PER_JIFFY	(CYCLES_PER_SEC/HZ)

#define TICK_SIZE (tick_nsec / 1000)

static unsigned long ct_cur[NR_CPUS];	/* What counter should be at next timer irq */

#if 0
static int set_rtc_mmss(unsigned long nowtime)
{
	int retval = 0;
	int real_seconds, real_minutes, cmos_minutes;
	struct m48t35_rtc *rtc;
	nasid_t nid;

	nid = get_nasid();
	rtc = (struct m48t35_rtc *)(KL_CONFIG_CH_CONS_INFO(nid)->memory_base +
							IOC3_BYTEBUS_DEV0);

	rtc->control |= M48T35_RTC_READ;
	cmos_minutes = BCD2BIN(rtc->min);
	rtc->control &= ~M48T35_RTC_READ;

	/*
	 * Since we're only adjusting minutes and seconds, don't interfere with
	 * hour overflow. This avoids messing with unknown time zones but
	 * requires your RTC not to be off by more than 15 minutes
	 */
	real_seconds = nowtime % 60;
	real_minutes = nowtime / 60;
	if (((abs(real_minutes - cmos_minutes) + 15)/30) & 1)
		real_minutes += 30;	/* correct for half hour time zone */
	real_minutes %= 60;

	if (abs(real_minutes - cmos_minutes) < 30) {
		real_seconds = BIN2BCD(real_seconds);
		real_minutes = BIN2BCD(real_minutes);
		rtc->control |= M48T35_RTC_SET;
		rtc->sec = real_seconds;
		rtc->min = real_minutes;
		rtc->control &= ~M48T35_RTC_SET;
	} else {
		printk(KERN_WARNING
		       "set_rtc_mmss: can't update from %d to %d\n",
		       cmos_minutes, real_minutes);
		retval = -1;
	}

	return retval;
}
#endif

static unsigned int rt_timer_irq;

void ip27_rt_timer_interrupt(void)
{
	int cpu = smp_processor_id();
	int cpuA = cputoslice(cpu) == 0;
	unsigned int irq = rt_timer_irq;

	irq_enter();
	write_seqlock(&xtime_lock);

again:
	LOCAL_HUB_S(cpuA ? PI_RT_PEND_A : PI_RT_PEND_B, 0);	/* Ack  */
	ct_cur[cpu] += CYCLES_PER_JIFFY;
	LOCAL_HUB_S(cpuA ? PI_RT_COMPARE_A : PI_RT_COMPARE_B, ct_cur[cpu]);

	if (LOCAL_HUB_L(PI_RT_COUNT) >= ct_cur[cpu])
		goto again;

	kstat_this_cpu.irqs[irq]++;		/* kstat only for bootcpu? */

	if (cpu == 0)
		do_timer(1);

	update_process_times(user_mode(get_irq_regs()));

	write_sequnlock(&xtime_lock);
	irq_exit();
}

/* Includes for ioc3_init().  */
#include <asm/sn/types.h>
#include <asm/sn/sn0/addrs.h>
#include <asm/sn/sn0/hubni.h>
#include <asm/sn/sn0/hubio.h>
#include <asm/pci/bridge.h>

unsigned long read_persistent_clock(void)
{
        unsigned int year, month, date, hour, min, sec;
	struct m48t35_rtc *rtc;
	nasid_t nid;

	nid = get_nasid();
	rtc = (struct m48t35_rtc *)(KL_CONFIG_CH_CONS_INFO(nid)->memory_base +
							IOC3_BYTEBUS_DEV0);

	rtc->control |= M48T35_RTC_READ;
	sec = rtc->sec;
	min = rtc->min;
	hour = rtc->hour;
	date = rtc->date;
	month = rtc->month;
	year = rtc->year;
	rtc->control &= ~M48T35_RTC_READ;

        sec = BCD2BIN(sec);
        min = BCD2BIN(min);
        hour = BCD2BIN(hour);
        date = BCD2BIN(date);
        month = BCD2BIN(month);
        year = BCD2BIN(year);

        year += 1970;

        return mktime(year, month, date, hour, min, sec);
}

static void enable_rt_irq(unsigned int irq)
{
}

static void disable_rt_irq(unsigned int irq)
{
}

static struct irq_chip rt_irq_type = {
	.name		= "SN HUB RT timer",
	.ack		= disable_rt_irq,
	.mask		= disable_rt_irq,
	.mask_ack	= disable_rt_irq,
	.unmask		= enable_rt_irq,
	.eoi		= enable_rt_irq,
};

static struct irqaction rt_irqaction = {
	.handler	= (irq_handler_t) ip27_rt_timer_interrupt,
	.flags		= IRQF_DISABLED,
	.mask		= CPU_MASK_NONE,
	.name		= "timer"
};

void __init plat_timer_setup(struct irqaction *irq)
{
	int irqno  = allocate_irqno();

	if (irqno < 0)
		panic("Can't allocate interrupt number for timer interrupt");

	set_irq_chip_and_handler(irqno, &rt_irq_type, handle_percpu_irq);

	/* over-write the handler, we use our own way */
	irq->handler = no_action;

	/* setup irqaction */
	irq_desc[irqno].status |= IRQ_PER_CPU;

	rt_timer_irq = irqno;
	/*
	 * Only needed to get /proc/interrupt to display timer irq stats
	 */
	setup_irq(irqno, &rt_irqaction);
}

static cycle_t hub_rt_read(void)
{
	return REMOTE_HUB_L(cputonasid(0), PI_RT_COUNT);
}

struct clocksource ht_rt_clocksource = {
	.name	= "HUB",
	.rating	= 200,
	.read	= hub_rt_read,
	.mask	= CLOCKSOURCE_MASK(52),
	.shift	= 32,
	.flags	= CLOCK_SOURCE_IS_CONTINUOUS,
};

void __init plat_time_init(void)
{
	clocksource_register(&ht_rt_clocksource);
}

void __init cpu_time_init(void)
{
	lboard_t *board;
	klcpu_t *cpu;
	int cpuid;

	/* Don't use ARCS.  ARCS is fragile.  Klconfig is simple and sane.  */
	board = find_lboard(KL_CONFIG_INFO(get_nasid()), KLTYPE_IP27);
	if (!board)
		panic("Can't find board info for myself.");

	cpuid = LOCAL_HUB_L(PI_CPU_NUM) ? IP27_CPU0_INDEX : IP27_CPU1_INDEX;
	cpu = (klcpu_t *) KLCF_COMP(board, cpuid);
	if (!cpu)
		panic("No information about myself?");

	printk("CPU %d clock is %dMHz.\n", smp_processor_id(), cpu->cpu_speed);

	set_c0_status(SRB_TIMOCLK);
}

void __init hub_rtc_init(cnodeid_t cnode)
{
	/*
	 * We only need to initialize the current node.
	 * If this is not the current node then it is a cpuless
	 * node and timeouts will not happen there.
	 */
	if (get_compact_nodeid() == cnode) {
		int cpu = smp_processor_id();
		LOCAL_HUB_S(PI_RT_EN_A, 1);
		LOCAL_HUB_S(PI_RT_EN_B, 1);
		LOCAL_HUB_S(PI_PROF_EN_A, 0);
		LOCAL_HUB_S(PI_PROF_EN_B, 0);
		ct_cur[cpu] = CYCLES_PER_JIFFY;
		LOCAL_HUB_S(PI_RT_COMPARE_A, ct_cur[cpu]);
		LOCAL_HUB_S(PI_RT_COUNT, 0);
		LOCAL_HUB_S(PI_RT_PEND_A, 0);
		LOCAL_HUB_S(PI_RT_COMPARE_B, ct_cur[cpu]);
		LOCAL_HUB_S(PI_RT_COUNT, 0);
		LOCAL_HUB_S(PI_RT_PEND_B, 0);
	}
}
Commit	Line	Data
1da177e4	1	/*
54d0a216	2	* Copytight (C) 1999, 2000, 05, 06 Ralf Baechle (ralf@linux-mips.org)
1da177e4 LT	3	* Copytight (C) 1999, 2000 Silicon Graphics, Inc.
	4	*/
	5	#include <linux/bcd.h>
	6	#include <linux/init.h>
	7	#include <linux/kernel.h>
	8	#include <linux/sched.h>
	9	#include <linux/interrupt.h>
	10	#include <linux/kernel_stat.h>
	11	#include <linux/param.h>
	12	#include <linux/time.h>
	13	#include <linux/timex.h>
	14	#include <linux/mm.h>
	15
	16	#include <asm/time.h>
	17	#include <asm/pgtable.h>
	18	#include <asm/sgialib.h>
	19	#include <asm/sn/ioc3.h>
	20	#include <asm/m48t35.h>
	21	#include <asm/sn/klconfig.h>
	22	#include <asm/sn/arch.h>
	23	#include <asm/sn/addrs.h>
	24	#include <asm/sn/sn_private.h>
	25	#include <asm/sn/sn0/ip27.h>
	26	#include <asm/sn/sn0/hub.h>
	27
	28	/*
	29	* This is a hack; we really need to figure these values out dynamically
	30	*
	31	* Since 800 ns works very well with various HUB frequencies, such as
	32	* 360, 380, 390 and 400 MHZ, we use 800 ns rtc cycle time.
	33	*
	34	* Ralf: which clock rate is used to feed the counter?
	35	*/
	36	#define NSEC_PER_CYCLE 800
	37	#define CYCLES_PER_SEC (NSEC_PER_SEC/NSEC_PER_CYCLE)
	38	#define CYCLES_PER_JIFFY (CYCLES_PER_SEC/HZ)
	39
	40	#define TICK_SIZE (tick_nsec / 1000)
	41
	42	static unsigned long ct_cur[NR_CPUS]; /* What counter should be at next timer irq */
1da177e4	43
1da177e4 LT	44	#if 0
	45	static int set_rtc_mmss(unsigned long nowtime)
	46	{
	47	int retval = 0;
	48	int real_seconds, real_minutes, cmos_minutes;
	49	struct m48t35_rtc *rtc;
	50	nasid_t nid;
	51
	52	nid = get_nasid();
	53	rtc = (struct m48t35_rtc *)(KL_CONFIG_CH_CONS_INFO(nid)->memory_base +
	54	IOC3_BYTEBUS_DEV0);
	55
	56	rtc->control \|= M48T35_RTC_READ;
	57	cmos_minutes = BCD2BIN(rtc->min);
	58	rtc->control &= ~M48T35_RTC_READ;
	59
	60	/*
	61	* Since we're only adjusting minutes and seconds, don't interfere with
	62	* hour overflow. This avoids messing with unknown time zones but
	63	* requires your RTC not to be off by more than 15 minutes
	64	*/
	65	real_seconds = nowtime % 60;
	66	real_minutes = nowtime / 60;
	67	if (((abs(real_minutes - cmos_minutes) + 15)/30) & 1)
	68	real_minutes += 30; /* correct for half hour time zone */
	69	real_minutes %= 60;
	70
	71	if (abs(real_minutes - cmos_minutes) < 30) {
	72	real_seconds = BIN2BCD(real_seconds);
	73	real_minutes = BIN2BCD(real_minutes);
	74	rtc->control \|= M48T35_RTC_SET;
	75	rtc->sec = real_seconds;
	76	rtc->min = real_minutes;
	77	rtc->control &= ~M48T35_RTC_SET;
	78	} else {
	79	printk(KERN_WARNING
	80	"set_rtc_mmss: can't update from %d to %d\n",
	81	cmos_minutes, real_minutes);
	82	retval = -1;
	83	}
	84
	85	return retval;
	86	}
	87	#endif
	88
3c009442 RB	89	static unsigned int rt_timer_irq;
3c009442 RB	90
937a8015	91	void ip27_rt_timer_interrupt(void)
1da177e4 LT	92	{
	93	int cpu = smp_processor_id();
	94	int cpuA = cputoslice(cpu) == 0;
3c009442	95	unsigned int irq = rt_timer_irq;
1da177e4 LT	96
	97	irq_enter();
	98	write_seqlock(&xtime_lock);
	99
	100	again:
	101	LOCAL_HUB_S(cpuA ? PI_RT_PEND_A : PI_RT_PEND_B, 0); /* Ack */
	102	ct_cur[cpu] += CYCLES_PER_JIFFY;
	103	LOCAL_HUB_S(cpuA ? PI_RT_COMPARE_A : PI_RT_COMPARE_B, ct_cur[cpu]);
	104
	105	if (LOCAL_HUB_L(PI_RT_COUNT) >= ct_cur[cpu])
	106	goto again;
	107
	108	kstat_this_cpu.irqs[irq]++; /* kstat only for bootcpu? */
	109
	110	if (cpu == 0)
3171a030	111	do_timer(1);
1da177e4	112
937a8015	113	update_process_times(user_mode(get_irq_regs()));
1da177e4	114
1da177e4 LT	115	write_sequnlock(&xtime_lock);
	116	irq_exit();
	117	}
	118
1da177e4 LT	119	/* Includes for ioc3_init(). */
	120	#include <asm/sn/types.h>
	121	#include <asm/sn/sn0/addrs.h>
	122	#include <asm/sn/sn0/hubni.h>
	123	#include <asm/sn/sn0/hubio.h>
	124	#include <asm/pci/bridge.h>
	125
4b550488	126	unsigned long read_persistent_clock(void)
1da177e4 LT	127	{
	128	unsigned int year, month, date, hour, min, sec;
	129	struct m48t35_rtc *rtc;
	130	nasid_t nid;
	131
	132	nid = get_nasid();
	133	rtc = (struct m48t35_rtc *)(KL_CONFIG_CH_CONS_INFO(nid)->memory_base +
	134	IOC3_BYTEBUS_DEV0);
	135
	136	rtc->control \|= M48T35_RTC_READ;
	137	sec = rtc->sec;
	138	min = rtc->min;
	139	hour = rtc->hour;
	140	date = rtc->date;
	141	month = rtc->month;
	142	year = rtc->year;
	143	rtc->control &= ~M48T35_RTC_READ;
	144
	145	sec = BCD2BIN(sec);
	146	min = BCD2BIN(min);
	147	hour = BCD2BIN(hour);
	148	date = BCD2BIN(date);
	149	month = BCD2BIN(month);
	150	year = BCD2BIN(year);
	151
	152	year += 1970;
	153
	154	return mktime(year, month, date, hour, min, sec);
	155	}
	156
3c009442 RB	157	static void enable_rt_irq(unsigned int irq)
	158	{
	159	}
	160
	161	static void disable_rt_irq(unsigned int irq)
	162	{
	163	}
	164
94dee171	165	static struct irq_chip rt_irq_type = {
70d21cde	166	.name = "SN HUB RT timer",
1603b5ac AN	167	.ack = disable_rt_irq,
	168	.mask = disable_rt_irq,
	169	.mask_ack = disable_rt_irq,
	170	.unmask = enable_rt_irq,
1417836e	171	.eoi = enable_rt_irq,
3c009442 RB	172	};
	173
	174	static struct irqaction rt_irqaction = {
f8aeb85f	175	.handler = (irq_handler_t) ip27_rt_timer_interrupt,
f40298fd	176	.flags = IRQF_DISABLED,
3c009442 RB	177	.mask = CPU_MASK_NONE,
	178	.name = "timer"
	179	};
	180
54d0a216	181	void __init plat_timer_setup(struct irqaction *irq)
1da177e4	182	{
3c009442 RB	183	int irqno = allocate_irqno();
	184
	185	if (irqno < 0)
	186	panic("Can't allocate interrupt number for timer interrupt");
	187
1417836e	188	set_irq_chip_and_handler(irqno, &rt_irq_type, handle_percpu_irq);
3c009442	189
1da177e4 LT	190	/* over-write the handler, we use our own way */
	191	irq->handler = no_action;
	192
	193	/* setup irqaction */
3c009442 RB	194	irq_desc[irqno].status \|= IRQ_PER_CPU;
	195
	196	rt_timer_irq = irqno;
bf283630 RB	197	/*
	198	* Only needed to get /proc/interrupt to display timer irq stats
	199	*/
	200	setup_irq(irqno, &rt_irqaction);
1da177e4 LT	201	}
1da177e4 LT	202
87b2335d	203	static cycle_t hub_rt_read(void)
16b7b2ac AN	204	{
	205	return REMOTE_HUB_L(cputonasid(0), PI_RT_COUNT);
	206	}
	207
87b2335d RB	208	struct clocksource ht_rt_clocksource = {
	209	.name = "HUB",
	210	.rating = 200,
	211	.read = hub_rt_read,
	212	.mask = CLOCKSOURCE_MASK(52),
	213	.shift = 32,
	214	.flags = CLOCK_SOURCE_IS_CONTINUOUS,
	215	};
	216
4b550488	217	void __init plat_time_init(void)
1da177e4	218	{
87b2335d	219	clocksource_register(&ht_rt_clocksource);
1da177e4 LT	220	}
	221
	222	void __init cpu_time_init(void)
	223	{
	224	lboard_t *board;
	225	klcpu_t *cpu;
	226	int cpuid;
	227
	228	/* Don't use ARCS. ARCS is fragile. Klconfig is simple and sane. */
	229	board = find_lboard(KL_CONFIG_INFO(get_nasid()), KLTYPE_IP27);
	230	if (!board)
	231	panic("Can't find board info for myself.");
	232
	233	cpuid = LOCAL_HUB_L(PI_CPU_NUM) ? IP27_CPU0_INDEX : IP27_CPU1_INDEX;
	234	cpu = (klcpu_t *) KLCF_COMP(board, cpuid);
	235	if (!cpu)
	236	panic("No information about myself?");
	237
	238	printk("CPU %d clock is %dMHz.\n", smp_processor_id(), cpu->cpu_speed);
	239
	240	set_c0_status(SRB_TIMOCLK);
	241	}
	242
	243	void __init hub_rtc_init(cnodeid_t cnode)
	244	{
	245	/*
	246	* We only need to initialize the current node.
	247	* If this is not the current node then it is a cpuless
	248	* node and timeouts will not happen there.
	249	*/
	250	if (get_compact_nodeid() == cnode) {
	251	int cpu = smp_processor_id();
	252	LOCAL_HUB_S(PI_RT_EN_A, 1);
	253	LOCAL_HUB_S(PI_RT_EN_B, 1);
	254	LOCAL_HUB_S(PI_PROF_EN_A, 0);
	255	LOCAL_HUB_S(PI_PROF_EN_B, 0);
	256	ct_cur[cpu] = CYCLES_PER_JIFFY;
	257	LOCAL_HUB_S(PI_RT_COMPARE_A, ct_cur[cpu]);
	258	LOCAL_HUB_S(PI_RT_COUNT, 0);
	259	LOCAL_HUB_S(PI_RT_PEND_A, 0);
	260	LOCAL_HUB_S(PI_RT_COMPARE_B, ct_cur[cpu]);
	261	LOCAL_HUB_S(PI_RT_COUNT, 0);
	262	LOCAL_HUB_S(PI_RT_PEND_B, 0);
	263	}
	264	}