arch/um/kernel/physmem.c

   1 /*
   2  * Copyright (C) 2000 - 2003 Jeff Dike (jdike@addtoit.com)
   3  * Licensed under the GPL
   4  */
   5
   6 #include "linux/mm.h"
   7 #include "linux/rbtree.h"
   8 #include "linux/slab.h"
   9 #include "linux/vmalloc.h"
  10 #include "linux/bootmem.h"
  11 #include "linux/module.h"
  12 #include "linux/pfn.h"
  13 #include "asm/types.h"
  14 #include "asm/pgtable.h"
  15 #include "kern_util.h"
  16 #include "as-layout.h"
  17 #include "mode_kern.h"
  18 #include "mem.h"
  19 #include "mem_user.h"
  20 #include "os.h"
  21 #include "kern.h"
  22 #include "init.h"
  23
  24 struct phys_desc {
  25         struct rb_node rb;
  26         int fd;
  27         __u64 offset;
  28         void *virt;
  29         unsigned long phys;
  30         struct list_head list;
  31 };
  32
  33 static struct rb_root phys_mappings = RB_ROOT;
  34
  35 static struct rb_node **find_rb(void *virt)
  36 {
  37         struct rb_node **n = &phys_mappings.rb_node;
  38         struct phys_desc *d;
  39
  40         while(*n != NULL){
  41                 d = rb_entry(*n, struct phys_desc, rb);
  42                 if(d->virt == virt)
  43                         return n;
  44
  45                 if(d->virt > virt)
  46                         n = &(*n)->rb_left;
  47                 else
  48                         n = &(*n)->rb_right;
  49         }
  50
  51         return n;
  52 }
  53
  54 static struct phys_desc *find_phys_mapping(void *virt)
  55 {
  56         struct rb_node **n = find_rb(virt);
  57
  58         if(*n == NULL)
  59                 return NULL;
  60
  61         return rb_entry(*n, struct phys_desc, rb);
  62 }
  63
  64 static void insert_phys_mapping(struct phys_desc *desc)
  65 {
  66         struct rb_node **n = find_rb(desc->virt);
  67
  68         if(*n != NULL)
  69                 panic("Physical remapping for %p already present",
  70                       desc->virt);
  71
  72         rb_link_node(&desc->rb, rb_parent(*n), n);
  73         rb_insert_color(&desc->rb, &phys_mappings);
  74 }
  75
  76 LIST_HEAD(descriptor_mappings);
  77
  78 struct desc_mapping {
  79         int fd;
  80         struct list_head list;
  81         struct list_head pages;
  82 };
  83
  84 static struct desc_mapping *find_mapping(int fd)
  85 {
  86         struct desc_mapping *desc;
  87         struct list_head *ele;
  88
  89         list_for_each(ele, &descriptor_mappings){
  90                 desc = list_entry(ele, struct desc_mapping, list);
  91                 if(desc->fd == fd)
  92                         return desc;
  93         }
  94
  95         return NULL;
  96 }
  97
  98 static struct desc_mapping *descriptor_mapping(int fd)
  99 {
 100         struct desc_mapping *desc;
 101
 102         desc = find_mapping(fd);
 103         if(desc != NULL)
 104                 return desc;
 105
 106         desc = kmalloc(sizeof(*desc), GFP_ATOMIC);
 107         if(desc == NULL)
 108                 return NULL;
 109
 110         *desc = ((struct desc_mapping)
 111                 { .fd =         fd,
 112                   .list =       LIST_HEAD_INIT(desc->list),
 113                   .pages =      LIST_HEAD_INIT(desc->pages) });
 114         list_add(&desc->list, &descriptor_mappings);
 115
 116         return desc;
 117 }
 118
 119 int physmem_subst_mapping(void *virt, int fd, __u64 offset, int w)
 120 {
 121         struct desc_mapping *fd_maps;
 122         struct phys_desc *desc;
 123         unsigned long phys;
 124         int err;
 125
 126         fd_maps = descriptor_mapping(fd);
 127         if(fd_maps == NULL)
 128                 return -ENOMEM;
 129
 130         phys = __pa(virt);
 131         desc = find_phys_mapping(virt);
 132         if(desc != NULL)
 133                 panic("Address 0x%p is already substituted\n", virt);
 134
 135         err = -ENOMEM;
 136         desc = kmalloc(sizeof(*desc), GFP_ATOMIC);
 137         if(desc == NULL)
 138                 goto out;
 139
 140         *desc = ((struct phys_desc)
 141                 { .fd =                 fd,
 142                   .offset =             offset,
 143                   .virt =               virt,
 144                   .phys =               __pa(virt),
 145                   .list =               LIST_HEAD_INIT(desc->list) });
 146         insert_phys_mapping(desc);
 147
 148         list_add(&desc->list, &fd_maps->pages);
 149
 150         virt = (void *) ((unsigned long) virt & PAGE_MASK);
 151         err = os_map_memory(virt, fd, offset, PAGE_SIZE, 1, w, 0);
 152         if(!err)
 153                 goto out;
 154
 155         rb_erase(&desc->rb, &phys_mappings);
 156         kfree(desc);
 157  out:
 158         return err;
 159 }
 160
 161 static int physmem_fd = -1;
 162
 163 static void remove_mapping(struct phys_desc *desc)
 164 {
 165         void *virt = desc->virt;
 166         int err;
 167
 168         rb_erase(&desc->rb, &phys_mappings);
 169         list_del(&desc->list);
 170         kfree(desc);
 171
 172         err = os_map_memory(virt, physmem_fd, __pa(virt), PAGE_SIZE, 1, 1, 0);
 173         if(err)
 174                 panic("Failed to unmap block device page from physical memory, "
 175                       "errno = %d", -err);
 176 }
 177
 178 int physmem_remove_mapping(void *virt)
 179 {
 180         struct phys_desc *desc;
 181
 182         virt = (void *) ((unsigned long) virt & PAGE_MASK);
 183         desc = find_phys_mapping(virt);
 184         if(desc == NULL)
 185                 return 0;
 186
 187         remove_mapping(desc);
 188         return 1;
 189 }
 190
 191 void physmem_forget_descriptor(int fd)
 192 {
 193         struct desc_mapping *desc;
 194         struct phys_desc *page;
 195         struct list_head *ele, *next;
 196         __u64 offset;
 197         void *addr;
 198         int err;
 199
 200         desc = find_mapping(fd);
 201         if(desc == NULL)
 202                 return;
 203
 204         list_for_each_safe(ele, next, &desc->pages){
 205                 page = list_entry(ele, struct phys_desc, list);
 206                 offset = page->offset;
 207                 addr = page->virt;
 208                 remove_mapping(page);
 209                 err = os_seek_file(fd, offset);
 210                 if(err)
 211                         panic("physmem_forget_descriptor - failed to seek "
 212                               "to %lld in fd %d, error = %d\n",
 213                               offset, fd, -err);
 214                 err = os_read_file(fd, addr, PAGE_SIZE);
 215                 if(err < 0)
 216                         panic("physmem_forget_descriptor - failed to read "
 217                               "from fd %d to 0x%p, error = %d\n",
 218                               fd, addr, -err);
 219         }
 220
 221         list_del(&desc->list);
 222         kfree(desc);
 223 }
 224
 225 EXPORT_SYMBOL(physmem_forget_descriptor);
 226 EXPORT_SYMBOL(physmem_remove_mapping);
 227 EXPORT_SYMBOL(physmem_subst_mapping);
 228
 229 void arch_free_page(struct page *page, int order)
 230 {
 231         void *virt;
 232         int i;
 233
 234         for(i = 0; i < (1 << order); i++){
 235                 virt = __va(page_to_phys(page + i));
 236                 physmem_remove_mapping(virt);
 237         }
 238 }
 239
 240 int is_remapped(void *virt)
 241 {
 242         struct phys_desc *desc = find_phys_mapping(virt);
 243
 244         return desc != NULL;
 245 }
 246
 247 /* Changed during early boot */
 248 unsigned long high_physmem;
 249
 250 extern unsigned long long physmem_size;
 251
 252 int init_maps(unsigned long physmem, unsigned long iomem, unsigned long highmem)
 253 {
 254         struct page *p, *map;
 255         unsigned long phys_len, phys_pages, highmem_len, highmem_pages;
 256         unsigned long iomem_len, iomem_pages, total_len, total_pages;
 257         int i;
 258
 259         phys_pages = physmem >> PAGE_SHIFT;
 260         phys_len = phys_pages * sizeof(struct page);
 261
 262         iomem_pages = iomem >> PAGE_SHIFT;
 263         iomem_len = iomem_pages * sizeof(struct page);
 264
 265         highmem_pages = highmem >> PAGE_SHIFT;
 266         highmem_len = highmem_pages * sizeof(struct page);
 267
 268         total_pages = phys_pages + iomem_pages + highmem_pages;
 269         total_len = phys_len + iomem_len + highmem_len;
 270
 271         if(kmalloc_ok){
 272                 map = kmalloc(total_len, GFP_KERNEL);
 273                 if(map == NULL)
 274                         map = vmalloc(total_len);
 275         }
 276         else map = alloc_bootmem_low_pages(total_len);
 277
 278         if(map == NULL)
 279                 return -ENOMEM;
 280
 281         for(i = 0; i < total_pages; i++){
 282                 p = &map[i];
 283                 memset(p, 0, sizeof(struct page));
 284                 SetPageReserved(p);
 285                 INIT_LIST_HEAD(&p->lru);
 286         }
 287
 288         max_mapnr = total_pages;
 289         return 0;
 290 }
 291
 292 /* Changed during early boot */
 293 static unsigned long kmem_top = 0;
 294
 295 unsigned long get_kmem_end(void)
 296 {
 297         if(kmem_top == 0)
 298                 kmem_top = CHOOSE_MODE(kmem_end_tt, kmem_end_skas);
 299         return kmem_top;
 300 }
 301
 302 void map_memory(unsigned long virt, unsigned long phys, unsigned long len,
 303                 int r, int w, int x)
 304 {
 305         __u64 offset;
 306         int fd, err;
 307
 308         fd = phys_mapping(phys, &offset);
 309         err = os_map_memory((void *) virt, fd, offset, len, r, w, x);
 310         if(err) {
 311                 if(err == -ENOMEM)
 312                         printk("try increasing the host's "
 313                                "/proc/sys/vm/max_map_count to <physical "
 314                                "memory size>/4096\n");
 315                 panic("map_memory(0x%lx, %d, 0x%llx, %ld, %d, %d, %d) failed, "
 316                       "err = %d\n", virt, fd, offset, len, r, w, x, err);
 317         }
 318 }
 319
 320 extern int __syscall_stub_start;
 321
 322 void setup_physmem(unsigned long start, unsigned long reserve_end,
 323                    unsigned long len, unsigned long long highmem)
 324 {
 325         unsigned long reserve = reserve_end - start;
 326         int pfn = PFN_UP(__pa(reserve_end));
 327         int delta = (len - reserve) >> PAGE_SHIFT;
 328         int err, offset, bootmap_size;
 329
 330         physmem_fd = create_mem_file(len + highmem);
 331
 332         offset = uml_reserved - uml_physmem;
 333         err = os_map_memory((void *) uml_reserved, physmem_fd, offset,
 334                             len - offset, 1, 1, 0);
 335         if(err < 0){
 336                 os_print_error(err, "Mapping memory");
 337                 exit(1);
 338         }
 339
 340         /* Special kludge - This page will be mapped in to userspace processes
 341          * from physmem_fd, so it needs to be written out there.
 342          */
 343         os_seek_file(physmem_fd, __pa(&__syscall_stub_start));
 344         os_write_file_k(physmem_fd, &__syscall_stub_start, PAGE_SIZE);
 345
 346         bootmap_size = init_bootmem(pfn, pfn + delta);
 347         free_bootmem(__pa(reserve_end) + bootmap_size,
 348                      len - bootmap_size - reserve);
 349 }
 350
 351 int phys_mapping(unsigned long phys, __u64 *offset_out)
 352 {
 353         struct phys_desc *desc = find_phys_mapping(__va(phys & PAGE_MASK));
 354         int fd = -1;
 355
 356         if(desc != NULL){
 357                 fd = desc->fd;
 358                 *offset_out = desc->offset;
 359         }
 360         else if(phys < physmem_size){
 361                 fd = physmem_fd;
 362                 *offset_out = phys;
 363         }
 364         else if(phys < __pa(end_iomem)){
 365                 struct iomem_region *region = iomem_regions;
 366
 367                 while(region != NULL){
 368                         if((phys >= region->phys) &&
 369                            (phys < region->phys + region->size)){
 370                                 fd = region->fd;
 371                                 *offset_out = phys - region->phys;
 372                                 break;
 373                         }
 374                         region = region->next;
 375                 }
 376         }
 377         else if(phys < __pa(end_iomem) + highmem){
 378                 fd = physmem_fd;
 379                 *offset_out = phys - iomem_size;
 380         }
 381
 382         return fd;
 383 }
 384
 385 static int __init uml_mem_setup(char *line, int *add)
 386 {
 387         char *retptr;
 388         physmem_size = memparse(line,&retptr);
 389         return 0;
 390 }
 391 __uml_setup("mem=", uml_mem_setup,
 392 "mem=<Amount of desired ram>\n"
 393 "    This controls how much \"physical\" memory the kernel allocates\n"
 394 "    for the system. The size is specified as a number followed by\n"
 395 "    one of 'k', 'K', 'm', 'M', which have the obvious meanings.\n"
 396 "    This is not related to the amount of memory in the host.  It can\n"
 397 "    be more, and the excess, if it's ever used, will just be swapped out.\n"
 398 "       Example: mem=64M\n\n"
 399 );
 400
 401 extern int __init parse_iomem(char *str, int *add);
 402
 403 __uml_setup("iomem=", parse_iomem,
 404 "iomem=<name>,<file>\n"
 405 "    Configure <file> as an IO memory region named <name>.\n\n"
 406 );
 407
 408 /*
 409  * This list is constructed in parse_iomem and addresses filled in in
 410  * setup_iomem, both of which run during early boot.  Afterwards, it's
 411  * unchanged.
 412  */
 413 struct iomem_region *iomem_regions = NULL;
 414
 415 /* Initialized in parse_iomem */
 416 int iomem_size = 0;
 417
 418 unsigned long find_iomem(char *driver, unsigned long *len_out)
 419 {
 420         struct iomem_region *region = iomem_regions;
 421
 422         while(region != NULL){
 423                 if(!strcmp(region->driver, driver)){
 424                         *len_out = region->size;
 425                         return region->virt;
 426                 }
 427
 428                 region = region->next;
 429         }
 430
 431         return 0;
 432 }
 433
 434 int setup_iomem(void)
 435 {
 436         struct iomem_region *region = iomem_regions;
 437         unsigned long iomem_start = high_physmem + PAGE_SIZE;
 438         int err;
 439
 440         while(region != NULL){
 441                 err = os_map_memory((void *) iomem_start, region->fd, 0,
 442                                     region->size, 1, 1, 0);
 443                 if(err)
 444                         printk("Mapping iomem region for driver '%s' failed, "
 445                                "errno = %d\n", region->driver, -err);
 446                 else {
 447                         region->virt = iomem_start;
 448                         region->phys = __pa(region->virt);
 449                 }
 450
 451                 iomem_start += region->size + PAGE_SIZE;
 452                 region = region->next;
 453         }
 454
 455         return 0;
 456 }
 457
 458 __initcall(setup_iomem);