1 // SPDX-License-Identifier: GPL-2.0+
2 /*
3 * Industrial Computer Source WDT501 driver
4 *
5 * (c) Copyright 1996-1997 Alan Cox <alan@lxorguk.ukuu.org.uk>,
6 * All Rights Reserved.
7 *
8 * Neither Alan Cox nor CymruNet Ltd. admit liability nor provide
9 * warranty for any of this software. This material is provided
10 * "AS-IS" and at no charge.
11 *
12 * (c) Copyright 1995 Alan Cox <alan@lxorguk.ukuu.org.uk>
13 *
14 * Release 0.10.
15 *
16 * Fixes
17 * Dave Gregorich : Modularisation and minor bugs
18 * Alan Cox : Added the watchdog ioctl() stuff
19 * Alan Cox : Fixed the reboot problem (as noted by
20 * Matt Crocker).
21 * Alan Cox : Added wdt= boot option
22 * Alan Cox : Cleaned up copy/user stuff
23 * Tim Hockin : Added insmod parameters, comment
24 * cleanup, parameterized timeout
25 * Tigran Aivazian : Restructured wdt_init() to handle
26 * failures
27 * Joel Becker : Added WDIOC_GET/SETTIMEOUT
28 * Matt Domsch : Added nowayout module option
29 */
30
31 #define pr_fmt(fmt) KBUILD_MODNAME ": " fmt
32
33 #include <linux/interrupt.h>
34 #include <linux/module.h>
35 #include <linux/moduleparam.h>
36 #include <linux/types.h>
37 #include <linux/miscdevice.h>
38 #include <linux/watchdog.h>
39 #include <linux/fs.h>
40 #include <linux/ioport.h>
41 #include <linux/notifier.h>
42 #include <linux/reboot.h>
43 #include <linux/init.h>
44 #include <linux/io.h>
45 #include <linux/uaccess.h>
46
47 #include "wd501p.h"
48
49 static unsigned long wdt_is_open;
50 static char expect_close;
51
52 /*
53 * Module parameters
54 */
55
56 #define WD_TIMO 60 /* Default heartbeat = 60 seconds */
57
58 static int heartbeat = WD_TIMO;
59 static int wd_heartbeat;
60 module_param(heartbeat, int, 0);
61 MODULE_PARM_DESC(heartbeat,
62 "Watchdog heartbeat in seconds. (0 < heartbeat < 65536, default="
63 __MODULE_STRING(WD_TIMO) ")");
64
65 static bool nowayout = WATCHDOG_NOWAYOUT;
66 module_param(nowayout, bool, 0);
67 MODULE_PARM_DESC(nowayout,
68 "Watchdog cannot be stopped once started (default="
69 __MODULE_STRING(WATCHDOG_NOWAYOUT) ")");
70
71 /* You must set these - there is no sane way to probe for this board. */
72 static int io = 0x240;
73 static int irq = 11;
74
75 static DEFINE_SPINLOCK(wdt_lock);
76
77 module_param_hw(io, int, ioport, 0);
78 MODULE_PARM_DESC(io, "WDT io port (default=0x240)");
79 module_param_hw(irq, int, irq, 0);
80 MODULE_PARM_DESC(irq, "WDT irq (default=11)");
81
82 /* Support for the Fan Tachometer on the WDT501-P */
83 static int tachometer;
84 module_param(tachometer, int, 0);
85 MODULE_PARM_DESC(tachometer,
86 "WDT501-P Fan Tachometer support (0=disable, default=0)");
87
88 static int type = 500;
89 module_param(type, int, 0);
90 MODULE_PARM_DESC(type,
91 "WDT501-P Card type (500 or 501, default=500)");
92
93 /*
94 * Programming support
95 */
96
wdt_ctr_mode(int ctr,int mode)97 static void wdt_ctr_mode(int ctr, int mode)
98 {
99 ctr <<= 6;
100 ctr |= 0x30;
101 ctr |= (mode << 1);
102 outb_p(ctr, WDT_CR);
103 }
104
wdt_ctr_load(int ctr,int val)105 static void wdt_ctr_load(int ctr, int val)
106 {
107 outb_p(val&0xFF, WDT_COUNT0+ctr);
108 outb_p(val>>8, WDT_COUNT0+ctr);
109 }
110
111 /**
112 * wdt_start:
113 *
114 * Start the watchdog driver.
115 */
116
wdt_start(void)117 static int wdt_start(void)
118 {
119 unsigned long flags;
120 spin_lock_irqsave(&wdt_lock, flags);
121 inb_p(WDT_DC); /* Disable watchdog */
122 wdt_ctr_mode(0, 3); /* Program CTR0 for Mode 3:
123 Square Wave Generator */
124 wdt_ctr_mode(1, 2); /* Program CTR1 for Mode 2:
125 Rate Generator */
126 wdt_ctr_mode(2, 0); /* Program CTR2 for Mode 0:
127 Pulse on Terminal Count */
128 wdt_ctr_load(0, 8948); /* Count at 100Hz */
129 wdt_ctr_load(1, wd_heartbeat); /* Heartbeat */
130 wdt_ctr_load(2, 65535); /* Length of reset pulse */
131 outb_p(0, WDT_DC); /* Enable watchdog */
132 spin_unlock_irqrestore(&wdt_lock, flags);
133 return 0;
134 }
135
136 /**
137 * wdt_stop:
138 *
139 * Stop the watchdog driver.
140 */
141
wdt_stop(void)142 static int wdt_stop(void)
143 {
144 unsigned long flags;
145 spin_lock_irqsave(&wdt_lock, flags);
146 /* Turn the card off */
147 inb_p(WDT_DC); /* Disable watchdog */
148 wdt_ctr_load(2, 0); /* 0 length reset pulses now */
149 spin_unlock_irqrestore(&wdt_lock, flags);
150 return 0;
151 }
152
153 /**
154 * wdt_ping:
155 *
156 * Reload counter one with the watchdog heartbeat. We don't bother
157 * reloading the cascade counter.
158 */
159
wdt_ping(void)160 static void wdt_ping(void)
161 {
162 unsigned long flags;
163 spin_lock_irqsave(&wdt_lock, flags);
164 /* Write a watchdog value */
165 inb_p(WDT_DC); /* Disable watchdog */
166 wdt_ctr_mode(1, 2); /* Re-Program CTR1 for Mode 2:
167 Rate Generator */
168 wdt_ctr_load(1, wd_heartbeat); /* Heartbeat */
169 outb_p(0, WDT_DC); /* Enable watchdog */
170 spin_unlock_irqrestore(&wdt_lock, flags);
171 }
172
173 /**
174 * wdt_set_heartbeat:
175 * @t: the new heartbeat value that needs to be set.
176 *
177 * Set a new heartbeat value for the watchdog device. If the heartbeat
178 * value is incorrect we keep the old value and return -EINVAL. If
179 * successful we return 0.
180 */
181
wdt_set_heartbeat(int t)182 static int wdt_set_heartbeat(int t)
183 {
184 if (t < 1 || t > 65535)
185 return -EINVAL;
186
187 heartbeat = t;
188 wd_heartbeat = t * 100;
189 return 0;
190 }
191
192 /**
193 * wdt_get_status:
194 *
195 * Extract the status information from a WDT watchdog device. There are
196 * several board variants so we have to know which bits are valid. Some
197 * bits default to one and some to zero in order to be maximally painful.
198 *
199 * we then map the bits onto the status ioctl flags.
200 */
201
wdt_get_status(void)202 static int wdt_get_status(void)
203 {
204 unsigned char new_status;
205 int status = 0;
206 unsigned long flags;
207
208 spin_lock_irqsave(&wdt_lock, flags);
209 new_status = inb_p(WDT_SR);
210 spin_unlock_irqrestore(&wdt_lock, flags);
211
212 if (new_status & WDC_SR_ISOI0)
213 status |= WDIOF_EXTERN1;
214 if (new_status & WDC_SR_ISII1)
215 status |= WDIOF_EXTERN2;
216 if (type == 501) {
217 if (!(new_status & WDC_SR_TGOOD))
218 status |= WDIOF_OVERHEAT;
219 if (!(new_status & WDC_SR_PSUOVER))
220 status |= WDIOF_POWEROVER;
221 if (!(new_status & WDC_SR_PSUUNDR))
222 status |= WDIOF_POWERUNDER;
223 if (tachometer) {
224 if (!(new_status & WDC_SR_FANGOOD))
225 status |= WDIOF_FANFAULT;
226 }
227 }
228 return status;
229 }
230
231 /**
232 * wdt_get_temperature:
233 *
234 * Reports the temperature in degrees Fahrenheit. The API is in
235 * farenheit. It was designed by an imperial measurement luddite.
236 */
237
wdt_get_temperature(void)238 static int wdt_get_temperature(void)
239 {
240 unsigned short c;
241 unsigned long flags;
242
243 spin_lock_irqsave(&wdt_lock, flags);
244 c = inb_p(WDT_RT);
245 spin_unlock_irqrestore(&wdt_lock, flags);
246 return (c * 11 / 15) + 7;
247 }
248
wdt_decode_501(int status)249 static void wdt_decode_501(int status)
250 {
251 if (!(status & WDC_SR_TGOOD))
252 pr_crit("Overheat alarm (%d)\n", inb_p(WDT_RT));
253 if (!(status & WDC_SR_PSUOVER))
254 pr_crit("PSU over voltage\n");
255 if (!(status & WDC_SR_PSUUNDR))
256 pr_crit("PSU under voltage\n");
257 }
258
259 /**
260 * wdt_interrupt:
261 * @irq: Interrupt number
262 * @dev_id: Unused as we don't allow multiple devices.
263 *
264 * Handle an interrupt from the board. These are raised when the status
265 * map changes in what the board considers an interesting way. That means
266 * a failure condition occurring.
267 */
268
wdt_interrupt(int irq,void * dev_id)269 static irqreturn_t wdt_interrupt(int irq, void *dev_id)
270 {
271 /*
272 * Read the status register see what is up and
273 * then printk it.
274 */
275 unsigned char status;
276
277 spin_lock(&wdt_lock);
278 status = inb_p(WDT_SR);
279
280 pr_crit("WDT status %d\n", status);
281
282 if (type == 501) {
283 wdt_decode_501(status);
284 if (tachometer) {
285 if (!(status & WDC_SR_FANGOOD))
286 pr_crit("Possible fan fault\n");
287 }
288 }
289 if (!(status & WDC_SR_WCCR)) {
290 #ifdef SOFTWARE_REBOOT
291 #ifdef ONLY_TESTING
292 pr_crit("Would Reboot\n");
293 #else
294 pr_crit("Initiating system reboot\n");
295 emergency_restart();
296 #endif
297 #else
298 pr_crit("Reset in 5ms\n");
299 #endif
300 }
301 spin_unlock(&wdt_lock);
302 return IRQ_HANDLED;
303 }
304
305
306 /**
307 * wdt_write:
308 * @file: file handle to the watchdog
309 * @buf: buffer to write (unused as data does not matter here
310 * @count: count of bytes
311 * @ppos: pointer to the position to write. No seeks allowed
312 *
313 * A write to a watchdog device is defined as a keepalive signal. Any
314 * write of data will do, as we we don't define content meaning.
315 */
316
wdt_write(struct file * file,const char __user * buf,size_t count,loff_t * ppos)317 static ssize_t wdt_write(struct file *file, const char __user *buf,
318 size_t count, loff_t *ppos)
319 {
320 if (count) {
321 if (!nowayout) {
322 size_t i;
323
324 /* In case it was set long ago */
325 expect_close = 0;
326
327 for (i = 0; i != count; i++) {
328 char c;
329 if (get_user(c, buf + i))
330 return -EFAULT;
331 if (c == 'V')
332 expect_close = 42;
333 }
334 }
335 wdt_ping();
336 }
337 return count;
338 }
339
340 /**
341 * wdt_ioctl:
342 * @file: file handle to the device
343 * @cmd: watchdog command
344 * @arg: argument pointer
345 *
346 * The watchdog API defines a common set of functions for all watchdogs
347 * according to their available features. We only actually usefully support
348 * querying capabilities and current status.
349 */
350
wdt_ioctl(struct file * file,unsigned int cmd,unsigned long arg)351 static long wdt_ioctl(struct file *file, unsigned int cmd, unsigned long arg)
352 {
353 void __user *argp = (void __user *)arg;
354 int __user *p = argp;
355 int new_heartbeat;
356 int status;
357
358 struct watchdog_info ident = {
359 .options = WDIOF_SETTIMEOUT|
360 WDIOF_MAGICCLOSE|
361 WDIOF_KEEPALIVEPING,
362 .firmware_version = 1,
363 .identity = "WDT500/501",
364 };
365
366 /* Add options according to the card we have */
367 ident.options |= (WDIOF_EXTERN1|WDIOF_EXTERN2);
368 if (type == 501) {
369 ident.options |= (WDIOF_OVERHEAT|WDIOF_POWERUNDER|
370 WDIOF_POWEROVER);
371 if (tachometer)
372 ident.options |= WDIOF_FANFAULT;
373 }
374
375 switch (cmd) {
376 case WDIOC_GETSUPPORT:
377 return copy_to_user(argp, &ident, sizeof(ident)) ? -EFAULT : 0;
378 case WDIOC_GETSTATUS:
379 status = wdt_get_status();
380 return put_user(status, p);
381 case WDIOC_GETBOOTSTATUS:
382 return put_user(0, p);
383 case WDIOC_KEEPALIVE:
384 wdt_ping();
385 return 0;
386 case WDIOC_SETTIMEOUT:
387 if (get_user(new_heartbeat, p))
388 return -EFAULT;
389 if (wdt_set_heartbeat(new_heartbeat))
390 return -EINVAL;
391 wdt_ping();
392 fallthrough;
393 case WDIOC_GETTIMEOUT:
394 return put_user(heartbeat, p);
395 default:
396 return -ENOTTY;
397 }
398 }
399
400 /**
401 * wdt_open:
402 * @inode: inode of device
403 * @file: file handle to device
404 *
405 * The watchdog device has been opened. The watchdog device is single
406 * open and on opening we load the counters. Counter zero is a 100Hz
407 * cascade, into counter 1 which downcounts to reboot. When the counter
408 * triggers counter 2 downcounts the length of the reset pulse which
409 * set set to be as long as possible.
410 */
411
wdt_open(struct inode * inode,struct file * file)412 static int wdt_open(struct inode *inode, struct file *file)
413 {
414 if (test_and_set_bit(0, &wdt_is_open))
415 return -EBUSY;
416 /*
417 * Activate
418 */
419 wdt_start();
420 return stream_open(inode, file);
421 }
422
423 /**
424 * wdt_release:
425 * @inode: inode to board
426 * @file: file handle to board
427 *
428 * The watchdog has a configurable API. There is a religious dispute
429 * between people who want their watchdog to be able to shut down and
430 * those who want to be sure if the watchdog manager dies the machine
431 * reboots. In the former case we disable the counters, in the latter
432 * case you have to open it again very soon.
433 */
434
wdt_release(struct inode * inode,struct file * file)435 static int wdt_release(struct inode *inode, struct file *file)
436 {
437 if (expect_close == 42) {
438 wdt_stop();
439 clear_bit(0, &wdt_is_open);
440 } else {
441 pr_crit("WDT device closed unexpectedly. WDT will not stop!\n");
442 wdt_ping();
443 }
444 expect_close = 0;
445 return 0;
446 }
447
448 /**
449 * wdt_temp_read:
450 * @file: file handle to the watchdog board
451 * @buf: buffer to write 1 byte into
452 * @count: length of buffer
453 * @ptr: offset (no seek allowed)
454 *
455 * Temp_read reports the temperature in degrees Fahrenheit. The API is in
456 * farenheit. It was designed by an imperial measurement luddite.
457 */
458
wdt_temp_read(struct file * file,char __user * buf,size_t count,loff_t * ptr)459 static ssize_t wdt_temp_read(struct file *file, char __user *buf,
460 size_t count, loff_t *ptr)
461 {
462 int temperature = wdt_get_temperature();
463
464 if (copy_to_user(buf, &temperature, 1))
465 return -EFAULT;
466
467 return 1;
468 }
469
470 /**
471 * wdt_temp_open:
472 * @inode: inode of device
473 * @file: file handle to device
474 *
475 * The temperature device has been opened.
476 */
477
wdt_temp_open(struct inode * inode,struct file * file)478 static int wdt_temp_open(struct inode *inode, struct file *file)
479 {
480 return stream_open(inode, file);
481 }
482
483 /**
484 * wdt_temp_release:
485 * @inode: inode to board
486 * @file: file handle to board
487 *
488 * The temperature device has been closed.
489 */
490
wdt_temp_release(struct inode * inode,struct file * file)491 static int wdt_temp_release(struct inode *inode, struct file *file)
492 {
493 return 0;
494 }
495
496 /**
497 * wdt_notify_sys:
498 * @this: our notifier block
499 * @code: the event being reported
500 * @unused: unused
501 *
502 * Our notifier is called on system shutdowns. We want to turn the card
503 * off at reboot otherwise the machine will reboot again during memory
504 * test or worse yet during the following fsck. This would suck, in fact
505 * trust me - if it happens it does suck.
506 */
507
wdt_notify_sys(struct notifier_block * this,unsigned long code,void * unused)508 static int wdt_notify_sys(struct notifier_block *this, unsigned long code,
509 void *unused)
510 {
511 if (code == SYS_DOWN || code == SYS_HALT)
512 wdt_stop();
513 return NOTIFY_DONE;
514 }
515
516 /*
517 * Kernel Interfaces
518 */
519
520
521 static const struct file_operations wdt_fops = {
522 .owner = THIS_MODULE,
523 .write = wdt_write,
524 .unlocked_ioctl = wdt_ioctl,
525 .compat_ioctl = compat_ptr_ioctl,
526 .open = wdt_open,
527 .release = wdt_release,
528 };
529
530 static struct miscdevice wdt_miscdev = {
531 .minor = WATCHDOG_MINOR,
532 .name = "watchdog",
533 .fops = &wdt_fops,
534 };
535
536 static const struct file_operations wdt_temp_fops = {
537 .owner = THIS_MODULE,
538 .read = wdt_temp_read,
539 .open = wdt_temp_open,
540 .release = wdt_temp_release,
541 };
542
543 static struct miscdevice temp_miscdev = {
544 .minor = TEMP_MINOR,
545 .name = "temperature",
546 .fops = &wdt_temp_fops,
547 };
548
549 /*
550 * The WDT card needs to learn about soft shutdowns in order to
551 * turn the timebomb registers off.
552 */
553
554 static struct notifier_block wdt_notifier = {
555 .notifier_call = wdt_notify_sys,
556 };
557
558 /**
559 * wdt_exit:
560 *
561 * Unload the watchdog. You cannot do this with any file handles open.
562 * If your watchdog is set to continue ticking on close and you unload
563 * it, well it keeps ticking. We won't get the interrupt but the board
564 * will not touch PC memory so all is fine. You just have to load a new
565 * module in 60 seconds or reboot.
566 */
567
wdt_exit(void)568 static void __exit wdt_exit(void)
569 {
570 misc_deregister(&wdt_miscdev);
571 if (type == 501)
572 misc_deregister(&temp_miscdev);
573 unregister_reboot_notifier(&wdt_notifier);
574 free_irq(irq, NULL);
575 release_region(io, 8);
576 }
577
578 /**
579 * wdt_init:
580 *
581 * Set up the WDT watchdog board. All we have to do is grab the
582 * resources we require and bitch if anyone beat us to them.
583 * The open() function will actually kick the board off.
584 */
585
wdt_init(void)586 static int __init wdt_init(void)
587 {
588 int ret;
589
590 if (type != 500 && type != 501) {
591 pr_err("unknown card type '%d'\n", type);
592 return -ENODEV;
593 }
594
595 /* Check that the heartbeat value is within it's range;
596 if not reset to the default */
597 if (wdt_set_heartbeat(heartbeat)) {
598 wdt_set_heartbeat(WD_TIMO);
599 pr_info("heartbeat value must be 0 < heartbeat < 65536, using %d\n",
600 WD_TIMO);
601 }
602
603 if (!request_region(io, 8, "wdt501p")) {
604 pr_err("I/O address 0x%04x already in use\n", io);
605 ret = -EBUSY;
606 goto out;
607 }
608
609 ret = request_irq(irq, wdt_interrupt, 0, "wdt501p", NULL);
610 if (ret) {
611 pr_err("IRQ %d is not free\n", irq);
612 goto outreg;
613 }
614
615 ret = register_reboot_notifier(&wdt_notifier);
616 if (ret) {
617 pr_err("cannot register reboot notifier (err=%d)\n", ret);
618 goto outirq;
619 }
620
621 if (type == 501) {
622 ret = misc_register(&temp_miscdev);
623 if (ret) {
624 pr_err("cannot register miscdev on minor=%d (err=%d)\n",
625 TEMP_MINOR, ret);
626 goto outrbt;
627 }
628 }
629
630 ret = misc_register(&wdt_miscdev);
631 if (ret) {
632 pr_err("cannot register miscdev on minor=%d (err=%d)\n",
633 WATCHDOG_MINOR, ret);
634 goto outmisc;
635 }
636
637 pr_info("WDT500/501-P driver 0.10 at 0x%04x (Interrupt %d). heartbeat=%d sec (nowayout=%d)\n",
638 io, irq, heartbeat, nowayout);
639 if (type == 501)
640 pr_info("Fan Tachometer is %s\n",
641 tachometer ? "Enabled" : "Disabled");
642 return 0;
643
644 outmisc:
645 if (type == 501)
646 misc_deregister(&temp_miscdev);
647 outrbt:
648 unregister_reboot_notifier(&wdt_notifier);
649 outirq:
650 free_irq(irq, NULL);
651 outreg:
652 release_region(io, 8);
653 out:
654 return ret;
655 }
656
657 module_init(wdt_init);
658 module_exit(wdt_exit);
659
660 MODULE_AUTHOR("Alan Cox");
661 MODULE_DESCRIPTION("Driver for ISA ICS watchdog cards (WDT500/501)");
662 MODULE_LICENSE("GPL");
663