blob: 34d8ada053e4562a3a7d216a544b4d9195741c16 [file] [log] [blame]
Christoph Lameterb20a3502006-03-22 00:09:12 -08001/*
2 * Memory Migration functionality - linux/mm/migration.c
3 *
4 * Copyright (C) 2006 Silicon Graphics, Inc., Christoph Lameter
5 *
6 * Page migration was first developed in the context of the memory hotplug
7 * project. The main authors of the migration code are:
8 *
9 * IWAMOTO Toshihiro <iwamoto@valinux.co.jp>
10 * Hirokazu Takahashi <taka@valinux.co.jp>
11 * Dave Hansen <haveblue@us.ibm.com>
12 * Christoph Lameter <clameter@sgi.com>
13 */
14
15#include <linux/migrate.h>
16#include <linux/module.h>
17#include <linux/swap.h>
Christoph Lameter06972122006-06-23 02:03:35 -070018#include <linux/swapops.h>
Christoph Lameterb20a3502006-03-22 00:09:12 -080019#include <linux/pagemap.h>
Christoph Lametere23ca002006-04-10 22:52:57 -070020#include <linux/buffer_head.h>
Christoph Lameterb20a3502006-03-22 00:09:12 -080021#include <linux/mm_inline.h>
22#include <linux/pagevec.h>
23#include <linux/rmap.h>
24#include <linux/topology.h>
25#include <linux/cpu.h>
26#include <linux/cpuset.h>
Christoph Lameter04e62a22006-06-23 02:03:38 -070027#include <linux/writeback.h>
Christoph Lameter742755a2006-06-23 02:03:55 -070028#include <linux/mempolicy.h>
29#include <linux/vmalloc.h>
David Quigley86c3a762006-06-23 02:04:02 -070030#include <linux/security.h>
Christoph Lameterb20a3502006-03-22 00:09:12 -080031
32#include "internal.h"
33
Christoph Lameterb20a3502006-03-22 00:09:12 -080034#define lru_to_page(_head) (list_entry((_head)->prev, struct page, lru))
35
36/*
37 * Isolate one page from the LRU lists. If successful put it onto
38 * the indicated list with elevated page count.
39 *
40 * Result:
41 * -EBUSY: page not on LRU list
42 * 0: page removed from LRU list and added to the specified list.
43 */
44int isolate_lru_page(struct page *page, struct list_head *pagelist)
45{
46 int ret = -EBUSY;
47
48 if (PageLRU(page)) {
49 struct zone *zone = page_zone(page);
50
51 spin_lock_irq(&zone->lru_lock);
52 if (PageLRU(page)) {
53 ret = 0;
54 get_page(page);
55 ClearPageLRU(page);
56 if (PageActive(page))
57 del_page_from_active_list(zone, page);
58 else
59 del_page_from_inactive_list(zone, page);
60 list_add_tail(&page->lru, pagelist);
61 }
62 spin_unlock_irq(&zone->lru_lock);
63 }
64 return ret;
65}
66
67/*
Christoph Lameter742755a2006-06-23 02:03:55 -070068 * migrate_prep() needs to be called before we start compiling a list of pages
69 * to be migrated using isolate_lru_page().
Christoph Lameterb20a3502006-03-22 00:09:12 -080070 */
71int migrate_prep(void)
72{
Christoph Lameterb20a3502006-03-22 00:09:12 -080073 /*
74 * Clear the LRU lists so pages can be isolated.
75 * Note that pages may be moved off the LRU after we have
76 * drained them. Those pages will fail to migrate like other
77 * pages that may be busy.
78 */
79 lru_add_drain_all();
80
81 return 0;
82}
83
84static inline void move_to_lru(struct page *page)
85{
Christoph Lameterb20a3502006-03-22 00:09:12 -080086 if (PageActive(page)) {
87 /*
88 * lru_cache_add_active checks that
89 * the PG_active bit is off.
90 */
91 ClearPageActive(page);
92 lru_cache_add_active(page);
93 } else {
94 lru_cache_add(page);
95 }
96 put_page(page);
97}
98
99/*
100 * Add isolated pages on the list back to the LRU.
101 *
102 * returns the number of pages put back.
103 */
104int putback_lru_pages(struct list_head *l)
105{
106 struct page *page;
107 struct page *page2;
108 int count = 0;
109
110 list_for_each_entry_safe(page, page2, l, lru) {
Christoph Lametere24f0b82006-06-23 02:03:51 -0700111 list_del(&page->lru);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800112 move_to_lru(page);
113 count++;
114 }
115 return count;
116}
117
Christoph Lameter06972122006-06-23 02:03:35 -0700118static inline int is_swap_pte(pte_t pte)
119{
120 return !pte_none(pte) && !pte_present(pte) && !pte_file(pte);
121}
122
123/*
124 * Restore a potential migration pte to a working pte entry
125 */
Christoph Lameter04e62a22006-06-23 02:03:38 -0700126static void remove_migration_pte(struct vm_area_struct *vma,
Christoph Lameter06972122006-06-23 02:03:35 -0700127 struct page *old, struct page *new)
128{
129 struct mm_struct *mm = vma->vm_mm;
130 swp_entry_t entry;
131 pgd_t *pgd;
132 pud_t *pud;
133 pmd_t *pmd;
134 pte_t *ptep, pte;
135 spinlock_t *ptl;
Christoph Lameter04e62a22006-06-23 02:03:38 -0700136 unsigned long addr = page_address_in_vma(new, vma);
137
138 if (addr == -EFAULT)
139 return;
Christoph Lameter06972122006-06-23 02:03:35 -0700140
141 pgd = pgd_offset(mm, addr);
142 if (!pgd_present(*pgd))
143 return;
144
145 pud = pud_offset(pgd, addr);
146 if (!pud_present(*pud))
147 return;
148
149 pmd = pmd_offset(pud, addr);
150 if (!pmd_present(*pmd))
151 return;
152
153 ptep = pte_offset_map(pmd, addr);
154
155 if (!is_swap_pte(*ptep)) {
156 pte_unmap(ptep);
157 return;
158 }
159
160 ptl = pte_lockptr(mm, pmd);
161 spin_lock(ptl);
162 pte = *ptep;
163 if (!is_swap_pte(pte))
164 goto out;
165
166 entry = pte_to_swp_entry(pte);
167
168 if (!is_migration_entry(entry) || migration_entry_to_page(entry) != old)
169 goto out;
170
Christoph Lameter06972122006-06-23 02:03:35 -0700171 get_page(new);
172 pte = pte_mkold(mk_pte(new, vma->vm_page_prot));
173 if (is_write_migration_entry(entry))
174 pte = pte_mkwrite(pte);
175 set_pte_at(mm, addr, ptep, pte);
Christoph Lameter04e62a22006-06-23 02:03:38 -0700176
177 if (PageAnon(new))
178 page_add_anon_rmap(new, vma, addr);
179 else
180 page_add_file_rmap(new);
181
182 /* No need to invalidate - it was non-present before */
183 update_mmu_cache(vma, addr, pte);
184 lazy_mmu_prot_update(pte);
185
Christoph Lameter06972122006-06-23 02:03:35 -0700186out:
187 pte_unmap_unlock(ptep, ptl);
188}
189
190/*
Christoph Lameter04e62a22006-06-23 02:03:38 -0700191 * Note that remove_file_migration_ptes will only work on regular mappings,
192 * Nonlinear mappings do not use migration entries.
193 */
194static void remove_file_migration_ptes(struct page *old, struct page *new)
195{
196 struct vm_area_struct *vma;
197 struct address_space *mapping = page_mapping(new);
198 struct prio_tree_iter iter;
199 pgoff_t pgoff = new->index << (PAGE_CACHE_SHIFT - PAGE_SHIFT);
200
201 if (!mapping)
202 return;
203
204 spin_lock(&mapping->i_mmap_lock);
205
206 vma_prio_tree_foreach(vma, &iter, &mapping->i_mmap, pgoff, pgoff)
207 remove_migration_pte(vma, old, new);
208
209 spin_unlock(&mapping->i_mmap_lock);
210}
211
212/*
Christoph Lameter06972122006-06-23 02:03:35 -0700213 * Must hold mmap_sem lock on at least one of the vmas containing
214 * the page so that the anon_vma cannot vanish.
215 */
Christoph Lameter04e62a22006-06-23 02:03:38 -0700216static void remove_anon_migration_ptes(struct page *old, struct page *new)
Christoph Lameter06972122006-06-23 02:03:35 -0700217{
218 struct anon_vma *anon_vma;
219 struct vm_area_struct *vma;
220 unsigned long mapping;
221
222 mapping = (unsigned long)new->mapping;
223
224 if (!mapping || (mapping & PAGE_MAPPING_ANON) == 0)
225 return;
226
227 /*
228 * We hold the mmap_sem lock. So no need to call page_lock_anon_vma.
229 */
230 anon_vma = (struct anon_vma *) (mapping - PAGE_MAPPING_ANON);
231 spin_lock(&anon_vma->lock);
232
233 list_for_each_entry(vma, &anon_vma->head, anon_vma_node)
Christoph Lameter04e62a22006-06-23 02:03:38 -0700234 remove_migration_pte(vma, old, new);
Christoph Lameter06972122006-06-23 02:03:35 -0700235
236 spin_unlock(&anon_vma->lock);
237}
238
239/*
Christoph Lameter04e62a22006-06-23 02:03:38 -0700240 * Get rid of all migration entries and replace them by
241 * references to the indicated page.
242 */
243static void remove_migration_ptes(struct page *old, struct page *new)
244{
245 if (PageAnon(new))
246 remove_anon_migration_ptes(old, new);
247 else
248 remove_file_migration_ptes(old, new);
249}
250
251/*
Christoph Lameter06972122006-06-23 02:03:35 -0700252 * Something used the pte of a page under migration. We need to
253 * get to the page and wait until migration is finished.
254 * When we return from this function the fault will be retried.
255 *
256 * This function is called from do_swap_page().
257 */
258void migration_entry_wait(struct mm_struct *mm, pmd_t *pmd,
259 unsigned long address)
260{
261 pte_t *ptep, pte;
262 spinlock_t *ptl;
263 swp_entry_t entry;
264 struct page *page;
265
266 ptep = pte_offset_map_lock(mm, pmd, address, &ptl);
267 pte = *ptep;
268 if (!is_swap_pte(pte))
269 goto out;
270
271 entry = pte_to_swp_entry(pte);
272 if (!is_migration_entry(entry))
273 goto out;
274
275 page = migration_entry_to_page(entry);
276
277 get_page(page);
278 pte_unmap_unlock(ptep, ptl);
279 wait_on_page_locked(page);
280 put_page(page);
281 return;
282out:
283 pte_unmap_unlock(ptep, ptl);
284}
285
Christoph Lameterb20a3502006-03-22 00:09:12 -0800286/*
Christoph Lameterc3fcf8a2006-06-23 02:03:32 -0700287 * Replace the page in the mapping.
Christoph Lameter5b5c7122006-06-23 02:03:29 -0700288 *
289 * The number of remaining references must be:
290 * 1 for anonymous pages without a mapping
291 * 2 for pages with a mapping
292 * 3 for pages with a mapping and PagePrivate set.
Christoph Lameterb20a3502006-03-22 00:09:12 -0800293 */
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700294static int migrate_page_move_mapping(struct address_space *mapping,
295 struct page *newpage, struct page *page)
Christoph Lameterb20a3502006-03-22 00:09:12 -0800296{
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800297 void **pslot;
Christoph Lameterb20a3502006-03-22 00:09:12 -0800298
Christoph Lameter6c5240a2006-06-23 02:03:37 -0700299 if (!mapping) {
Christoph Lameter0e8c7d02007-04-23 14:41:09 -0700300 /* Anonymous page without mapping */
Christoph Lameter6c5240a2006-06-23 02:03:37 -0700301 if (page_count(page) != 1)
302 return -EAGAIN;
303 return 0;
304 }
305
Christoph Lameterb20a3502006-03-22 00:09:12 -0800306 write_lock_irq(&mapping->tree_lock);
307
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800308 pslot = radix_tree_lookup_slot(&mapping->page_tree,
309 page_index(page));
Christoph Lameterb20a3502006-03-22 00:09:12 -0800310
Christoph Lameter6c5240a2006-06-23 02:03:37 -0700311 if (page_count(page) != 2 + !!PagePrivate(page) ||
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800312 (struct page *)radix_tree_deref_slot(pslot) != page) {
Christoph Lameterb20a3502006-03-22 00:09:12 -0800313 write_unlock_irq(&mapping->tree_lock);
Christoph Lametere23ca002006-04-10 22:52:57 -0700314 return -EAGAIN;
Christoph Lameterb20a3502006-03-22 00:09:12 -0800315 }
316
317 /*
318 * Now we know that no one else is looking at the page.
Christoph Lameterb20a3502006-03-22 00:09:12 -0800319 */
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800320 get_page(newpage); /* add cache reference */
Christoph Lameter6c5240a2006-06-23 02:03:37 -0700321#ifdef CONFIG_SWAP
Christoph Lameterb20a3502006-03-22 00:09:12 -0800322 if (PageSwapCache(page)) {
323 SetPageSwapCache(newpage);
324 set_page_private(newpage, page_private(page));
325 }
Christoph Lameter6c5240a2006-06-23 02:03:37 -0700326#endif
Christoph Lameterb20a3502006-03-22 00:09:12 -0800327
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800328 radix_tree_replace_slot(pslot, newpage);
329
330 /*
331 * Drop cache reference from old page.
332 * We know this isn't the last reference.
333 */
Christoph Lameterb20a3502006-03-22 00:09:12 -0800334 __put_page(page);
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800335
Christoph Lameter0e8c7d02007-04-23 14:41:09 -0700336 /*
337 * If moved to a different zone then also account
338 * the page for that zone. Other VM counters will be
339 * taken care of when we establish references to the
340 * new page and drop references to the old page.
341 *
342 * Note that anonymous pages are accounted for
343 * via NR_FILE_PAGES and NR_ANON_PAGES if they
344 * are mapped to swap space.
345 */
346 __dec_zone_page_state(page, NR_FILE_PAGES);
347 __inc_zone_page_state(newpage, NR_FILE_PAGES);
348
Christoph Lameterb20a3502006-03-22 00:09:12 -0800349 write_unlock_irq(&mapping->tree_lock);
350
351 return 0;
352}
Christoph Lameterb20a3502006-03-22 00:09:12 -0800353
354/*
355 * Copy the page to its new location
356 */
Christoph Lametere7340f72006-06-23 02:03:29 -0700357static void migrate_page_copy(struct page *newpage, struct page *page)
Christoph Lameterb20a3502006-03-22 00:09:12 -0800358{
359 copy_highpage(newpage, page);
360
361 if (PageError(page))
362 SetPageError(newpage);
363 if (PageReferenced(page))
364 SetPageReferenced(newpage);
365 if (PageUptodate(page))
366 SetPageUptodate(newpage);
367 if (PageActive(page))
368 SetPageActive(newpage);
369 if (PageChecked(page))
370 SetPageChecked(newpage);
371 if (PageMappedToDisk(page))
372 SetPageMappedToDisk(newpage);
373
374 if (PageDirty(page)) {
375 clear_page_dirty_for_io(page);
376 set_page_dirty(newpage);
377 }
378
Christoph Lameter6c5240a2006-06-23 02:03:37 -0700379#ifdef CONFIG_SWAP
Christoph Lameterb20a3502006-03-22 00:09:12 -0800380 ClearPageSwapCache(page);
Christoph Lameter6c5240a2006-06-23 02:03:37 -0700381#endif
Christoph Lameterb20a3502006-03-22 00:09:12 -0800382 ClearPageActive(page);
383 ClearPagePrivate(page);
384 set_page_private(page, 0);
385 page->mapping = NULL;
386
387 /*
388 * If any waiters have accumulated on the new page then
389 * wake them up.
390 */
391 if (PageWriteback(newpage))
392 end_page_writeback(newpage);
393}
Christoph Lameterb20a3502006-03-22 00:09:12 -0800394
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700395/************************************************************
396 * Migration functions
397 ***********************************************************/
398
399/* Always fail migration. Used for mappings that are not movable */
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700400int fail_migrate_page(struct address_space *mapping,
401 struct page *newpage, struct page *page)
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700402{
403 return -EIO;
404}
405EXPORT_SYMBOL(fail_migrate_page);
406
Christoph Lameterb20a3502006-03-22 00:09:12 -0800407/*
408 * Common logic to directly migrate a single page suitable for
409 * pages that do not use PagePrivate.
410 *
411 * Pages are locked upon entry and exit.
412 */
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700413int migrate_page(struct address_space *mapping,
414 struct page *newpage, struct page *page)
Christoph Lameterb20a3502006-03-22 00:09:12 -0800415{
416 int rc;
417
418 BUG_ON(PageWriteback(page)); /* Writeback must be complete */
419
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700420 rc = migrate_page_move_mapping(mapping, newpage, page);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800421
422 if (rc)
423 return rc;
424
425 migrate_page_copy(newpage, page);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800426 return 0;
427}
428EXPORT_SYMBOL(migrate_page);
429
David Howells93614012006-09-30 20:45:40 +0200430#ifdef CONFIG_BLOCK
Christoph Lameterb20a3502006-03-22 00:09:12 -0800431/*
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700432 * Migration function for pages with buffers. This function can only be used
433 * if the underlying filesystem guarantees that no other references to "page"
434 * exist.
435 */
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700436int buffer_migrate_page(struct address_space *mapping,
437 struct page *newpage, struct page *page)
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700438{
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700439 struct buffer_head *bh, *head;
440 int rc;
441
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700442 if (!page_has_buffers(page))
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700443 return migrate_page(mapping, newpage, page);
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700444
445 head = page_buffers(page);
446
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700447 rc = migrate_page_move_mapping(mapping, newpage, page);
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700448
449 if (rc)
450 return rc;
451
452 bh = head;
453 do {
454 get_bh(bh);
455 lock_buffer(bh);
456 bh = bh->b_this_page;
457
458 } while (bh != head);
459
460 ClearPagePrivate(page);
461 set_page_private(newpage, page_private(page));
462 set_page_private(page, 0);
463 put_page(page);
464 get_page(newpage);
465
466 bh = head;
467 do {
468 set_bh_page(bh, newpage, bh_offset(bh));
469 bh = bh->b_this_page;
470
471 } while (bh != head);
472
473 SetPagePrivate(newpage);
474
475 migrate_page_copy(newpage, page);
476
477 bh = head;
478 do {
479 unlock_buffer(bh);
480 put_bh(bh);
481 bh = bh->b_this_page;
482
483 } while (bh != head);
484
485 return 0;
486}
487EXPORT_SYMBOL(buffer_migrate_page);
David Howells93614012006-09-30 20:45:40 +0200488#endif
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700489
Christoph Lameter04e62a22006-06-23 02:03:38 -0700490/*
491 * Writeback a page to clean the dirty state
492 */
493static int writeout(struct address_space *mapping, struct page *page)
494{
495 struct writeback_control wbc = {
496 .sync_mode = WB_SYNC_NONE,
497 .nr_to_write = 1,
498 .range_start = 0,
499 .range_end = LLONG_MAX,
500 .nonblocking = 1,
501 .for_reclaim = 1
502 };
503 int rc;
504
505 if (!mapping->a_ops->writepage)
506 /* No write method for the address space */
507 return -EINVAL;
508
509 if (!clear_page_dirty_for_io(page))
510 /* Someone else already triggered a write */
511 return -EAGAIN;
512
513 /*
514 * A dirty page may imply that the underlying filesystem has
515 * the page on some queue. So the page must be clean for
516 * migration. Writeout may mean we loose the lock and the
517 * page state is no longer what we checked for earlier.
518 * At this point we know that the migration attempt cannot
519 * be successful.
520 */
521 remove_migration_ptes(page, page);
522
523 rc = mapping->a_ops->writepage(page, &wbc);
524 if (rc < 0)
525 /* I/O Error writing */
526 return -EIO;
527
528 if (rc != AOP_WRITEPAGE_ACTIVATE)
529 /* unlocked. Relock */
530 lock_page(page);
531
532 return -EAGAIN;
533}
534
535/*
536 * Default handling if a filesystem does not provide a migration function.
537 */
Christoph Lameter8351a6e2006-06-23 02:03:33 -0700538static int fallback_migrate_page(struct address_space *mapping,
539 struct page *newpage, struct page *page)
540{
Christoph Lameter04e62a22006-06-23 02:03:38 -0700541 if (PageDirty(page))
542 return writeout(mapping, page);
Christoph Lameter8351a6e2006-06-23 02:03:33 -0700543
544 /*
545 * Buffers may be managed in a filesystem specific way.
546 * We must have no buffers or drop them.
547 */
David Howellsb398f6b2006-08-29 19:05:58 +0100548 if (PagePrivate(page) &&
Christoph Lameter8351a6e2006-06-23 02:03:33 -0700549 !try_to_release_page(page, GFP_KERNEL))
550 return -EAGAIN;
551
552 return migrate_page(mapping, newpage, page);
553}
554
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700555/*
Christoph Lametere24f0b82006-06-23 02:03:51 -0700556 * Move a page to a newly allocated page
557 * The page is locked and all ptes have been successfully removed.
558 *
559 * The new page will have replaced the old page if this function
560 * is successful.
561 */
562static int move_to_new_page(struct page *newpage, struct page *page)
563{
564 struct address_space *mapping;
565 int rc;
566
567 /*
568 * Block others from accessing the page when we get around to
569 * establishing additional references. We are the only one
570 * holding a reference to the new page at this point.
571 */
572 if (TestSetPageLocked(newpage))
573 BUG();
574
575 /* Prepare mapping for the new page.*/
576 newpage->index = page->index;
577 newpage->mapping = page->mapping;
578
579 mapping = page_mapping(page);
580 if (!mapping)
581 rc = migrate_page(mapping, newpage, page);
582 else if (mapping->a_ops->migratepage)
583 /*
584 * Most pages have a mapping and most filesystems
585 * should provide a migration function. Anonymous
586 * pages are part of swap space which also has its
587 * own migration function. This is the most common
588 * path for page migration.
589 */
590 rc = mapping->a_ops->migratepage(mapping,
591 newpage, page);
592 else
593 rc = fallback_migrate_page(mapping, newpage, page);
594
595 if (!rc)
596 remove_migration_ptes(page, newpage);
597 else
598 newpage->mapping = NULL;
599
600 unlock_page(newpage);
601
602 return rc;
603}
604
605/*
606 * Obtain the lock on page, remove all ptes and migrate the page
607 * to the newly allocated page in newpage.
608 */
Christoph Lameter95a402c2006-06-23 02:03:53 -0700609static int unmap_and_move(new_page_t get_new_page, unsigned long private,
610 struct page *page, int force)
Christoph Lametere24f0b82006-06-23 02:03:51 -0700611{
612 int rc = 0;
Christoph Lameter742755a2006-06-23 02:03:55 -0700613 int *result = NULL;
614 struct page *newpage = get_new_page(page, private, &result);
Christoph Lameter95a402c2006-06-23 02:03:53 -0700615
616 if (!newpage)
617 return -ENOMEM;
Christoph Lametere24f0b82006-06-23 02:03:51 -0700618
619 if (page_count(page) == 1)
620 /* page was freed from under us. So we are done. */
Christoph Lameter95a402c2006-06-23 02:03:53 -0700621 goto move_newpage;
Christoph Lametere24f0b82006-06-23 02:03:51 -0700622
623 rc = -EAGAIN;
624 if (TestSetPageLocked(page)) {
625 if (!force)
Christoph Lameter95a402c2006-06-23 02:03:53 -0700626 goto move_newpage;
Christoph Lametere24f0b82006-06-23 02:03:51 -0700627 lock_page(page);
628 }
629
630 if (PageWriteback(page)) {
631 if (!force)
632 goto unlock;
633 wait_on_page_writeback(page);
634 }
635
636 /*
637 * Establish migration ptes or remove ptes
638 */
Christoph Lametere6a15302006-06-25 05:46:49 -0700639 try_to_unmap(page, 1);
640 if (!page_mapped(page))
641 rc = move_to_new_page(newpage, page);
Christoph Lametere24f0b82006-06-23 02:03:51 -0700642
643 if (rc)
644 remove_migration_ptes(page, page);
Christoph Lametere6a15302006-06-25 05:46:49 -0700645
Christoph Lametere24f0b82006-06-23 02:03:51 -0700646unlock:
647 unlock_page(page);
Christoph Lameter95a402c2006-06-23 02:03:53 -0700648
Christoph Lametere24f0b82006-06-23 02:03:51 -0700649 if (rc != -EAGAIN) {
Christoph Lameteraaa994b2006-06-23 02:03:52 -0700650 /*
651 * A page that has been migrated has all references
652 * removed and will be freed. A page that has not been
653 * migrated will have kepts its references and be
654 * restored.
655 */
656 list_del(&page->lru);
657 move_to_lru(page);
Christoph Lametere24f0b82006-06-23 02:03:51 -0700658 }
Christoph Lameter95a402c2006-06-23 02:03:53 -0700659
660move_newpage:
661 /*
662 * Move the new page to the LRU. If migration was not successful
663 * then this will free the page.
664 */
665 move_to_lru(newpage);
Christoph Lameter742755a2006-06-23 02:03:55 -0700666 if (result) {
667 if (rc)
668 *result = rc;
669 else
670 *result = page_to_nid(newpage);
671 }
Christoph Lametere24f0b82006-06-23 02:03:51 -0700672 return rc;
673}
674
675/*
Christoph Lameterb20a3502006-03-22 00:09:12 -0800676 * migrate_pages
677 *
Christoph Lameter95a402c2006-06-23 02:03:53 -0700678 * The function takes one list of pages to migrate and a function
679 * that determines from the page to be migrated and the private data
680 * the target of the move and allocates the page.
Christoph Lameterb20a3502006-03-22 00:09:12 -0800681 *
682 * The function returns after 10 attempts or if no pages
683 * are movable anymore because to has become empty
Christoph Lameteraaa994b2006-06-23 02:03:52 -0700684 * or no retryable pages exist anymore. All pages will be
685 * retruned to the LRU or freed.
Christoph Lameterb20a3502006-03-22 00:09:12 -0800686 *
Christoph Lameter95a402c2006-06-23 02:03:53 -0700687 * Return: Number of pages not migrated or error code.
Christoph Lameterb20a3502006-03-22 00:09:12 -0800688 */
Christoph Lameter95a402c2006-06-23 02:03:53 -0700689int migrate_pages(struct list_head *from,
690 new_page_t get_new_page, unsigned long private)
Christoph Lameterb20a3502006-03-22 00:09:12 -0800691{
Christoph Lametere24f0b82006-06-23 02:03:51 -0700692 int retry = 1;
Christoph Lameterb20a3502006-03-22 00:09:12 -0800693 int nr_failed = 0;
694 int pass = 0;
695 struct page *page;
696 struct page *page2;
697 int swapwrite = current->flags & PF_SWAPWRITE;
698 int rc;
699
700 if (!swapwrite)
701 current->flags |= PF_SWAPWRITE;
702
Christoph Lametere24f0b82006-06-23 02:03:51 -0700703 for(pass = 0; pass < 10 && retry; pass++) {
704 retry = 0;
Christoph Lameterb20a3502006-03-22 00:09:12 -0800705
Christoph Lametere24f0b82006-06-23 02:03:51 -0700706 list_for_each_entry_safe(page, page2, from, lru) {
Christoph Lametere24f0b82006-06-23 02:03:51 -0700707 cond_resched();
Christoph Lameterb20a3502006-03-22 00:09:12 -0800708
Christoph Lameter95a402c2006-06-23 02:03:53 -0700709 rc = unmap_and_move(get_new_page, private,
710 page, pass > 2);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800711
Christoph Lametere24f0b82006-06-23 02:03:51 -0700712 switch(rc) {
Christoph Lameter95a402c2006-06-23 02:03:53 -0700713 case -ENOMEM:
714 goto out;
Christoph Lametere24f0b82006-06-23 02:03:51 -0700715 case -EAGAIN:
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700716 retry++;
Christoph Lametere24f0b82006-06-23 02:03:51 -0700717 break;
718 case 0:
Christoph Lametere24f0b82006-06-23 02:03:51 -0700719 break;
720 default:
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700721 /* Permanent failure */
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700722 nr_failed++;
Christoph Lametere24f0b82006-06-23 02:03:51 -0700723 break;
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700724 }
Christoph Lameterb20a3502006-03-22 00:09:12 -0800725 }
726 }
Christoph Lameter95a402c2006-06-23 02:03:53 -0700727 rc = 0;
728out:
Christoph Lameterb20a3502006-03-22 00:09:12 -0800729 if (!swapwrite)
730 current->flags &= ~PF_SWAPWRITE;
731
Christoph Lameteraaa994b2006-06-23 02:03:52 -0700732 putback_lru_pages(from);
Christoph Lameter95a402c2006-06-23 02:03:53 -0700733
734 if (rc)
735 return rc;
736
Christoph Lameterb20a3502006-03-22 00:09:12 -0800737 return nr_failed + retry;
738}
739
Christoph Lameter742755a2006-06-23 02:03:55 -0700740#ifdef CONFIG_NUMA
741/*
742 * Move a list of individual pages
743 */
744struct page_to_node {
745 unsigned long addr;
746 struct page *page;
747 int node;
748 int status;
749};
750
751static struct page *new_page_node(struct page *p, unsigned long private,
752 int **result)
753{
754 struct page_to_node *pm = (struct page_to_node *)private;
755
756 while (pm->node != MAX_NUMNODES && pm->page != p)
757 pm++;
758
759 if (pm->node == MAX_NUMNODES)
760 return NULL;
761
762 *result = &pm->status;
763
Mel Gorman769848c2007-07-17 04:03:05 -0700764 return alloc_pages_node(pm->node,
765 GFP_HIGHUSER_MOVABLE | GFP_THISNODE, 0);
Christoph Lameter742755a2006-06-23 02:03:55 -0700766}
767
768/*
769 * Move a set of pages as indicated in the pm array. The addr
770 * field must be set to the virtual address of the page to be moved
771 * and the node number must contain a valid target node.
772 */
773static int do_move_pages(struct mm_struct *mm, struct page_to_node *pm,
774 int migrate_all)
775{
776 int err;
777 struct page_to_node *pp;
778 LIST_HEAD(pagelist);
779
780 down_read(&mm->mmap_sem);
781
782 /*
783 * Build a list of pages to migrate
784 */
785 migrate_prep();
786 for (pp = pm; pp->node != MAX_NUMNODES; pp++) {
787 struct vm_area_struct *vma;
788 struct page *page;
789
790 /*
791 * A valid page pointer that will not match any of the
792 * pages that will be moved.
793 */
794 pp->page = ZERO_PAGE(0);
795
796 err = -EFAULT;
797 vma = find_vma(mm, pp->addr);
Christoph Lameter0dc952d2007-03-05 00:30:33 -0800798 if (!vma || !vma_migratable(vma))
Christoph Lameter742755a2006-06-23 02:03:55 -0700799 goto set_status;
800
801 page = follow_page(vma, pp->addr, FOLL_GET);
802 err = -ENOENT;
803 if (!page)
804 goto set_status;
805
806 if (PageReserved(page)) /* Check for zero page */
807 goto put_and_set;
808
809 pp->page = page;
810 err = page_to_nid(page);
811
812 if (err == pp->node)
813 /*
814 * Node already in the right place
815 */
816 goto put_and_set;
817
818 err = -EACCES;
819 if (page_mapcount(page) > 1 &&
820 !migrate_all)
821 goto put_and_set;
822
823 err = isolate_lru_page(page, &pagelist);
824put_and_set:
825 /*
826 * Either remove the duplicate refcount from
827 * isolate_lru_page() or drop the page ref if it was
828 * not isolated.
829 */
830 put_page(page);
831set_status:
832 pp->status = err;
833 }
834
835 if (!list_empty(&pagelist))
836 err = migrate_pages(&pagelist, new_page_node,
837 (unsigned long)pm);
838 else
839 err = -ENOENT;
840
841 up_read(&mm->mmap_sem);
842 return err;
843}
844
845/*
846 * Determine the nodes of a list of pages. The addr in the pm array
847 * must have been set to the virtual address of which we want to determine
848 * the node number.
849 */
850static int do_pages_stat(struct mm_struct *mm, struct page_to_node *pm)
851{
852 down_read(&mm->mmap_sem);
853
854 for ( ; pm->node != MAX_NUMNODES; pm++) {
855 struct vm_area_struct *vma;
856 struct page *page;
857 int err;
858
859 err = -EFAULT;
860 vma = find_vma(mm, pm->addr);
861 if (!vma)
862 goto set_status;
863
864 page = follow_page(vma, pm->addr, 0);
865 err = -ENOENT;
866 /* Use PageReserved to check for zero page */
867 if (!page || PageReserved(page))
868 goto set_status;
869
870 err = page_to_nid(page);
871set_status:
872 pm->status = err;
873 }
874
875 up_read(&mm->mmap_sem);
876 return 0;
877}
878
879/*
880 * Move a list of pages in the address space of the currently executing
881 * process.
882 */
883asmlinkage long sys_move_pages(pid_t pid, unsigned long nr_pages,
884 const void __user * __user *pages,
885 const int __user *nodes,
886 int __user *status, int flags)
887{
888 int err = 0;
889 int i;
890 struct task_struct *task;
891 nodemask_t task_nodes;
892 struct mm_struct *mm;
893 struct page_to_node *pm = NULL;
894
895 /* Check flags */
896 if (flags & ~(MPOL_MF_MOVE|MPOL_MF_MOVE_ALL))
897 return -EINVAL;
898
899 if ((flags & MPOL_MF_MOVE_ALL) && !capable(CAP_SYS_NICE))
900 return -EPERM;
901
902 /* Find the mm_struct */
903 read_lock(&tasklist_lock);
904 task = pid ? find_task_by_pid(pid) : current;
905 if (!task) {
906 read_unlock(&tasklist_lock);
907 return -ESRCH;
908 }
909 mm = get_task_mm(task);
910 read_unlock(&tasklist_lock);
911
912 if (!mm)
913 return -EINVAL;
914
915 /*
916 * Check if this process has the right to modify the specified
917 * process. The right exists if the process has administrative
918 * capabilities, superuser privileges or the same
919 * userid as the target process.
920 */
921 if ((current->euid != task->suid) && (current->euid != task->uid) &&
922 (current->uid != task->suid) && (current->uid != task->uid) &&
923 !capable(CAP_SYS_NICE)) {
924 err = -EPERM;
925 goto out2;
926 }
927
David Quigley86c3a762006-06-23 02:04:02 -0700928 err = security_task_movememory(task);
929 if (err)
930 goto out2;
931
932
Christoph Lameter742755a2006-06-23 02:03:55 -0700933 task_nodes = cpuset_mems_allowed(task);
934
935 /* Limit nr_pages so that the multiplication may not overflow */
936 if (nr_pages >= ULONG_MAX / sizeof(struct page_to_node) - 1) {
937 err = -E2BIG;
938 goto out2;
939 }
940
941 pm = vmalloc((nr_pages + 1) * sizeof(struct page_to_node));
942 if (!pm) {
943 err = -ENOMEM;
944 goto out2;
945 }
946
947 /*
948 * Get parameters from user space and initialize the pm
949 * array. Return various errors if the user did something wrong.
950 */
951 for (i = 0; i < nr_pages; i++) {
952 const void *p;
953
954 err = -EFAULT;
955 if (get_user(p, pages + i))
956 goto out;
957
958 pm[i].addr = (unsigned long)p;
959 if (nodes) {
960 int node;
961
962 if (get_user(node, nodes + i))
963 goto out;
964
965 err = -ENODEV;
966 if (!node_online(node))
967 goto out;
968
969 err = -EACCES;
970 if (!node_isset(node, task_nodes))
971 goto out;
972
973 pm[i].node = node;
Stephen Rothwell8ce08462006-11-02 22:07:28 -0800974 } else
975 pm[i].node = 0; /* anything to not match MAX_NUMNODES */
Christoph Lameter742755a2006-06-23 02:03:55 -0700976 }
977 /* End marker */
978 pm[nr_pages].node = MAX_NUMNODES;
979
980 if (nodes)
981 err = do_move_pages(mm, pm, flags & MPOL_MF_MOVE_ALL);
982 else
983 err = do_pages_stat(mm, pm);
984
985 if (err >= 0)
986 /* Return status information */
987 for (i = 0; i < nr_pages; i++)
988 if (put_user(pm[i].status, status + i))
989 err = -EFAULT;
990
991out:
992 vfree(pm);
993out2:
994 mmput(mm);
995 return err;
996}
997#endif
998
Christoph Lameter7b2259b2006-06-25 05:46:48 -0700999/*
1000 * Call migration functions in the vma_ops that may prepare
1001 * memory in a vm for migration. migration functions may perform
1002 * the migration for vmas that do not have an underlying page struct.
1003 */
1004int migrate_vmas(struct mm_struct *mm, const nodemask_t *to,
1005 const nodemask_t *from, unsigned long flags)
1006{
1007 struct vm_area_struct *vma;
1008 int err = 0;
1009
1010 for(vma = mm->mmap; vma->vm_next && !err; vma = vma->vm_next) {
1011 if (vma->vm_ops && vma->vm_ops->migrate) {
1012 err = vma->vm_ops->migrate(vma, to, from, flags);
1013 if (err)
1014 break;
1015 }
1016 }
1017 return err;
1018}