arch/i386/kernel/time.c

   1 /*
   2  *  linux/arch/i386/kernel/time.c
   3  *
   4  *  Copyright (C) 1991, 1992, 1995  Linus Torvalds
   5  *
   6  * This file contains the PC-specific time handling details:
   7  * reading the RTC at bootup, etc..
   8  * 1994-07-02    Alan Modra
   9  *      fixed set_rtc_mmss, fixed time.year for >= 2000, new mktime
  10  * 1995-03-26    Markus Kuhn
  11  *      fixed 500 ms bug at call to set_rtc_mmss, fixed DS12887
  12  *      precision CMOS clock update
  13  * 1996-05-03    Ingo Molnar
  14  *      fixed time warps in do_[slow|fast]_gettimeoffset()
  15  * 1997-09-10   Updated NTP code according to technical memorandum Jan '96
  16  *              "A Kernel Model for Precision Timekeeping" by Dave Mills
  17  * 1998-09-05    (Various)
  18  *      More robust do_fast_gettimeoffset() algorithm implemented
  19  *      (works with APM, Cyrix 6x86MX and Centaur C6),
  20  *      monotonic gettimeofday() with fast_get_timeoffset(),
  21  *      drift-proof precision TSC calibration on boot
  22  *      (C. Scott Ananian <cananian@alumni.princeton.edu>, Andrew D.
  23  *      Balsa <andrebalsa@altern.org>, Philip Gladstone <philip@raptor.com>;
  24  *      ported from 2.0.35 Jumbo-9 by Michael Krause <m.krause@tu-harburg.de>).
  25  * 1998-12-16    Andrea Arcangeli
  26  *      Fixed Jumbo-9 code in 2.1.131: do_gettimeofday was missing 1 jiffy
  27  *      because was not accounting lost_ticks.
  28  * 1998-12-24 Copyright (C) 1998  Andrea Arcangeli
  29  *      Fixed a xtime SMP race (we need the xtime_lock rw spinlock to
  30  *      serialize accesses to xtime/lost_ticks).
  31  */
  32
  33 #include <linux/errno.h>
  34 #include <linux/sched.h>
  35 #include <linux/kernel.h>
  36 #include <linux/param.h>
  37 #include <linux/string.h>
  38 #include <linux/mm.h>
  39 #include <linux/interrupt.h>
  40 #include <linux/time.h>
  41 #include <linux/delay.h>
  42 #include <linux/init.h>
  43 #include <linux/smp.h>
  44 #include <linux/module.h>
  45 #include <linux/sysdev.h>
  46 #include <linux/bcd.h>
  47 #include <linux/efi.h>
  48 #include <linux/mca.h>
  49
  50 #include <asm/io.h>
  51 #include <asm/smp.h>
  52 #include <asm/irq.h>
  53 #include <asm/msr.h>
  54 #include <asm/delay.h>
  55 #include <asm/mpspec.h>
  56 #include <asm/uaccess.h>
  57 #include <asm/processor.h>
  58 #include <asm/timer.h>
  59 #include <asm/time.h>
  60
  61 #include "mach_time.h"
  62
  63 #include <linux/timex.h>
  64
  65 #include <asm/hpet.h>
  66
  67 #include <asm/arch_hooks.h>
  68
  69 #include "io_ports.h"
  70
  71 #include <asm/i8259.h>
  72
  73 int pit_latch_buggy;              /* extern */
  74
  75 #include "do_timer.h"
  76
  77 unsigned int cpu_khz;   /* Detected as we calibrate the TSC */
  78 EXPORT_SYMBOL(cpu_khz);
  79
  80 DEFINE_SPINLOCK(rtc_lock);
  81 EXPORT_SYMBOL(rtc_lock);
  82
  83 /*
  84  * This is a special lock that is owned by the CPU and holds the index
  85  * register we are working with.  It is required for NMI access to the
  86  * CMOS/RTC registers.  See include/asm-i386/mc146818rtc.h for details.
  87  */
  88 volatile unsigned long cmos_lock = 0;
  89 EXPORT_SYMBOL(cmos_lock);
  90
  91 /* Routines for accessing the CMOS RAM/RTC. */
  92 unsigned char rtc_cmos_read(unsigned char addr)
  93 {
  94         unsigned char val;
  95         lock_cmos_prefix(addr);
  96         outb_p(addr, RTC_PORT(0));
  97         val = inb_p(RTC_PORT(1));
  98         lock_cmos_suffix(addr);
  99         return val;
 100 }
 101 EXPORT_SYMBOL(rtc_cmos_read);
 102
 103 void rtc_cmos_write(unsigned char val, unsigned char addr)
 104 {
 105         lock_cmos_prefix(addr);
 106         outb_p(addr, RTC_PORT(0));
 107         outb_p(val, RTC_PORT(1));
 108         lock_cmos_suffix(addr);
 109 }
 110 EXPORT_SYMBOL(rtc_cmos_write);
 111
 112 static int set_rtc_mmss(unsigned long nowtime)
 113 {
 114         int retval;
 115         unsigned long flags;
 116
 117         /* gets recalled with irq locally disabled */
 118         /* XXX - does irqsave resolve this? -johnstul */
 119         spin_lock_irqsave(&rtc_lock, flags);
 120         retval = set_wallclock(nowtime);
 121         spin_unlock_irqrestore(&rtc_lock, flags);
 122
 123         return retval;
 124 }
 125
 126
 127 int timer_ack;
 128
 129 unsigned long profile_pc(struct pt_regs *regs)
 130 {
 131         unsigned long pc = instruction_pointer(regs);
 132
 133 #ifdef CONFIG_SMP
 134         if (!v8086_mode(regs) && SEGMENT_IS_KERNEL_CODE(regs->xcs) &&
 135             in_lock_functions(pc)) {
 136 #ifdef CONFIG_FRAME_POINTER
 137                 return *(unsigned long *)(regs->ebp + 4);
 138 #else
 139                 unsigned long *sp = (unsigned long *)&regs->esp;
 140
 141                 /* Return address is either directly at stack pointer
 142                    or above a saved eflags. Eflags has bits 22-31 zero,
 143                    kernel addresses don't. */
 144                 if (sp[0] >> 22)
 145                         return sp[0];
 146                 if (sp[1] >> 22)
 147                         return sp[1];
 148 #endif
 149         }
 150 #endif
 151         return pc;
 152 }
 153 EXPORT_SYMBOL(profile_pc);
 154
 155 /*
 156  * This is the same as the above, except we _also_ save the current
 157  * Time Stamp Counter value at the time of the timer interrupt, so that
 158  * we later on can estimate the time of day more exactly.
 159  */
 160 irqreturn_t timer_interrupt(int irq, void *dev_id)
 161 {
 162 #ifdef CONFIG_X86_IO_APIC
 163         if (timer_ack) {
 164                 /*
 165                  * Subtle, when I/O APICs are used we have to ack timer IRQ
 166                  * manually to reset the IRR bit for do_slow_gettimeoffset().
 167                  * This will also deassert NMI lines for the watchdog if run
 168                  * on an 82489DX-based system.
 169                  */
 170                 spin_lock(&i8259A_lock);
 171                 outb(0x0c, PIC_MASTER_OCW3);
 172                 /* Ack the IRQ; AEOI will end it automatically. */
 173                 inb(PIC_MASTER_POLL);
 174                 spin_unlock(&i8259A_lock);
 175         }
 176 #endif
 177
 178         do_timer_interrupt_hook();
 179
 180         if (MCA_bus) {
 181                 /* The PS/2 uses level-triggered interrupts.  You can't
 182                 turn them off, nor would you want to (any attempt to
 183                 enable edge-triggered interrupts usually gets intercepted by a
 184                 special hardware circuit).  Hence we have to acknowledge
 185                 the timer interrupt.  Through some incredibly stupid
 186                 design idea, the reset for IRQ 0 is done by setting the
 187                 high bit of the PPI port B (0x61).  Note that some PS/2s,
 188                 notably the 55SX, work fine if this is removed.  */
 189
 190                 u8 irq_v = inb_p( 0x61 );       /* read the current state */
 191                 outb_p( irq_v|0x80, 0x61 );     /* reset the IRQ */
 192         }
 193
 194         return IRQ_HANDLED;
 195 }
 196
 197 /* not static: needed by APM */
 198 unsigned long read_persistent_clock(void)
 199 {
 200         unsigned long retval;
 201         unsigned long flags;
 202
 203         spin_lock_irqsave(&rtc_lock, flags);
 204
 205         retval = get_wallclock();
 206
 207         spin_unlock_irqrestore(&rtc_lock, flags);
 208
 209         return retval;
 210 }
 211
 212 static void sync_cmos_clock(unsigned long dummy);
 213
 214 static DEFINE_TIMER(sync_cmos_timer, sync_cmos_clock, 0, 0);
 215 int no_sync_cmos_clock;
 216
 217 static void sync_cmos_clock(unsigned long dummy)
 218 {
 219         struct timeval now, next;
 220         int fail = 1;
 221
 222         /*
 223          * If we have an externally synchronized Linux clock, then update
 224          * CMOS clock accordingly every ~11 minutes. Set_rtc_mmss() has to be
 225          * called as close as possible to 500 ms before the new second starts.
 226          * This code is run on a timer.  If the clock is set, that timer
 227          * may not expire at the correct time.  Thus, we adjust...
 228          */
 229         if (!ntp_synced())
 230                 /*
 231                  * Not synced, exit, do not restart a timer (if one is
 232                  * running, let it run out).
 233                  */
 234                 return;
 235
 236         do_gettimeofday(&now);
 237         if (now.tv_usec >= USEC_AFTER - ((unsigned) TICK_SIZE) / 2 &&
 238             now.tv_usec <= USEC_BEFORE + ((unsigned) TICK_SIZE) / 2)
 239                 fail = set_rtc_mmss(now.tv_sec);
 240
 241         next.tv_usec = USEC_AFTER - now.tv_usec;
 242         if (next.tv_usec <= 0)
 243                 next.tv_usec += USEC_PER_SEC;
 244
 245         if (!fail)
 246                 next.tv_sec = 659;
 247         else
 248                 next.tv_sec = 0;
 249
 250         if (next.tv_usec >= USEC_PER_SEC) {
 251                 next.tv_sec++;
 252                 next.tv_usec -= USEC_PER_SEC;
 253         }
 254         mod_timer(&sync_cmos_timer, jiffies + timeval_to_jiffies(&next));
 255 }
 256
 257 void notify_arch_cmos_timer(void)
 258 {
 259         if (!no_sync_cmos_clock)
 260                 mod_timer(&sync_cmos_timer, jiffies + 1);
 261 }
 262
 263 extern void (*late_time_init)(void);
 264 /* Duplicate of time_init() below, with hpet_enable part added */
 265 static void __init hpet_time_init(void)
 266 {
 267         if (!hpet_enable())
 268                 setup_pit_timer();
 269         do_time_init();
 270 }
 271
 272 void __init time_init(void)
 273 {
 274         late_time_init = hpet_time_init;
 275 }