sh: Convert remaining remap_area_pages() users to ioremap_page_range().
[linux-2.6.git] / arch / sh / kernel / cpu / sh4 / sq.c
1 /*
2  * arch/sh/kernel/cpu/sh4/sq.c
3  *
4  * General management API for SH-4 integrated Store Queues
5  *
6  * Copyright (C) 2001 - 2006  Paul Mundt
7  * Copyright (C) 2001, 2002  M. R. Brown
8  *
9  * This file is subject to the terms and conditions of the GNU General Public
10  * License.  See the file "COPYING" in the main directory of this archive
11  * for more details.
12  */
13 #include <linux/init.h>
14 #include <linux/cpu.h>
15 #include <linux/bitmap.h>
16 #include <linux/sysdev.h>
17 #include <linux/kernel.h>
18 #include <linux/module.h>
19 #include <linux/slab.h>
20 #include <linux/vmalloc.h>
21 #include <linux/mm.h>
22 #include <linux/io.h>
23 #include <asm/page.h>
24 #include <asm/cacheflush.h>
25 #include <asm/cpu/sq.h>
26
27 struct sq_mapping;
28
29 struct sq_mapping {
30         const char *name;
31
32         unsigned long sq_addr;
33         unsigned long addr;
34         unsigned int size;
35
36         struct sq_mapping *next;
37 };
38
39 static struct sq_mapping *sq_mapping_list;
40 static DEFINE_SPINLOCK(sq_mapping_lock);
41 static struct kmem_cache *sq_cache;
42 static unsigned long *sq_bitmap;
43
44 #define store_queue_barrier()                   \
45 do {                                            \
46         (void)ctrl_inl(P4SEG_STORE_QUE);        \
47         ctrl_outl(0, P4SEG_STORE_QUE + 0);      \
48         ctrl_outl(0, P4SEG_STORE_QUE + 8);      \
49 } while (0);
50
51 /**
52  * sq_flush_range - Flush (prefetch) a specific SQ range
53  * @start: the store queue address to start flushing from
54  * @len: the length to flush
55  *
56  * Flushes the store queue cache from @start to @start + @len in a
57  * linear fashion.
58  */
59 void sq_flush_range(unsigned long start, unsigned int len)
60 {
61         volatile unsigned long *sq = (unsigned long *)start;
62
63         /* Flush the queues */
64         for (len >>= 5; len--; sq += 8)
65                 prefetchw((void *)sq);
66
67         /* Wait for completion */
68         store_queue_barrier();
69 }
70 EXPORT_SYMBOL(sq_flush_range);
71
72 static inline void sq_mapping_list_add(struct sq_mapping *map)
73 {
74         struct sq_mapping **p, *tmp;
75
76         spin_lock_irq(&sq_mapping_lock);
77
78         p = &sq_mapping_list;
79         while ((tmp = *p) != NULL)
80                 p = &tmp->next;
81
82         map->next = tmp;
83         *p = map;
84
85         spin_unlock_irq(&sq_mapping_lock);
86 }
87
88 static inline void sq_mapping_list_del(struct sq_mapping *map)
89 {
90         struct sq_mapping **p, *tmp;
91
92         spin_lock_irq(&sq_mapping_lock);
93
94         for (p = &sq_mapping_list; (tmp = *p); p = &tmp->next)
95                 if (tmp == map) {
96                         *p = tmp->next;
97                         break;
98                 }
99
100         spin_unlock_irq(&sq_mapping_lock);
101 }
102
103 static int __sq_remap(struct sq_mapping *map, unsigned long flags)
104 {
105 #if defined(CONFIG_MMU)
106         struct vm_struct *vma;
107
108         vma = __get_vm_area(map->size, VM_ALLOC, map->sq_addr, SQ_ADDRMAX);
109         if (!vma)
110                 return -ENOMEM;
111
112         vma->phys_addr = map->addr;
113
114         if (ioremap_page_range((unsigned long)vma->addr,
115                                (unsigned long)vma->addr + map->size,
116                                vma->phys_addr, __pgprot(flags))) {
117                 vunmap(vma->addr);
118                 return -EAGAIN;
119         }
120 #else
121         /*
122          * Without an MMU (or with it turned off), this is much more
123          * straightforward, as we can just load up each queue's QACR with
124          * the physical address appropriately masked.
125          */
126         ctrl_outl(((map->addr >> 26) << 2) & 0x1c, SQ_QACR0);
127         ctrl_outl(((map->addr >> 26) << 2) & 0x1c, SQ_QACR1);
128 #endif
129
130         return 0;
131 }
132
133 /**
134  * sq_remap - Map a physical address through the Store Queues
135  * @phys: Physical address of mapping.
136  * @size: Length of mapping.
137  * @name: User invoking mapping.
138  * @flags: Protection flags.
139  *
140  * Remaps the physical address @phys through the next available store queue
141  * address of @size length. @name is logged at boot time as well as through
142  * the sysfs interface.
143  */
144 unsigned long sq_remap(unsigned long phys, unsigned int size,
145                        const char *name, unsigned long flags)
146 {
147         struct sq_mapping *map;
148         unsigned long end;
149         unsigned int psz;
150         int ret, page;
151
152         /* Don't allow wraparound or zero size */
153         end = phys + size - 1;
154         if (unlikely(!size || end < phys))
155                 return -EINVAL;
156         /* Don't allow anyone to remap normal memory.. */
157         if (unlikely(phys < virt_to_phys(high_memory)))
158                 return -EINVAL;
159
160         phys &= PAGE_MASK;
161         size = PAGE_ALIGN(end + 1) - phys;
162
163         map = kmem_cache_alloc(sq_cache, GFP_KERNEL);
164         if (unlikely(!map))
165                 return -ENOMEM;
166
167         map->addr = phys;
168         map->size = size;
169         map->name = name;
170
171         page = bitmap_find_free_region(sq_bitmap, 0x04000000 >> PAGE_SHIFT,
172                                        get_order(map->size));
173         if (unlikely(page < 0)) {
174                 ret = -ENOSPC;
175                 goto out;
176         }
177
178         map->sq_addr = P4SEG_STORE_QUE + (page << PAGE_SHIFT);
179
180         ret = __sq_remap(map, pgprot_val(PAGE_KERNEL_NOCACHE) | flags);
181         if (unlikely(ret != 0))
182                 goto out;
183
184         psz = (size + (PAGE_SIZE - 1)) >> PAGE_SHIFT;
185         pr_info("sqremap: %15s  [%4d page%s]  va 0x%08lx   pa 0x%08lx\n",
186                 likely(map->name) ? map->name : "???",
187                 psz, psz == 1 ? " " : "s",
188                 map->sq_addr, map->addr);
189
190         sq_mapping_list_add(map);
191
192         return map->sq_addr;
193
194 out:
195         kmem_cache_free(sq_cache, map);
196         return ret;
197 }
198 EXPORT_SYMBOL(sq_remap);
199
200 /**
201  * sq_unmap - Unmap a Store Queue allocation
202  * @map: Pre-allocated Store Queue mapping.
203  *
204  * Unmaps the store queue allocation @map that was previously created by
205  * sq_remap(). Also frees up the pte that was previously inserted into
206  * the kernel page table and discards the UTLB translation.
207  */
208 void sq_unmap(unsigned long vaddr)
209 {
210         struct sq_mapping **p, *map;
211         struct vm_struct *vma;
212         int page;
213
214         for (p = &sq_mapping_list; (map = *p); p = &map->next)
215                 if (map->sq_addr == vaddr)
216                         break;
217
218         if (unlikely(!map)) {
219                 printk("%s: bad store queue address 0x%08lx\n",
220                        __FUNCTION__, vaddr);
221                 return;
222         }
223
224         page = (map->sq_addr - P4SEG_STORE_QUE) >> PAGE_SHIFT;
225         bitmap_release_region(sq_bitmap, page, get_order(map->size));
226
227 #ifdef CONFIG_MMU
228         vma = remove_vm_area((void *)(map->sq_addr & PAGE_MASK));
229         if (!vma) {
230                 printk(KERN_ERR "%s: bad address 0x%08lx\n",
231                        __FUNCTION__, map->sq_addr);
232                 return;
233         }
234 #endif
235
236         sq_mapping_list_del(map);
237
238         kmem_cache_free(sq_cache, map);
239 }
240 EXPORT_SYMBOL(sq_unmap);
241
242 /*
243  * Needlessly complex sysfs interface. Unfortunately it doesn't seem like
244  * there is any other easy way to add things on a per-cpu basis without
245  * putting the directory entries somewhere stupid and having to create
246  * links in sysfs by hand back in to the per-cpu directories.
247  *
248  * Some day we may want to have an additional abstraction per store
249  * queue, but considering the kobject hell we already have to deal with,
250  * it's simply not worth the trouble.
251  */
252 static struct kobject *sq_kobject[NR_CPUS];
253
254 struct sq_sysfs_attr {
255         struct attribute attr;
256         ssize_t (*show)(char *buf);
257         ssize_t (*store)(const char *buf, size_t count);
258 };
259
260 #define to_sq_sysfs_attr(attr)  container_of(attr, struct sq_sysfs_attr, attr)
261
262 static ssize_t sq_sysfs_show(struct kobject *kobj, struct attribute *attr,
263                              char *buf)
264 {
265         struct sq_sysfs_attr *sattr = to_sq_sysfs_attr(attr);
266
267         if (likely(sattr->show))
268                 return sattr->show(buf);
269
270         return -EIO;
271 }
272
273 static ssize_t sq_sysfs_store(struct kobject *kobj, struct attribute *attr,
274                               const char *buf, size_t count)
275 {
276         struct sq_sysfs_attr *sattr = to_sq_sysfs_attr(attr);
277
278         if (likely(sattr->store))
279                 return sattr->store(buf, count);
280
281         return -EIO;
282 }
283
284 static ssize_t mapping_show(char *buf)
285 {
286         struct sq_mapping **list, *entry;
287         char *p = buf;
288
289         for (list = &sq_mapping_list; (entry = *list); list = &entry->next)
290                 p += sprintf(p, "%08lx-%08lx [%08lx]: %s\n",
291                              entry->sq_addr, entry->sq_addr + entry->size,
292                              entry->addr, entry->name);
293
294         return p - buf;
295 }
296
297 static ssize_t mapping_store(const char *buf, size_t count)
298 {
299         unsigned long base = 0, len = 0;
300
301         sscanf(buf, "%lx %lx", &base, &len);
302         if (!base)
303                 return -EIO;
304
305         if (likely(len)) {
306                 int ret = sq_remap(base, len, "Userspace",
307                                    pgprot_val(PAGE_SHARED));
308                 if (ret < 0)
309                         return ret;
310         } else
311                 sq_unmap(base);
312
313         return count;
314 }
315
316 static struct sq_sysfs_attr mapping_attr =
317         __ATTR(mapping, 0644, mapping_show, mapping_store);
318
319 static struct attribute *sq_sysfs_attrs[] = {
320         &mapping_attr.attr,
321         NULL,
322 };
323
324 static struct sysfs_ops sq_sysfs_ops = {
325         .show   = sq_sysfs_show,
326         .store  = sq_sysfs_store,
327 };
328
329 static struct kobj_type ktype_percpu_entry = {
330         .sysfs_ops      = &sq_sysfs_ops,
331         .default_attrs  = sq_sysfs_attrs,
332 };
333
334 static int __devinit sq_sysdev_add(struct sys_device *sysdev)
335 {
336         unsigned int cpu = sysdev->id;
337         struct kobject *kobj;
338
339         sq_kobject[cpu] = kzalloc(sizeof(struct kobject), GFP_KERNEL);
340         if (unlikely(!sq_kobject[cpu]))
341                 return -ENOMEM;
342
343         kobj = sq_kobject[cpu];
344         kobj->parent = &sysdev->kobj;
345         kobject_set_name(kobj, "%s", "sq");
346         kobj->ktype = &ktype_percpu_entry;
347
348         return kobject_register(kobj);
349 }
350
351 static int __devexit sq_sysdev_remove(struct sys_device *sysdev)
352 {
353         unsigned int cpu = sysdev->id;
354         struct kobject *kobj = sq_kobject[cpu];
355
356         kobject_unregister(kobj);
357         return 0;
358 }
359
360 static struct sysdev_driver sq_sysdev_driver = {
361         .add            = sq_sysdev_add,
362         .remove         = __devexit_p(sq_sysdev_remove),
363 };
364
365 static int __init sq_api_init(void)
366 {
367         unsigned int nr_pages = 0x04000000 >> PAGE_SHIFT;
368         unsigned int size = (nr_pages + (BITS_PER_LONG - 1)) / BITS_PER_LONG;
369         int ret = -ENOMEM;
370
371         printk(KERN_NOTICE "sq: Registering store queue API.\n");
372
373         sq_cache = kmem_cache_create("store_queue_cache",
374                                 sizeof(struct sq_mapping), 0, 0,
375                                 NULL, NULL);
376         if (unlikely(!sq_cache))
377                 return ret;
378
379         sq_bitmap = kzalloc(size, GFP_KERNEL);
380         if (unlikely(!sq_bitmap))
381                 goto out;
382
383         ret = sysdev_driver_register(&cpu_sysdev_class, &sq_sysdev_driver);
384         if (unlikely(ret != 0))
385                 goto out;
386
387         return 0;
388
389 out:
390         kfree(sq_bitmap);
391         kmem_cache_destroy(sq_cache);
392
393         return ret;
394 }
395
396 static void __exit sq_api_exit(void)
397 {
398         sysdev_driver_unregister(&cpu_sysdev_class, &sq_sysdev_driver);
399         kfree(sq_bitmap);
400         kmem_cache_destroy(sq_cache);
401 }
402
403 module_init(sq_api_init);
404 module_exit(sq_api_exit);
405
406 MODULE_AUTHOR("Paul Mundt <lethal@linux-sh.org>, M. R. Brown <mrbrown@0xd6.org>");
407 MODULE_DESCRIPTION("Simple API for SH-4 integrated Store Queues");
408 MODULE_LICENSE("GPL");