2 * linux/arch/m68k/kernel/time.c
4 * Copyright (C) 1991, 1992, 1995 Linus Torvalds
6 * This file contains the m68k-specific time handling details.
7 * Most of the stuff is located in the machine specific files.
9 * 1997-09-10 Updated NTP code according to technical memorandum Jan '96
10 * "A Kernel Model for Precision Timekeeping" by Dave Mills
13 #include <linux/config.h> /* CONFIG_HEARTBEAT */
14 #include <linux/errno.h>
15 #include <linux/module.h>
16 #include <linux/sched.h>
17 #include <linux/kernel.h>
18 #include <linux/param.h>
19 #include <linux/string.h>
21 #include <linux/rtc.h>
23 #include <asm/machdep.h>
26 #include <linux/time.h>
27 #include <linux/timex.h>
28 #include <linux/profile.h>
30 u64 jiffies_64 = INITIAL_JIFFIES;
32 EXPORT_SYMBOL(jiffies_64);
34 static inline int set_rtc_mmss(unsigned long nowtime)
36 if (mach_set_clock_mmss)
37 return mach_set_clock_mmss (nowtime);
41 static inline void do_profile (unsigned long pc)
43 if (prof_buffer && current->pid) {
45 pc -= (unsigned long) &_stext;
51 * Don't ignore out-of-bounds PC values silently,
52 * put them into the last histogram slot, so if
53 * present, they will show up as a sharp peak.
55 ++prof_buffer[prof_len-1];
60 * timer_interrupt() needs to keep up the real-time clock,
61 * as well as call the "do_timer()" routine every clocktick
63 static irqreturn_t timer_interrupt(int irq, void *dummy, struct pt_regs * regs)
70 #ifdef CONFIG_HEARTBEAT
71 /* use power LED as a heartbeat instead -- much more useful
72 for debugging -- based on the version for PReP by Cort */
73 /* acts like an actual heart beat -- ie thump-thump-pause... */
75 static unsigned cnt = 0, period = 0, dist = 0;
77 if (cnt == 0 || cnt == dist)
79 else if (cnt == 7 || cnt == dist+7)
84 /* The hyperbolic function below modifies the heartbeat period
85 * length in dependency of the current (5min) load. It goes
86 * through the points f(0)=126, f(1)=86, f(5)=51,
88 period = ((672<<FSHIFT)/(5*avenrun[0]+(7<<FSHIFT))) + 30;
92 #endif /* CONFIG_HEARTBEAT */
101 mach_hwclk(0, &time);
103 if ((time.tm_year += 1900) < 1970)
105 xtime.tv_sec = mktime(time.tm_year, time.tm_mon, time.tm_mday,
106 time.tm_hour, time.tm_min, time.tm_sec);
109 wall_to_monotonic.tv_sec = -xtime.tv_sec;
111 mach_sched_init(timer_interrupt);
115 * This version of gettimeofday has near microsecond resolution.
117 void do_gettimeofday(struct timeval *tv)
120 extern unsigned long wall_jiffies;
122 unsigned long usec, sec, lost;
125 seq = read_seqbegin_irqsave(&xtime_lock, flags);
127 usec = mach_gettimeoffset();
128 lost = jiffies - wall_jiffies;
130 usec += lost * (1000000/HZ);
132 usec += xtime.tv_nsec/1000;
133 } while (read_seqretry_irqrestore(&xtime_lock, seq, flags));
136 while (usec >= 1000000) {
145 EXPORT_SYMBOL(do_gettimeofday);
147 int do_settimeofday(struct timespec *tv)
149 time_t wtm_sec, sec = tv->tv_sec;
150 long wtm_nsec, nsec = tv->tv_nsec;
151 extern unsigned long wall_jiffies;
153 if ((unsigned long)tv->tv_nsec >= NSEC_PER_SEC)
156 write_seqlock_irq(&xtime_lock);
157 /* This is revolting. We need to set the xtime.tv_nsec
158 * correctly. However, the value in this location is
159 * is value at the last tick.
160 * Discover what correction gettimeofday
161 * would have done, and then undo it!
163 nsec -= 1000 * (mach_gettimeoffset() +
164 (jiffies - wall_jiffies) * (1000000 / HZ));
166 wtm_sec = wall_to_monotonic.tv_sec + (xtime.tv_sec - sec);
167 wtm_nsec = wall_to_monotonic.tv_nsec + (xtime.tv_nsec - nsec);
169 set_normalized_timespec(&xtime, sec, nsec);
170 set_normalized_timespec(&wall_to_monotonic, wtm_sec, wtm_nsec);
172 time_adjust = 0; /* stop active adjtime() */
173 time_status |= STA_UNSYNC;
174 time_maxerror = NTP_PHASE_LIMIT;
175 time_esterror = NTP_PHASE_LIMIT;
176 write_sequnlock_irq(&xtime_lock);
180 EXPORT_SYMBOL(do_settimeofday);
183 * Scheduler clock - returns current time in ns units.
185 unsigned long long sched_clock(void)
187 return (unsigned long long)jiffies*(1000000000/HZ);