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");