Merge branch 'for-linus' of git://git.kernel.org/pub/scm/linux/kernel/git/ieee1394...
[linux-2.6] / arch / powerpc / sysdev / qe_lib / qe_io.c
1 /*
2  * arch/powerpc/sysdev/qe_lib/qe_io.c
3  *
4  * QE Parallel I/O ports configuration routines
5  *
6  * Copyright (C) Freescale Semicondutor, Inc. 2006. All rights reserved.
7  *
8  * Author: Li Yang <LeoLi@freescale.com>
9  * Based on code from Shlomi Gridish <gridish@freescale.com>
10  *
11  * This program is free software; you can redistribute  it and/or modify it
12  * under  the terms of  the GNU General  Public License as published by the
13  * Free Software Foundation;  either version 2 of the  License, or (at your
14  * option) any later version.
15  */
16
17 #include <linux/stddef.h>
18 #include <linux/kernel.h>
19 #include <linux/init.h>
20 #include <linux/errno.h>
21 #include <linux/module.h>
22 #include <linux/ioport.h>
23
24 #include <asm/io.h>
25 #include <asm/qe.h>
26 #include <asm/prom.h>
27 #include <sysdev/fsl_soc.h>
28
29 #undef DEBUG
30
31 #define NUM_OF_PINS     32
32
33 struct port_regs {
34         __be32  cpodr;          /* Open drain register */
35         __be32  cpdata;         /* Data register */
36         __be32  cpdir1;         /* Direction register */
37         __be32  cpdir2;         /* Direction register */
38         __be32  cppar1;         /* Pin assignment register */
39         __be32  cppar2;         /* Pin assignment register */
40 #ifdef CONFIG_PPC_85xx
41         u8      pad[8];
42 #endif
43 };
44
45 static struct port_regs __iomem *par_io;
46 static int num_par_io_ports = 0;
47
48 int par_io_init(struct device_node *np)
49 {
50         struct resource res;
51         int ret;
52         const u32 *num_ports;
53
54         /* Map Parallel I/O ports registers */
55         ret = of_address_to_resource(np, 0, &res);
56         if (ret)
57                 return ret;
58         par_io = ioremap(res.start, res.end - res.start + 1);
59
60         num_ports = of_get_property(np, "num-ports", NULL);
61         if (num_ports)
62                 num_par_io_ports = *num_ports;
63
64         return 0;
65 }
66
67 int par_io_config_pin(u8 port, u8 pin, int dir, int open_drain,
68                       int assignment, int has_irq)
69 {
70         u32 pin_mask1bit, pin_mask2bits, new_mask2bits, tmp_val;
71
72         if (!par_io)
73                 return -1;
74
75         /* calculate pin location for single and 2 bits information */
76         pin_mask1bit = (u32) (1 << (NUM_OF_PINS - (pin + 1)));
77
78         /* Set open drain, if required */
79         tmp_val = in_be32(&par_io[port].cpodr);
80         if (open_drain)
81                 out_be32(&par_io[port].cpodr, pin_mask1bit | tmp_val);
82         else
83                 out_be32(&par_io[port].cpodr, ~pin_mask1bit & tmp_val);
84
85         /* define direction */
86         tmp_val = (pin > (NUM_OF_PINS / 2) - 1) ?
87                 in_be32(&par_io[port].cpdir2) :
88                 in_be32(&par_io[port].cpdir1);
89
90         /* get all bits mask for 2 bit per port */
91         pin_mask2bits = (u32) (0x3 << (NUM_OF_PINS -
92                                 (pin % (NUM_OF_PINS / 2) + 1) * 2));
93
94         /* Get the final mask we need for the right definition */
95         new_mask2bits = (u32) (dir << (NUM_OF_PINS -
96                                 (pin % (NUM_OF_PINS / 2) + 1) * 2));
97
98         /* clear and set 2 bits mask */
99         if (pin > (NUM_OF_PINS / 2) - 1) {
100                 out_be32(&par_io[port].cpdir2,
101                          ~pin_mask2bits & tmp_val);
102                 tmp_val &= ~pin_mask2bits;
103                 out_be32(&par_io[port].cpdir2, new_mask2bits | tmp_val);
104         } else {
105                 out_be32(&par_io[port].cpdir1,
106                          ~pin_mask2bits & tmp_val);
107                 tmp_val &= ~pin_mask2bits;
108                 out_be32(&par_io[port].cpdir1, new_mask2bits | tmp_val);
109         }
110         /* define pin assignment */
111         tmp_val = (pin > (NUM_OF_PINS / 2) - 1) ?
112                 in_be32(&par_io[port].cppar2) :
113                 in_be32(&par_io[port].cppar1);
114
115         new_mask2bits = (u32) (assignment << (NUM_OF_PINS -
116                         (pin % (NUM_OF_PINS / 2) + 1) * 2));
117         /* clear and set 2 bits mask */
118         if (pin > (NUM_OF_PINS / 2) - 1) {
119                 out_be32(&par_io[port].cppar2,
120                          ~pin_mask2bits & tmp_val);
121                 tmp_val &= ~pin_mask2bits;
122                 out_be32(&par_io[port].cppar2, new_mask2bits | tmp_val);
123         } else {
124                 out_be32(&par_io[port].cppar1,
125                          ~pin_mask2bits & tmp_val);
126                 tmp_val &= ~pin_mask2bits;
127                 out_be32(&par_io[port].cppar1, new_mask2bits | tmp_val);
128         }
129
130         return 0;
131 }
132 EXPORT_SYMBOL(par_io_config_pin);
133
134 int par_io_data_set(u8 port, u8 pin, u8 val)
135 {
136         u32 pin_mask, tmp_val;
137
138         if (port >= num_par_io_ports)
139                 return -EINVAL;
140         if (pin >= NUM_OF_PINS)
141                 return -EINVAL;
142         /* calculate pin location */
143         pin_mask = (u32) (1 << (NUM_OF_PINS - 1 - pin));
144
145         tmp_val = in_be32(&par_io[port].cpdata);
146
147         if (val == 0)           /* clear */
148                 out_be32(&par_io[port].cpdata, ~pin_mask & tmp_val);
149         else                    /* set */
150                 out_be32(&par_io[port].cpdata, pin_mask | tmp_val);
151
152         return 0;
153 }
154 EXPORT_SYMBOL(par_io_data_set);
155
156 int par_io_of_config(struct device_node *np)
157 {
158         struct device_node *pio;
159         const phandle *ph;
160         int pio_map_len;
161         const unsigned int *pio_map;
162
163         if (par_io == NULL) {
164                 printk(KERN_ERR "par_io not initialized \n");
165                 return -1;
166         }
167
168         ph = of_get_property(np, "pio-handle", NULL);
169         if (ph == NULL) {
170                 printk(KERN_ERR "pio-handle not available \n");
171                 return -1;
172         }
173
174         pio = of_find_node_by_phandle(*ph);
175
176         pio_map = of_get_property(pio, "pio-map", &pio_map_len);
177         if (pio_map == NULL) {
178                 printk(KERN_ERR "pio-map is not set! \n");
179                 return -1;
180         }
181         pio_map_len /= sizeof(unsigned int);
182         if ((pio_map_len % 6) != 0) {
183                 printk(KERN_ERR "pio-map format wrong! \n");
184                 return -1;
185         }
186
187         while (pio_map_len > 0) {
188                 par_io_config_pin((u8) pio_map[0], (u8) pio_map[1],
189                                 (int) pio_map[2], (int) pio_map[3],
190                                 (int) pio_map[4], (int) pio_map[5]);
191                 pio_map += 6;
192                 pio_map_len -= 6;
193         }
194         of_node_put(pio);
195         return 0;
196 }
197 EXPORT_SYMBOL(par_io_of_config);
198
199 #ifdef DEBUG
200 static void dump_par_io(void)
201 {
202         unsigned int i;
203
204         printk(KERN_INFO "%s: par_io=%p\n", __func__, par_io);
205         for (i = 0; i < num_par_io_ports; i++) {
206                 printk(KERN_INFO "      cpodr[%u]=%08x\n", i,
207                         in_be32(&par_io[i].cpodr));
208                 printk(KERN_INFO "      cpdata[%u]=%08x\n", i,
209                         in_be32(&par_io[i].cpdata));
210                 printk(KERN_INFO "      cpdir1[%u]=%08x\n", i,
211                         in_be32(&par_io[i].cpdir1));
212                 printk(KERN_INFO "      cpdir2[%u]=%08x\n", i,
213                         in_be32(&par_io[i].cpdir2));
214                 printk(KERN_INFO "      cppar1[%u]=%08x\n", i,
215                         in_be32(&par_io[i].cppar1));
216                 printk(KERN_INFO "      cppar2[%u]=%08x\n", i,
217                         in_be32(&par_io[i].cppar2));
218         }
219
220 }
221 EXPORT_SYMBOL(dump_par_io);
222 #endif /* DEBUG */