1 /* $Id: time.c,v 1.60 2002/01/23 14:33:55 davem Exp $
2 * linux/arch/sparc/kernel/time.c
4 * Copyright (C) 1995 David S. Miller (davem@caip.rutgers.edu)
5 * Copyright (C) 1996 Thomas K. Dyas (tdyas@eden.rutgers.edu)
7 * Chris Davis (cdavis@cois.on.ca) 03/27/1998
8 * Added support for the intersil on the sun4/4200
10 * Gleb Raiko (rajko@mech.math.msu.su) 08/18/1998
11 * Support for MicroSPARC-IIep, PCI CPU.
13 * This file handles the Sparc specific time handling details.
15 * 1997-09-10 Updated NTP code according to technical memorandum Jan '96
16 * "A Kernel Model for Precision Timekeeping" by Dave Mills
18 #include <linux/config.h>
19 #include <linux/errno.h>
20 #include <linux/module.h>
21 #include <linux/sched.h>
22 #include <linux/kernel.h>
23 #include <linux/param.h>
24 #include <linux/string.h>
26 #include <linux/interrupt.h>
27 #include <linux/time.h>
28 #include <linux/timex.h>
29 #include <linux/init.h>
30 #include <linux/pci.h>
31 #include <linux/ioport.h>
32 #include <linux/profile.h>
34 #include <asm/oplib.h>
35 #include <asm/segment.h>
36 #include <asm/timer.h>
37 #include <asm/mostek.h>
38 #include <asm/system.h>
41 #include <asm/idprom.h>
42 #include <asm/machines.h>
43 #include <asm/sun4paddr.h>
47 extern unsigned long wall_jiffies
;
49 u64 jiffies_64
= INITIAL_JIFFIES
;
51 EXPORT_SYMBOL(jiffies_64
);
53 DEFINE_SPINLOCK(rtc_lock
);
54 enum sparc_clock_type sp_clock_typ
;
55 DEFINE_SPINLOCK(mostek_lock
);
56 void __iomem
*mstk48t02_regs
= NULL
;
57 static struct mostek48t08
*mstk48t08_regs
= NULL
;
58 static int set_rtc_mmss(unsigned long);
59 static int sbus_do_settimeofday(struct timespec
*tv
);
62 struct intersil
*intersil_clock
;
63 #define intersil_cmd(intersil_reg, intsil_cmd) intersil_reg->int_cmd_reg = \
66 #define intersil_intr(intersil_reg, intsil_cmd) intersil_reg->int_intr_reg = \
69 #define intersil_start(intersil_reg) intersil_cmd(intersil_reg, \
70 ( INTERSIL_START | INTERSIL_32K | INTERSIL_NORMAL | INTERSIL_24H |\
71 INTERSIL_INTR_ENABLE))
73 #define intersil_stop(intersil_reg) intersil_cmd(intersil_reg, \
74 ( INTERSIL_STOP | INTERSIL_32K | INTERSIL_NORMAL | INTERSIL_24H |\
75 INTERSIL_INTR_ENABLE))
77 #define intersil_read_intr(intersil_reg, towhere) towhere = \
78 intersil_reg->int_intr_reg
82 unsigned long profile_pc(struct pt_regs
*regs
)
84 extern char __copy_user_begin
[], __copy_user_end
[];
85 extern char __atomic_begin
[], __atomic_end
[];
86 extern char __bzero_begin
[], __bzero_end
[];
87 extern char __bitops_begin
[], __bitops_end
[];
89 unsigned long pc
= regs
->pc
;
91 if (in_lock_functions(pc
) ||
92 (pc
>= (unsigned long) __copy_user_begin
&&
93 pc
< (unsigned long) __copy_user_end
) ||
94 (pc
>= (unsigned long) __atomic_begin
&&
95 pc
< (unsigned long) __atomic_end
) ||
96 (pc
>= (unsigned long) __bzero_begin
&&
97 pc
< (unsigned long) __bzero_end
) ||
98 (pc
>= (unsigned long) __bitops_begin
&&
99 pc
< (unsigned long) __bitops_end
))
100 pc
= regs
->u_regs
[UREG_RETPC
];
104 __volatile__
unsigned int *master_l10_counter
;
105 __volatile__
unsigned int *master_l10_limit
;
108 * timer_interrupt() needs to keep up the real-time clock,
109 * as well as call the "do_timer()" routine every clocktick
112 #define TICK_SIZE (tick_nsec / 1000)
114 irqreturn_t
timer_interrupt(int irq
, void *dev_id
, struct pt_regs
* regs
)
116 /* last time the cmos clock got updated */
117 static long last_rtc_update
;
120 profile_tick(CPU_PROFILING
, regs
);
123 /* Protect counter clear so that do_gettimeoffset works */
124 write_seqlock(&xtime_lock
);
126 if((idprom
->id_machtype
== (SM_SUN4
| SM_4_260
)) ||
127 (idprom
->id_machtype
== (SM_SUN4
| SM_4_110
))) {
129 intersil_read_intr(intersil_clock
, temp
);
130 /* re-enable the irq */
138 update_process_times(user_mode(regs
));
142 /* Determine when to update the Mostek clock. */
143 if ((time_status
& STA_UNSYNC
) == 0 &&
144 xtime
.tv_sec
> last_rtc_update
+ 660 &&
145 (xtime
.tv_nsec
/ 1000) >= 500000 - ((unsigned) TICK_SIZE
) / 2 &&
146 (xtime
.tv_nsec
/ 1000) <= 500000 + ((unsigned) TICK_SIZE
) / 2) {
147 if (set_rtc_mmss(xtime
.tv_sec
) == 0)
148 last_rtc_update
= xtime
.tv_sec
;
150 last_rtc_update
= xtime
.tv_sec
- 600; /* do it again in 60 s */
152 write_sequnlock(&xtime_lock
);
157 /* Kick start a stopped clock (procedure from the Sun NVRAM/hostid FAQ). */
158 static void __init
kick_start_clock(void)
160 struct mostek48t02
*regs
= (struct mostek48t02
*)mstk48t02_regs
;
164 prom_printf("CLOCK: Clock was stopped. Kick start ");
166 spin_lock_irq(&mostek_lock
);
168 /* Turn on the kick start bit to start the oscillator. */
169 regs
->creg
|= MSTK_CREG_WRITE
;
170 regs
->sec
&= ~MSTK_STOP
;
171 regs
->hour
|= MSTK_KICK_START
;
172 regs
->creg
&= ~MSTK_CREG_WRITE
;
174 spin_unlock_irq(&mostek_lock
);
176 /* Delay to allow the clock oscillator to start. */
177 sec
= MSTK_REG_SEC(regs
);
178 for (i
= 0; i
< 3; i
++) {
179 while (sec
== MSTK_REG_SEC(regs
))
180 for (count
= 0; count
< 100000; count
++)
187 spin_lock_irq(&mostek_lock
);
189 /* Turn off kick start and set a "valid" time and date. */
190 regs
->creg
|= MSTK_CREG_WRITE
;
191 regs
->hour
&= ~MSTK_KICK_START
;
192 MSTK_SET_REG_SEC(regs
,0);
193 MSTK_SET_REG_MIN(regs
,0);
194 MSTK_SET_REG_HOUR(regs
,0);
195 MSTK_SET_REG_DOW(regs
,5);
196 MSTK_SET_REG_DOM(regs
,1);
197 MSTK_SET_REG_MONTH(regs
,8);
198 MSTK_SET_REG_YEAR(regs
,1996 - MSTK_YEAR_ZERO
);
199 regs
->creg
&= ~MSTK_CREG_WRITE
;
201 spin_unlock_irq(&mostek_lock
);
203 /* Ensure the kick start bit is off. If it isn't, turn it off. */
204 while (regs
->hour
& MSTK_KICK_START
) {
205 prom_printf("CLOCK: Kick start still on!\n");
207 spin_lock_irq(&mostek_lock
);
208 regs
->creg
|= MSTK_CREG_WRITE
;
209 regs
->hour
&= ~MSTK_KICK_START
;
210 regs
->creg
&= ~MSTK_CREG_WRITE
;
211 spin_unlock_irq(&mostek_lock
);
214 prom_printf("CLOCK: Kick start procedure successful.\n");
217 /* Return nonzero if the clock chip battery is low. */
218 static __inline__
int has_low_battery(void)
220 struct mostek48t02
*regs
= (struct mostek48t02
*)mstk48t02_regs
;
221 unsigned char data1
, data2
;
223 spin_lock_irq(&mostek_lock
);
224 data1
= regs
->eeprom
[0]; /* Read some data. */
225 regs
->eeprom
[0] = ~data1
; /* Write back the complement. */
226 data2
= regs
->eeprom
[0]; /* Read back the complement. */
227 regs
->eeprom
[0] = data1
; /* Restore the original value. */
228 spin_unlock_irq(&mostek_lock
);
230 return (data1
== data2
); /* Was the write blocked? */
233 /* Probe for the real time clock chip on Sun4 */
234 static __inline__
void sun4_clock_probe(void)
240 memset(&r
, 0, sizeof(r
));
241 if( idprom
->id_machtype
== (SM_SUN4
| SM_4_330
) ) {
242 sp_clock_typ
= MSTK48T02
;
243 r
.start
= sun4_clock_physaddr
;
244 mstk48t02_regs
= sbus_ioremap(&r
, 0,
245 sizeof(struct mostek48t02
), NULL
);
246 mstk48t08_regs
= NULL
; /* To catch weirdness */
247 intersil_clock
= NULL
; /* just in case */
249 /* Kick start the clock if it is completely stopped. */
250 if (mostek_read(mstk48t02_regs
+ MOSTEK_SEC
) & MSTK_STOP
)
252 } else if( idprom
->id_machtype
== (SM_SUN4
| SM_4_260
)) {
253 /* intersil setup code */
254 printk("Clock: INTERSIL at %8x ",sun4_clock_physaddr
);
255 sp_clock_typ
= INTERSIL
;
256 r
.start
= sun4_clock_physaddr
;
257 intersil_clock
= (struct intersil
*)
258 sbus_ioremap(&r
, 0, sizeof(*intersil_clock
), "intersil");
259 mstk48t02_regs
= 0; /* just be sure */
260 mstk48t08_regs
= NULL
; /* ditto */
261 /* initialise the clock */
263 intersil_intr(intersil_clock
,INTERSIL_INT_100HZ
);
265 intersil_start(intersil_clock
);
267 intersil_read_intr(intersil_clock
, temp
);
268 while (!(temp
& 0x80))
269 intersil_read_intr(intersil_clock
, temp
);
271 intersil_read_intr(intersil_clock
, temp
);
272 while (!(temp
& 0x80))
273 intersil_read_intr(intersil_clock
, temp
);
275 intersil_stop(intersil_clock
);
281 /* Probe for the mostek real time clock chip. */
282 static __inline__
void clock_probe(void)
284 struct linux_prom_registers clk_reg
[2];
286 register int node
, cpuunit
, bootbus
;
289 cpuunit
= bootbus
= 0;
290 memset(&r
, 0, sizeof(r
));
292 /* Determine the correct starting PROM node for the probe. */
293 node
= prom_getchild(prom_root_node
);
294 switch (sparc_cpu_model
) {
298 node
= prom_getchild(prom_searchsiblings(node
, "obio"));
301 node
= prom_getchild(bootbus
= prom_searchsiblings(prom_getchild(cpuunit
= prom_searchsiblings(node
, "cpu-unit")), "bootbus"));
304 prom_printf("CLOCK: Unsupported architecture!\n");
308 /* Find the PROM node describing the real time clock. */
309 sp_clock_typ
= MSTK_INVALID
;
310 node
= prom_searchsiblings(node
,"eeprom");
312 prom_printf("CLOCK: No clock found!\n");
316 /* Get the model name and setup everything up. */
318 prom_getstring(node
, "model", model
, sizeof(model
));
319 if (strcmp(model
, "mk48t02") == 0) {
320 sp_clock_typ
= MSTK48T02
;
321 if (prom_getproperty(node
, "reg", (char *) clk_reg
, sizeof(clk_reg
)) == -1) {
322 prom_printf("clock_probe: FAILED!\n");
325 if (sparc_cpu_model
== sun4d
)
326 prom_apply_generic_ranges (bootbus
, cpuunit
, clk_reg
, 1);
328 prom_apply_obio_ranges(clk_reg
, 1);
329 /* Map the clock register io area read-only */
330 r
.flags
= clk_reg
[0].which_io
;
331 r
.start
= clk_reg
[0].phys_addr
;
332 mstk48t02_regs
= sbus_ioremap(&r
, 0,
333 sizeof(struct mostek48t02
), "mk48t02");
334 mstk48t08_regs
= NULL
; /* To catch weirdness */
335 } else if (strcmp(model
, "mk48t08") == 0) {
336 sp_clock_typ
= MSTK48T08
;
337 if(prom_getproperty(node
, "reg", (char *) clk_reg
,
338 sizeof(clk_reg
)) == -1) {
339 prom_printf("clock_probe: FAILED!\n");
342 if (sparc_cpu_model
== sun4d
)
343 prom_apply_generic_ranges (bootbus
, cpuunit
, clk_reg
, 1);
345 prom_apply_obio_ranges(clk_reg
, 1);
346 /* Map the clock register io area read-only */
347 /* XXX r/o attribute is somewhere in r.flags */
348 r
.flags
= clk_reg
[0].which_io
;
349 r
.start
= clk_reg
[0].phys_addr
;
350 mstk48t08_regs
= (struct mostek48t08
*) sbus_ioremap(&r
, 0,
351 sizeof(struct mostek48t08
), "mk48t08");
353 mstk48t02_regs
= &mstk48t08_regs
->regs
;
355 prom_printf("CLOCK: Unknown model name '%s'\n",model
);
359 /* Report a low battery voltage condition. */
360 if (has_low_battery())
361 printk(KERN_CRIT
"NVRAM: Low battery voltage!\n");
363 /* Kick start the clock if it is completely stopped. */
364 if (mostek_read(mstk48t02_regs
+ MOSTEK_SEC
) & MSTK_STOP
)
368 void __init
sbus_time_init(void)
370 unsigned int year
, mon
, day
, hour
, min
, sec
;
371 struct mostek48t02
*mregs
;
375 struct intersil
*iregs
;
378 BTFIXUPSET_CALL(bus_do_settimeofday
, sbus_do_settimeofday
, BTFIXUPCALL_NORM
);
386 sparc_init_timers(timer_interrupt
);
389 if(idprom
->id_machtype
== (SM_SUN4
| SM_4_330
)) {
391 mregs
= (struct mostek48t02
*)mstk48t02_regs
;
393 prom_printf("Something wrong, clock regs not mapped yet.\n");
396 spin_lock_irq(&mostek_lock
);
397 mregs
->creg
|= MSTK_CREG_READ
;
398 sec
= MSTK_REG_SEC(mregs
);
399 min
= MSTK_REG_MIN(mregs
);
400 hour
= MSTK_REG_HOUR(mregs
);
401 day
= MSTK_REG_DOM(mregs
);
402 mon
= MSTK_REG_MONTH(mregs
);
403 year
= MSTK_CVT_YEAR( MSTK_REG_YEAR(mregs
) );
404 xtime
.tv_sec
= mktime(year
, mon
, day
, hour
, min
, sec
);
405 xtime
.tv_nsec
= (INITIAL_JIFFIES
% HZ
) * (NSEC_PER_SEC
/ HZ
);
406 set_normalized_timespec(&wall_to_monotonic
,
407 -xtime
.tv_sec
, -xtime
.tv_nsec
);
408 mregs
->creg
&= ~MSTK_CREG_READ
;
409 spin_unlock_irq(&mostek_lock
);
411 } else if(idprom
->id_machtype
== (SM_SUN4
| SM_4_260
) ) {
412 /* initialise the intersil on sun4 */
414 iregs
=intersil_clock
;
416 prom_printf("Something wrong, clock regs not mapped yet.\n");
420 intersil_intr(intersil_clock
,INTERSIL_INT_100HZ
);
422 intersil_stop(iregs
);
423 intersil_read_intr(intersil_clock
, temp
);
425 temp
= iregs
->clk
.int_csec
;
427 sec
= iregs
->clk
.int_sec
;
428 min
= iregs
->clk
.int_min
;
429 hour
= iregs
->clk
.int_hour
;
430 day
= iregs
->clk
.int_day
;
431 mon
= iregs
->clk
.int_month
;
432 year
= MSTK_CVT_YEAR(iregs
->clk
.int_year
);
435 intersil_start(iregs
);
437 xtime
.tv_sec
= mktime(year
, mon
, day
, hour
, min
, sec
);
438 xtime
.tv_nsec
= (INITIAL_JIFFIES
% HZ
) * (NSEC_PER_SEC
/ HZ
);
439 set_normalized_timespec(&wall_to_monotonic
,
440 -xtime
.tv_sec
, -xtime
.tv_nsec
);
441 printk("%u/%u/%u %u:%u:%u\n",day
,mon
,year
,hour
,min
,sec
);
445 /* Now that OBP ticker has been silenced, it is safe to enable IRQ. */
449 void __init
time_init(void)
452 extern void pci_time_init(void);
453 if (pcic_present()) {
461 extern __inline__
unsigned long do_gettimeoffset(void)
463 return (*master_l10_counter
>> 10) & 0x1fffff;
467 * Returns nanoseconds
468 * XXX This is a suboptimal implementation.
470 unsigned long long sched_clock(void)
472 return (unsigned long long)jiffies
* (1000000000 / HZ
);
475 /* Ok, my cute asm atomicity trick doesn't work anymore.
476 * There are just too many variables that need to be protected
477 * now (both members of xtime, wall_jiffies, et al.)
479 void do_gettimeofday(struct timeval
*tv
)
483 unsigned long usec
, sec
;
484 unsigned long max_ntp_tick
= tick_usec
- tickadj
;
489 seq
= read_seqbegin_irqsave(&xtime_lock
, flags
);
490 usec
= do_gettimeoffset();
491 lost
= jiffies
- wall_jiffies
;
494 * If time_adjust is negative then NTP is slowing the clock
495 * so make sure not to go into next possible interval.
496 * Better to lose some accuracy than have time go backwards..
498 if (unlikely(time_adjust
< 0)) {
499 usec
= min(usec
, max_ntp_tick
);
502 usec
+= lost
* max_ntp_tick
;
504 else if (unlikely(lost
))
505 usec
+= lost
* tick_usec
;
508 usec
+= (xtime
.tv_nsec
/ 1000);
509 } while (read_seqretry_irqrestore(&xtime_lock
, seq
, flags
));
511 while (usec
>= 1000000) {
520 EXPORT_SYMBOL(do_gettimeofday
);
522 int do_settimeofday(struct timespec
*tv
)
526 write_seqlock_irq(&xtime_lock
);
527 ret
= bus_do_settimeofday(tv
);
528 write_sequnlock_irq(&xtime_lock
);
533 EXPORT_SYMBOL(do_settimeofday
);
535 static int sbus_do_settimeofday(struct timespec
*tv
)
537 time_t wtm_sec
, sec
= tv
->tv_sec
;
538 long wtm_nsec
, nsec
= tv
->tv_nsec
;
540 if ((unsigned long)tv
->tv_nsec
>= NSEC_PER_SEC
)
544 * This is revolting. We need to set "xtime" correctly. However, the
545 * value in this location is the value at the most recent update of
546 * wall time. Discover what correction gettimeofday() would have
547 * made, and then undo it!
549 nsec
-= 1000 * (do_gettimeoffset() +
550 (jiffies
- wall_jiffies
) * (USEC_PER_SEC
/ HZ
));
552 wtm_sec
= wall_to_monotonic
.tv_sec
+ (xtime
.tv_sec
- sec
);
553 wtm_nsec
= wall_to_monotonic
.tv_nsec
+ (xtime
.tv_nsec
- nsec
);
555 set_normalized_timespec(&xtime
, sec
, nsec
);
556 set_normalized_timespec(&wall_to_monotonic
, wtm_sec
, wtm_nsec
);
558 time_adjust
= 0; /* stop active adjtime() */
559 time_status
|= STA_UNSYNC
;
560 time_maxerror
= NTP_PHASE_LIMIT
;
561 time_esterror
= NTP_PHASE_LIMIT
;
566 * BUG: This routine does not handle hour overflow properly; it just
567 * sets the minutes. Usually you won't notice until after reboot!
569 static int set_rtc_mmss(unsigned long nowtime
)
571 int real_seconds
, real_minutes
, mostek_minutes
;
572 struct mostek48t02
*regs
= (struct mostek48t02
*)mstk48t02_regs
;
575 struct intersil
*iregs
= intersil_clock
;
579 /* Not having a register set can lead to trouble. */
585 temp
= iregs
->clk
.int_csec
;
587 mostek_minutes
= iregs
->clk
.int_min
;
589 real_seconds
= nowtime
% 60;
590 real_minutes
= nowtime
/ 60;
591 if (((abs(real_minutes
- mostek_minutes
) + 15)/30) & 1)
592 real_minutes
+= 30; /* correct for half hour time zone */
595 if (abs(real_minutes
- mostek_minutes
) < 30) {
596 intersil_stop(iregs
);
597 iregs
->clk
.int_sec
=real_seconds
;
598 iregs
->clk
.int_min
=real_minutes
;
599 intersil_start(iregs
);
602 "set_rtc_mmss: can't update from %d to %d\n",
603 mostek_minutes
, real_minutes
);
612 spin_lock_irqsave(&mostek_lock
, flags
);
613 /* Read the current RTC minutes. */
614 regs
->creg
|= MSTK_CREG_READ
;
615 mostek_minutes
= MSTK_REG_MIN(regs
);
616 regs
->creg
&= ~MSTK_CREG_READ
;
619 * since we're only adjusting minutes and seconds,
620 * don't interfere with hour overflow. This avoids
621 * messing with unknown time zones but requires your
622 * RTC not to be off by more than 15 minutes
624 real_seconds
= nowtime
% 60;
625 real_minutes
= nowtime
/ 60;
626 if (((abs(real_minutes
- mostek_minutes
) + 15)/30) & 1)
627 real_minutes
+= 30; /* correct for half hour time zone */
630 if (abs(real_minutes
- mostek_minutes
) < 30) {
631 regs
->creg
|= MSTK_CREG_WRITE
;
632 MSTK_SET_REG_SEC(regs
,real_seconds
);
633 MSTK_SET_REG_MIN(regs
,real_minutes
);
634 regs
->creg
&= ~MSTK_CREG_WRITE
;
635 spin_unlock_irqrestore(&mostek_lock
, flags
);
638 spin_unlock_irqrestore(&mostek_lock
, flags
);