xref: /openbmc/linux/arch/powerpc/platforms/44x/warp.c (revision b88d11f8) 
1 // SPDX-License-Identifier: GPL-2.0-or-later
2 /*
3  * PIKA Warp(tm) board specific routines
4  *
5  * Copyright (c) 2008-2009 PIKA Technologies
6  *   Sean MacLennan <smaclennan@pikatech.com>
7  */
8 #include <linux/init.h>
9 #include <linux/of_platform.h>
10 #include <linux/kthread.h>
11 #include <linux/i2c.h>
12 #include <linux/interrupt.h>
13 #include <linux/delay.h>
14 #include <linux/of_address.h>
15 #include <linux/of_irq.h>
16 #include <linux/of_gpio.h>
17 #include <linux/slab.h>
18 #include <linux/export.h>
19 
20 #include <asm/machdep.h>
21 #include <asm/udbg.h>
22 #include <asm/time.h>
23 #include <asm/uic.h>
24 #include <asm/ppc4xx.h>
25 #include <asm/dma.h>
26 
27 
28 static const struct of_device_id warp_of_bus[] __initconst = {
29 	{ .compatible = "ibm,plb4", },
30 	{ .compatible = "ibm,opb", },
31 	{ .compatible = "ibm,ebc", },
32 	{},
33 };
34 
35 static int __init warp_device_probe(void)
36 {
37 	of_platform_bus_probe(NULL, warp_of_bus, NULL);
38 	return 0;
39 }
40 machine_device_initcall(warp, warp_device_probe);
41 
42 static int __init warp_probe(void)
43 {
44 	if (!of_machine_is_compatible("pika,warp"))
45 		return 0;
46 
47 	return 1;
48 }
49 
50 define_machine(warp) {
51 	.name		= "Warp",
52 	.probe 		= warp_probe,
53 	.progress 	= udbg_progress,
54 	.init_IRQ 	= uic_init_tree,
55 	.get_irq 	= uic_get_irq,
56 	.restart	= ppc4xx_reset_system,
57 	.calibrate_decr = generic_calibrate_decr,
58 };
59 
60 
61 static int __init warp_post_info(void)
62 {
63 	struct device_node *np;
64 	void __iomem *fpga;
65 	u32 post1, post2;
66 
67 	/* Sighhhh... POST information is in the sd area. */
68 	np = of_find_compatible_node(NULL, NULL, "pika,fpga-sd");
69 	if (np == NULL)
70 		return -ENOENT;
71 
72 	fpga = of_iomap(np, 0);
73 	of_node_put(np);
74 	if (fpga == NULL)
75 		return -ENOENT;
76 
77 	post1 = in_be32(fpga + 0x40);
78 	post2 = in_be32(fpga + 0x44);
79 
80 	iounmap(fpga);
81 
82 	if (post1 || post2)
83 		printk(KERN_INFO "Warp POST %08x %08x\n", post1, post2);
84 	else
85 		printk(KERN_INFO "Warp POST OK\n");
86 
87 	return 0;
88 }
89 
90 
91 #ifdef CONFIG_SENSORS_AD7414
92 
93 static LIST_HEAD(dtm_shutdown_list);
94 static void __iomem *dtm_fpga;
95 static unsigned green_led, red_led;
96 
97 
98 struct dtm_shutdown {
99 	struct list_head list;
100 	void (*func)(void *arg);
101 	void *arg;
102 };
103 
104 
105 int pika_dtm_register_shutdown(void (*func)(void *arg), void *arg)
106 {
107 	struct dtm_shutdown *shutdown;
108 
109 	shutdown = kmalloc(sizeof(struct dtm_shutdown), GFP_KERNEL);
110 	if (shutdown == NULL)
111 		return -ENOMEM;
112 
113 	shutdown->func = func;
114 	shutdown->arg = arg;
115 
116 	list_add(&shutdown->list, &dtm_shutdown_list);
117 
118 	return 0;
119 }
120 
121 int pika_dtm_unregister_shutdown(void (*func)(void *arg), void *arg)
122 {
123 	struct dtm_shutdown *shutdown;
124 
125 	list_for_each_entry(shutdown, &dtm_shutdown_list, list)
126 		if (shutdown->func == func && shutdown->arg == arg) {
127 			list_del(&shutdown->list);
128 			kfree(shutdown);
129 			return 0;
130 		}
131 
132 	return -EINVAL;
133 }
134 
135 static irqreturn_t temp_isr(int irq, void *context)
136 {
137 	struct dtm_shutdown *shutdown;
138 	int value = 1;
139 
140 	local_irq_disable();
141 
142 	gpio_set_value(green_led, 0);
143 
144 	/* Run through the shutdown list. */
145 	list_for_each_entry(shutdown, &dtm_shutdown_list, list)
146 		shutdown->func(shutdown->arg);
147 
148 	printk(KERN_EMERG "\n\nCritical Temperature Shutdown\n\n");
149 
150 	while (1) {
151 		if (dtm_fpga) {
152 			unsigned reset = in_be32(dtm_fpga + 0x14);
153 			out_be32(dtm_fpga + 0x14, reset);
154 		}
155 
156 		gpio_set_value(red_led, value);
157 		value ^= 1;
158 		mdelay(500);
159 	}
160 
161 	/* Not reached */
162 	return IRQ_HANDLED;
163 }
164 
165 static int pika_setup_leds(void)
166 {
167 	struct device_node *np, *child;
168 
169 	np = of_find_compatible_node(NULL, NULL, "gpio-leds");
170 	if (!np) {
171 		printk(KERN_ERR __FILE__ ": Unable to find leds\n");
172 		return -ENOENT;
173 	}
174 
175 	for_each_child_of_node(np, child)
176 		if (of_node_name_eq(child, "green"))
177 			green_led = of_get_gpio(child, 0);
178 		else if (of_node_name_eq(child, "red"))
179 			red_led = of_get_gpio(child, 0);
180 
181 	of_node_put(np);
182 
183 	return 0;
184 }
185 
186 static void pika_setup_critical_temp(struct device_node *np,
187 				     struct i2c_client *client)
188 {
189 	int irq, rc;
190 
191 	/* Do this before enabling critical temp interrupt since we
192 	 * may immediately interrupt.
193 	 */
194 	pika_setup_leds();
195 
196 	/* These registers are in 1 degree increments. */
197 	i2c_smbus_write_byte_data(client, 2, 65); /* Thigh */
198 	i2c_smbus_write_byte_data(client, 3,  0); /* Tlow */
199 
200 	irq = irq_of_parse_and_map(np, 0);
201 	if (!irq) {
202 		printk(KERN_ERR __FILE__ ": Unable to get ad7414 irq\n");
203 		return;
204 	}
205 
206 	rc = request_irq(irq, temp_isr, 0, "ad7414", NULL);
207 	if (rc) {
208 		printk(KERN_ERR __FILE__
209 		       ": Unable to request ad7414 irq %d = %d\n", irq, rc);
210 		return;
211 	}
212 }
213 
214 static inline void pika_dtm_check_fan(void __iomem *fpga)
215 {
216 	static int fan_state;
217 	u32 fan = in_be32(fpga + 0x34) & (1 << 14);
218 
219 	if (fan_state != fan) {
220 		fan_state = fan;
221 		if (fan)
222 			printk(KERN_WARNING "Fan rotation error detected."
223 				   " Please check hardware.\n");
224 	}
225 }
226 
227 static int pika_dtm_thread(void __iomem *fpga)
228 {
229 	struct device_node *np;
230 	struct i2c_client *client;
231 
232 	np = of_find_compatible_node(NULL, NULL, "adi,ad7414");
233 	if (np == NULL)
234 		return -ENOENT;
235 
236 	client = of_find_i2c_device_by_node(np);
237 	if (client == NULL) {
238 		of_node_put(np);
239 		return -ENOENT;
240 	}
241 
242 	pika_setup_critical_temp(np, client);
243 
244 	of_node_put(np);
245 
246 	printk(KERN_INFO "Warp DTM thread running.\n");
247 
248 	while (!kthread_should_stop()) {
249 		int val;
250 
251 		val = i2c_smbus_read_word_data(client, 0);
252 		if (val < 0)
253 			dev_dbg(&client->dev, "DTM read temp failed.\n");
254 		else {
255 			s16 temp = swab16(val);
256 			out_be32(fpga + 0x20, temp);
257 		}
258 
259 		pika_dtm_check_fan(fpga);
260 
261 		set_current_state(TASK_INTERRUPTIBLE);
262 		schedule_timeout(HZ);
263 	}
264 
265 	return 0;
266 }
267 
268 static int __init pika_dtm_start(void)
269 {
270 	struct task_struct *dtm_thread;
271 	struct device_node *np;
272 
273 	np = of_find_compatible_node(NULL, NULL, "pika,fpga");
274 	if (np == NULL)
275 		return -ENOENT;
276 
277 	dtm_fpga = of_iomap(np, 0);
278 	of_node_put(np);
279 	if (dtm_fpga == NULL)
280 		return -ENOENT;
281 
282 	/* Must get post info before thread starts. */
283 	warp_post_info();
284 
285 	dtm_thread = kthread_run(pika_dtm_thread, dtm_fpga, "pika-dtm");
286 	if (IS_ERR(dtm_thread)) {
287 		iounmap(dtm_fpga);
288 		return PTR_ERR(dtm_thread);
289 	}
290 
291 	return 0;
292 }
293 machine_late_initcall(warp, pika_dtm_start);
294 
295 #else /* !CONFIG_SENSORS_AD7414 */
296 
297 int pika_dtm_register_shutdown(void (*func)(void *arg), void *arg)
298 {
299 	return 0;
300 }
301 
302 int pika_dtm_unregister_shutdown(void (*func)(void *arg), void *arg)
303 {
304 	return 0;
305 }
306 
307 machine_late_initcall(warp, warp_post_info);
308 
309 #endif
310 
311 EXPORT_SYMBOL(pika_dtm_register_shutdown);
312 EXPORT_SYMBOL(pika_dtm_unregister_shutdown);
313