blob: f24e9cc49cc4feecfef671111dd3ca1fae842fa1 [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>
Christoph Lametercde53532008-07-04 09:59:22 -070012 * Christoph Lameter
Christoph Lameterb20a3502006-03-22 00:09:12 -080013 */
14
15#include <linux/migrate.h>
Paul Gortmakerb95f1b312011-10-16 02:01:52 -040016#include <linux/export.h>
Christoph Lameterb20a3502006-03-22 00:09:12 -080017#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>
Pavel Emelyanovb4888932007-10-18 23:40:14 -070022#include <linux/nsproxy.h>
Christoph Lameterb20a3502006-03-22 00:09:12 -080023#include <linux/pagevec.h>
Hugh Dickinse9995ef2009-12-14 17:59:31 -080024#include <linux/ksm.h>
Christoph Lameterb20a3502006-03-22 00:09:12 -080025#include <linux/rmap.h>
26#include <linux/topology.h>
27#include <linux/cpu.h>
28#include <linux/cpuset.h>
Christoph Lameter04e62a22006-06-23 02:03:38 -070029#include <linux/writeback.h>
Christoph Lameter742755a2006-06-23 02:03:55 -070030#include <linux/mempolicy.h>
31#include <linux/vmalloc.h>
David Quigley86c3a762006-06-23 02:04:02 -070032#include <linux/security.h>
Balbir Singh8a9f3cc2008-02-07 00:13:53 -080033#include <linux/memcontrol.h>
Adrian Bunk4f5ca262008-07-23 21:27:02 -070034#include <linux/syscalls.h>
Naoya Horiguchi290408d2010-09-08 10:19:35 +090035#include <linux/hugetlb.h>
Aneesh Kumar K.V8e6ac7f2012-07-31 16:42:27 -070036#include <linux/hugetlb_cgroup.h>
Tejun Heo5a0e3ad2010-03-24 17:04:11 +090037#include <linux/gfp.h>
Christoph Lameterb20a3502006-03-22 00:09:12 -080038
Michal Nazarewicz0d1836c2010-12-21 17:24:26 -080039#include <asm/tlbflush.h>
40
Mel Gorman7b2a2d42012-10-19 14:07:31 +010041#define CREATE_TRACE_POINTS
42#include <trace/events/migrate.h>
43
Christoph Lameterb20a3502006-03-22 00:09:12 -080044#include "internal.h"
45
Christoph Lameterb20a3502006-03-22 00:09:12 -080046/*
Christoph Lameter742755a2006-06-23 02:03:55 -070047 * migrate_prep() needs to be called before we start compiling a list of pages
Mel Gorman748446b2010-05-24 14:32:27 -070048 * to be migrated using isolate_lru_page(). If scheduling work on other CPUs is
49 * undesirable, use migrate_prep_local()
Christoph Lameterb20a3502006-03-22 00:09:12 -080050 */
51int migrate_prep(void)
52{
Christoph Lameterb20a3502006-03-22 00:09:12 -080053 /*
54 * Clear the LRU lists so pages can be isolated.
55 * Note that pages may be moved off the LRU after we have
56 * drained them. Those pages will fail to migrate like other
57 * pages that may be busy.
58 */
59 lru_add_drain_all();
60
61 return 0;
62}
63
Mel Gorman748446b2010-05-24 14:32:27 -070064/* Do the necessary work of migrate_prep but not if it involves other CPUs */
65int migrate_prep_local(void)
66{
67 lru_add_drain();
68
69 return 0;
70}
71
Christoph Lameterb20a3502006-03-22 00:09:12 -080072/*
Lee Schermerhorn894bc312008-10-18 20:26:39 -070073 * Add isolated pages on the list back to the LRU under page lock
74 * to avoid leaking evictable pages back onto unevictable list.
Christoph Lameterb20a3502006-03-22 00:09:12 -080075 */
Minchan Kime13861d2010-05-24 14:31:59 -070076void putback_lru_pages(struct list_head *l)
Christoph Lameterb20a3502006-03-22 00:09:12 -080077{
78 struct page *page;
79 struct page *page2;
Christoph Lameterb20a3502006-03-22 00:09:12 -080080
81 list_for_each_entry_safe(page, page2, l, lru) {
Christoph Lametere24f0b82006-06-23 02:03:51 -070082 list_del(&page->lru);
KOSAKI Motohiroa7312862009-09-21 17:01:37 -070083 dec_zone_page_state(page, NR_ISOLATED_ANON +
Johannes Weiner6c0b1352009-09-21 17:02:59 -070084 page_is_file_cache(page));
Lee Schermerhorn894bc312008-10-18 20:26:39 -070085 putback_lru_page(page);
Christoph Lameterb20a3502006-03-22 00:09:12 -080086 }
Christoph Lameterb20a3502006-03-22 00:09:12 -080087}
88
Christoph Lameter06972122006-06-23 02:03:35 -070089/*
90 * Restore a potential migration pte to a working pte entry
91 */
Hugh Dickinse9995ef2009-12-14 17:59:31 -080092static int remove_migration_pte(struct page *new, struct vm_area_struct *vma,
93 unsigned long addr, void *old)
Christoph Lameter06972122006-06-23 02:03:35 -070094{
95 struct mm_struct *mm = vma->vm_mm;
96 swp_entry_t entry;
97 pgd_t *pgd;
98 pud_t *pud;
99 pmd_t *pmd;
100 pte_t *ptep, pte;
101 spinlock_t *ptl;
102
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900103 if (unlikely(PageHuge(new))) {
104 ptep = huge_pte_offset(mm, addr);
105 if (!ptep)
106 goto out;
107 ptl = &mm->page_table_lock;
108 } else {
109 pgd = pgd_offset(mm, addr);
110 if (!pgd_present(*pgd))
111 goto out;
Christoph Lameter06972122006-06-23 02:03:35 -0700112
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900113 pud = pud_offset(pgd, addr);
114 if (!pud_present(*pud))
115 goto out;
Christoph Lameter06972122006-06-23 02:03:35 -0700116
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900117 pmd = pmd_offset(pud, addr);
Andrea Arcangeli500d65d2011-01-13 15:46:55 -0800118 if (pmd_trans_huge(*pmd))
119 goto out;
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900120 if (!pmd_present(*pmd))
121 goto out;
Christoph Lameter06972122006-06-23 02:03:35 -0700122
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900123 ptep = pte_offset_map(pmd, addr);
Christoph Lameter06972122006-06-23 02:03:35 -0700124
Hugh Dickins486cf462011-10-19 12:50:35 -0700125 /*
126 * Peek to check is_swap_pte() before taking ptlock? No, we
127 * can race mremap's move_ptes(), which skips anon_vma lock.
128 */
Christoph Lameter06972122006-06-23 02:03:35 -0700129
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900130 ptl = pte_lockptr(mm, pmd);
131 }
132
Christoph Lameter06972122006-06-23 02:03:35 -0700133 spin_lock(ptl);
134 pte = *ptep;
135 if (!is_swap_pte(pte))
Hugh Dickinse9995ef2009-12-14 17:59:31 -0800136 goto unlock;
Christoph Lameter06972122006-06-23 02:03:35 -0700137
138 entry = pte_to_swp_entry(pte);
139
Hugh Dickinse9995ef2009-12-14 17:59:31 -0800140 if (!is_migration_entry(entry) ||
141 migration_entry_to_page(entry) != old)
142 goto unlock;
Christoph Lameter06972122006-06-23 02:03:35 -0700143
Christoph Lameter06972122006-06-23 02:03:35 -0700144 get_page(new);
145 pte = pte_mkold(mk_pte(new, vma->vm_page_prot));
146 if (is_write_migration_entry(entry))
147 pte = pte_mkwrite(pte);
Andi Kleen3ef8fd72010-10-11 16:03:21 +0200148#ifdef CONFIG_HUGETLB_PAGE
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900149 if (PageHuge(new))
150 pte = pte_mkhuge(pte);
Andi Kleen3ef8fd72010-10-11 16:03:21 +0200151#endif
KAMEZAWA Hiroyuki97ee0522007-10-16 01:25:43 -0700152 flush_cache_page(vma, addr, pte_pfn(pte));
Christoph Lameter06972122006-06-23 02:03:35 -0700153 set_pte_at(mm, addr, ptep, pte);
Christoph Lameter04e62a22006-06-23 02:03:38 -0700154
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900155 if (PageHuge(new)) {
156 if (PageAnon(new))
157 hugepage_add_anon_rmap(new, vma, addr);
158 else
159 page_dup_rmap(new);
160 } else if (PageAnon(new))
Christoph Lameter04e62a22006-06-23 02:03:38 -0700161 page_add_anon_rmap(new, vma, addr);
162 else
163 page_add_file_rmap(new);
164
165 /* No need to invalidate - it was non-present before */
Russell King4b3073e2009-12-18 16:40:18 +0000166 update_mmu_cache(vma, addr, ptep);
Hugh Dickinse9995ef2009-12-14 17:59:31 -0800167unlock:
Christoph Lameter06972122006-06-23 02:03:35 -0700168 pte_unmap_unlock(ptep, ptl);
Hugh Dickinse9995ef2009-12-14 17:59:31 -0800169out:
170 return SWAP_AGAIN;
Christoph Lameter06972122006-06-23 02:03:35 -0700171}
172
173/*
Christoph Lameter04e62a22006-06-23 02:03:38 -0700174 * Get rid of all migration entries and replace them by
175 * references to the indicated page.
176 */
177static void remove_migration_ptes(struct page *old, struct page *new)
178{
Hugh Dickinse9995ef2009-12-14 17:59:31 -0800179 rmap_walk(new, remove_migration_pte, old);
Christoph Lameter04e62a22006-06-23 02:03:38 -0700180}
181
182/*
Christoph Lameter06972122006-06-23 02:03:35 -0700183 * Something used the pte of a page under migration. We need to
184 * get to the page and wait until migration is finished.
185 * When we return from this function the fault will be retried.
Christoph Lameter06972122006-06-23 02:03:35 -0700186 */
187void migration_entry_wait(struct mm_struct *mm, pmd_t *pmd,
188 unsigned long address)
189{
190 pte_t *ptep, pte;
191 spinlock_t *ptl;
192 swp_entry_t entry;
193 struct page *page;
194
195 ptep = pte_offset_map_lock(mm, pmd, address, &ptl);
196 pte = *ptep;
197 if (!is_swap_pte(pte))
198 goto out;
199
200 entry = pte_to_swp_entry(pte);
201 if (!is_migration_entry(entry))
202 goto out;
203
204 page = migration_entry_to_page(entry);
205
Nick Piggine2867812008-07-25 19:45:30 -0700206 /*
207 * Once radix-tree replacement of page migration started, page_count
208 * *must* be zero. And, we don't want to call wait_on_page_locked()
209 * against a page without get_page().
210 * So, we use get_page_unless_zero(), here. Even failed, page fault
211 * will occur again.
212 */
213 if (!get_page_unless_zero(page))
214 goto out;
Christoph Lameter06972122006-06-23 02:03:35 -0700215 pte_unmap_unlock(ptep, ptl);
216 wait_on_page_locked(page);
217 put_page(page);
218 return;
219out:
220 pte_unmap_unlock(ptep, ptl);
221}
222
Mel Gormanb969c4a2012-01-12 17:19:34 -0800223#ifdef CONFIG_BLOCK
224/* Returns true if all buffers are successfully locked */
Mel Gormana6bc32b2012-01-12 17:19:43 -0800225static bool buffer_migrate_lock_buffers(struct buffer_head *head,
226 enum migrate_mode mode)
Mel Gormanb969c4a2012-01-12 17:19:34 -0800227{
228 struct buffer_head *bh = head;
229
230 /* Simple case, sync compaction */
Mel Gormana6bc32b2012-01-12 17:19:43 -0800231 if (mode != MIGRATE_ASYNC) {
Mel Gormanb969c4a2012-01-12 17:19:34 -0800232 do {
233 get_bh(bh);
234 lock_buffer(bh);
235 bh = bh->b_this_page;
236
237 } while (bh != head);
238
239 return true;
240 }
241
242 /* async case, we cannot block on lock_buffer so use trylock_buffer */
243 do {
244 get_bh(bh);
245 if (!trylock_buffer(bh)) {
246 /*
247 * We failed to lock the buffer and cannot stall in
248 * async migration. Release the taken locks
249 */
250 struct buffer_head *failed_bh = bh;
251 put_bh(failed_bh);
252 bh = head;
253 while (bh != failed_bh) {
254 unlock_buffer(bh);
255 put_bh(bh);
256 bh = bh->b_this_page;
257 }
258 return false;
259 }
260
261 bh = bh->b_this_page;
262 } while (bh != head);
263 return true;
264}
265#else
266static inline bool buffer_migrate_lock_buffers(struct buffer_head *head,
Mel Gormana6bc32b2012-01-12 17:19:43 -0800267 enum migrate_mode mode)
Mel Gormanb969c4a2012-01-12 17:19:34 -0800268{
269 return true;
270}
271#endif /* CONFIG_BLOCK */
272
Christoph Lameterb20a3502006-03-22 00:09:12 -0800273/*
Christoph Lameterc3fcf8a2006-06-23 02:03:32 -0700274 * Replace the page in the mapping.
Christoph Lameter5b5c7122006-06-23 02:03:29 -0700275 *
276 * The number of remaining references must be:
277 * 1 for anonymous pages without a mapping
278 * 2 for pages with a mapping
David Howells266cf652009-04-03 16:42:36 +0100279 * 3 for pages with a mapping and PagePrivate/PagePrivate2 set.
Christoph Lameterb20a3502006-03-22 00:09:12 -0800280 */
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700281static int migrate_page_move_mapping(struct address_space *mapping,
Mel Gormanb969c4a2012-01-12 17:19:34 -0800282 struct page *newpage, struct page *page,
Mel Gormana6bc32b2012-01-12 17:19:43 -0800283 struct buffer_head *head, enum migrate_mode mode)
Christoph Lameterb20a3502006-03-22 00:09:12 -0800284{
Peter Zijlstra7039e1d2012-10-25 14:16:34 +0200285 int expected_count = 0;
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800286 void **pslot;
Christoph Lameterb20a3502006-03-22 00:09:12 -0800287
Christoph Lameter6c5240a2006-06-23 02:03:37 -0700288 if (!mapping) {
Christoph Lameter0e8c7d02007-04-23 14:41:09 -0700289 /* Anonymous page without mapping */
Christoph Lameter6c5240a2006-06-23 02:03:37 -0700290 if (page_count(page) != 1)
291 return -EAGAIN;
292 return 0;
293 }
294
Nick Piggin19fd6232008-07-25 19:45:32 -0700295 spin_lock_irq(&mapping->tree_lock);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800296
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800297 pslot = radix_tree_lookup_slot(&mapping->page_tree,
298 page_index(page));
Christoph Lameterb20a3502006-03-22 00:09:12 -0800299
Johannes Weineredcf4742009-09-21 17:02:59 -0700300 expected_count = 2 + page_has_private(page);
Nick Piggine2867812008-07-25 19:45:30 -0700301 if (page_count(page) != expected_count ||
Mel Gorman29c1f672011-01-13 15:47:21 -0800302 radix_tree_deref_slot_protected(pslot, &mapping->tree_lock) != page) {
Nick Piggin19fd6232008-07-25 19:45:32 -0700303 spin_unlock_irq(&mapping->tree_lock);
Christoph Lametere23ca002006-04-10 22:52:57 -0700304 return -EAGAIN;
Christoph Lameterb20a3502006-03-22 00:09:12 -0800305 }
306
Nick Piggine2867812008-07-25 19:45:30 -0700307 if (!page_freeze_refs(page, expected_count)) {
Nick Piggin19fd6232008-07-25 19:45:32 -0700308 spin_unlock_irq(&mapping->tree_lock);
Nick Piggine2867812008-07-25 19:45:30 -0700309 return -EAGAIN;
310 }
311
Christoph Lameterb20a3502006-03-22 00:09:12 -0800312 /*
Mel Gormanb969c4a2012-01-12 17:19:34 -0800313 * In the async migration case of moving a page with buffers, lock the
314 * buffers using trylock before the mapping is moved. If the mapping
315 * was moved, we later failed to lock the buffers and could not move
316 * the mapping back due to an elevated page count, we would have to
317 * block waiting on other references to be dropped.
318 */
Mel Gormana6bc32b2012-01-12 17:19:43 -0800319 if (mode == MIGRATE_ASYNC && head &&
320 !buffer_migrate_lock_buffers(head, mode)) {
Mel Gormanb969c4a2012-01-12 17:19:34 -0800321 page_unfreeze_refs(page, expected_count);
322 spin_unlock_irq(&mapping->tree_lock);
323 return -EAGAIN;
324 }
325
326 /*
Christoph Lameterb20a3502006-03-22 00:09:12 -0800327 * Now we know that no one else is looking at the page.
Christoph Lameterb20a3502006-03-22 00:09:12 -0800328 */
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800329 get_page(newpage); /* add cache reference */
Christoph Lameterb20a3502006-03-22 00:09:12 -0800330 if (PageSwapCache(page)) {
331 SetPageSwapCache(newpage);
332 set_page_private(newpage, page_private(page));
333 }
334
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800335 radix_tree_replace_slot(pslot, newpage);
336
337 /*
Jacobo Giralt937a94c2012-01-10 15:07:11 -0800338 * Drop cache reference from old page by unfreezing
339 * to one less reference.
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800340 * We know this isn't the last reference.
341 */
Jacobo Giralt937a94c2012-01-10 15:07:11 -0800342 page_unfreeze_refs(page, expected_count - 1);
Nick Piggin7cf9c2c2006-12-06 20:33:44 -0800343
Christoph Lameter0e8c7d02007-04-23 14:41:09 -0700344 /*
345 * If moved to a different zone then also account
346 * the page for that zone. Other VM counters will be
347 * taken care of when we establish references to the
348 * new page and drop references to the old page.
349 *
350 * Note that anonymous pages are accounted for
351 * via NR_FILE_PAGES and NR_ANON_PAGES if they
352 * are mapped to swap space.
353 */
354 __dec_zone_page_state(page, NR_FILE_PAGES);
355 __inc_zone_page_state(newpage, NR_FILE_PAGES);
Andrea Arcangeli99a15e22011-06-16 12:56:19 -0700356 if (!PageSwapCache(page) && PageSwapBacked(page)) {
KOSAKI Motohiro4b021082009-09-21 17:01:33 -0700357 __dec_zone_page_state(page, NR_SHMEM);
358 __inc_zone_page_state(newpage, NR_SHMEM);
359 }
Nick Piggin19fd6232008-07-25 19:45:32 -0700360 spin_unlock_irq(&mapping->tree_lock);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800361
362 return 0;
363}
Christoph Lameterb20a3502006-03-22 00:09:12 -0800364
365/*
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900366 * The expected number of remaining references is the same as that
367 * of migrate_page_move_mapping().
368 */
369int migrate_huge_page_move_mapping(struct address_space *mapping,
370 struct page *newpage, struct page *page)
371{
372 int expected_count;
373 void **pslot;
374
375 if (!mapping) {
376 if (page_count(page) != 1)
377 return -EAGAIN;
378 return 0;
379 }
380
381 spin_lock_irq(&mapping->tree_lock);
382
383 pslot = radix_tree_lookup_slot(&mapping->page_tree,
384 page_index(page));
385
386 expected_count = 2 + page_has_private(page);
387 if (page_count(page) != expected_count ||
Mel Gorman29c1f672011-01-13 15:47:21 -0800388 radix_tree_deref_slot_protected(pslot, &mapping->tree_lock) != page) {
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900389 spin_unlock_irq(&mapping->tree_lock);
390 return -EAGAIN;
391 }
392
393 if (!page_freeze_refs(page, expected_count)) {
394 spin_unlock_irq(&mapping->tree_lock);
395 return -EAGAIN;
396 }
397
398 get_page(newpage);
399
400 radix_tree_replace_slot(pslot, newpage);
401
Jacobo Giralt937a94c2012-01-10 15:07:11 -0800402 page_unfreeze_refs(page, expected_count - 1);
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900403
404 spin_unlock_irq(&mapping->tree_lock);
405 return 0;
406}
407
408/*
Christoph Lameterb20a3502006-03-22 00:09:12 -0800409 * Copy the page to its new location
410 */
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900411void migrate_page_copy(struct page *newpage, struct page *page)
Christoph Lameterb20a3502006-03-22 00:09:12 -0800412{
Mel Gormanb32967f2012-11-19 12:35:47 +0000413 if (PageHuge(page) || PageTransHuge(page))
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900414 copy_huge_page(newpage, page);
415 else
416 copy_highpage(newpage, page);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800417
418 if (PageError(page))
419 SetPageError(newpage);
420 if (PageReferenced(page))
421 SetPageReferenced(newpage);
422 if (PageUptodate(page))
423 SetPageUptodate(newpage);
Lee Schermerhorn894bc312008-10-18 20:26:39 -0700424 if (TestClearPageActive(page)) {
425 VM_BUG_ON(PageUnevictable(page));
Christoph Lameterb20a3502006-03-22 00:09:12 -0800426 SetPageActive(newpage);
Lee Schermerhorn418b27e2009-12-14 17:59:54 -0800427 } else if (TestClearPageUnevictable(page))
428 SetPageUnevictable(newpage);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800429 if (PageChecked(page))
430 SetPageChecked(newpage);
431 if (PageMappedToDisk(page))
432 SetPageMappedToDisk(newpage);
433
434 if (PageDirty(page)) {
435 clear_page_dirty_for_io(page);
Nick Piggin3a902c52008-04-30 00:55:16 -0700436 /*
437 * Want to mark the page and the radix tree as dirty, and
438 * redo the accounting that clear_page_dirty_for_io undid,
439 * but we can't use set_page_dirty because that function
440 * is actually a signal that all of the page has become dirty.
Lucas De Marchi25985ed2011-03-30 22:57:33 -0300441 * Whereas only part of our page may be dirty.
Nick Piggin3a902c52008-04-30 00:55:16 -0700442 */
Hugh Dickins752dc182012-06-02 00:27:47 -0700443 if (PageSwapBacked(page))
444 SetPageDirty(newpage);
445 else
446 __set_page_dirty_nobuffers(newpage);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800447 }
448
Nick Pigginb291f002008-10-18 20:26:44 -0700449 mlock_migrate_page(newpage, page);
Hugh Dickinse9995ef2009-12-14 17:59:31 -0800450 ksm_migrate_page(newpage, page);
Nick Pigginb291f002008-10-18 20:26:44 -0700451
Christoph Lameterb20a3502006-03-22 00:09:12 -0800452 ClearPageSwapCache(page);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800453 ClearPagePrivate(page);
454 set_page_private(page, 0);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800455
456 /*
457 * If any waiters have accumulated on the new page then
458 * wake them up.
459 */
460 if (PageWriteback(newpage))
461 end_page_writeback(newpage);
462}
Christoph Lameterb20a3502006-03-22 00:09:12 -0800463
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700464/************************************************************
465 * Migration functions
466 ***********************************************************/
467
468/* Always fail migration. Used for mappings that are not movable */
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700469int fail_migrate_page(struct address_space *mapping,
470 struct page *newpage, struct page *page)
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700471{
472 return -EIO;
473}
474EXPORT_SYMBOL(fail_migrate_page);
475
Christoph Lameterb20a3502006-03-22 00:09:12 -0800476/*
477 * Common logic to directly migrate a single page suitable for
David Howells266cf652009-04-03 16:42:36 +0100478 * pages that do not use PagePrivate/PagePrivate2.
Christoph Lameterb20a3502006-03-22 00:09:12 -0800479 *
480 * Pages are locked upon entry and exit.
481 */
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700482int migrate_page(struct address_space *mapping,
Mel Gormana6bc32b2012-01-12 17:19:43 -0800483 struct page *newpage, struct page *page,
484 enum migrate_mode mode)
Christoph Lameterb20a3502006-03-22 00:09:12 -0800485{
486 int rc;
487
488 BUG_ON(PageWriteback(page)); /* Writeback must be complete */
489
Mel Gormana6bc32b2012-01-12 17:19:43 -0800490 rc = migrate_page_move_mapping(mapping, newpage, page, NULL, mode);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800491
492 if (rc)
493 return rc;
494
495 migrate_page_copy(newpage, page);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800496 return 0;
497}
498EXPORT_SYMBOL(migrate_page);
499
David Howells93614012006-09-30 20:45:40 +0200500#ifdef CONFIG_BLOCK
Christoph Lameterb20a3502006-03-22 00:09:12 -0800501/*
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700502 * Migration function for pages with buffers. This function can only be used
503 * if the underlying filesystem guarantees that no other references to "page"
504 * exist.
505 */
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700506int buffer_migrate_page(struct address_space *mapping,
Mel Gormana6bc32b2012-01-12 17:19:43 -0800507 struct page *newpage, struct page *page, enum migrate_mode mode)
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700508{
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700509 struct buffer_head *bh, *head;
510 int rc;
511
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700512 if (!page_has_buffers(page))
Mel Gormana6bc32b2012-01-12 17:19:43 -0800513 return migrate_page(mapping, newpage, page, mode);
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700514
515 head = page_buffers(page);
516
Mel Gormana6bc32b2012-01-12 17:19:43 -0800517 rc = migrate_page_move_mapping(mapping, newpage, page, head, mode);
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700518
519 if (rc)
520 return rc;
521
Mel Gormanb969c4a2012-01-12 17:19:34 -0800522 /*
523 * In the async case, migrate_page_move_mapping locked the buffers
524 * with an IRQ-safe spinlock held. In the sync case, the buffers
525 * need to be locked now
526 */
Mel Gormana6bc32b2012-01-12 17:19:43 -0800527 if (mode != MIGRATE_ASYNC)
528 BUG_ON(!buffer_migrate_lock_buffers(head, mode));
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700529
530 ClearPagePrivate(page);
531 set_page_private(newpage, page_private(page));
532 set_page_private(page, 0);
533 put_page(page);
534 get_page(newpage);
535
536 bh = head;
537 do {
538 set_bh_page(bh, newpage, bh_offset(bh));
539 bh = bh->b_this_page;
540
541 } while (bh != head);
542
543 SetPagePrivate(newpage);
544
545 migrate_page_copy(newpage, page);
546
547 bh = head;
548 do {
549 unlock_buffer(bh);
550 put_bh(bh);
551 bh = bh->b_this_page;
552
553 } while (bh != head);
554
555 return 0;
556}
557EXPORT_SYMBOL(buffer_migrate_page);
David Howells93614012006-09-30 20:45:40 +0200558#endif
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700559
Christoph Lameter04e62a22006-06-23 02:03:38 -0700560/*
561 * Writeback a page to clean the dirty state
562 */
563static int writeout(struct address_space *mapping, struct page *page)
564{
565 struct writeback_control wbc = {
566 .sync_mode = WB_SYNC_NONE,
567 .nr_to_write = 1,
568 .range_start = 0,
569 .range_end = LLONG_MAX,
Christoph Lameter04e62a22006-06-23 02:03:38 -0700570 .for_reclaim = 1
571 };
572 int rc;
573
574 if (!mapping->a_ops->writepage)
575 /* No write method for the address space */
576 return -EINVAL;
577
578 if (!clear_page_dirty_for_io(page))
579 /* Someone else already triggered a write */
580 return -EAGAIN;
581
582 /*
583 * A dirty page may imply that the underlying filesystem has
584 * the page on some queue. So the page must be clean for
585 * migration. Writeout may mean we loose the lock and the
586 * page state is no longer what we checked for earlier.
587 * At this point we know that the migration attempt cannot
588 * be successful.
589 */
590 remove_migration_ptes(page, page);
591
592 rc = mapping->a_ops->writepage(page, &wbc);
Christoph Lameter04e62a22006-06-23 02:03:38 -0700593
594 if (rc != AOP_WRITEPAGE_ACTIVATE)
595 /* unlocked. Relock */
596 lock_page(page);
597
Hugh Dickinsbda85502008-11-19 15:36:36 -0800598 return (rc < 0) ? -EIO : -EAGAIN;
Christoph Lameter04e62a22006-06-23 02:03:38 -0700599}
600
601/*
602 * Default handling if a filesystem does not provide a migration function.
603 */
Christoph Lameter8351a6e2006-06-23 02:03:33 -0700604static int fallback_migrate_page(struct address_space *mapping,
Mel Gormana6bc32b2012-01-12 17:19:43 -0800605 struct page *newpage, struct page *page, enum migrate_mode mode)
Christoph Lameter8351a6e2006-06-23 02:03:33 -0700606{
Mel Gormanb969c4a2012-01-12 17:19:34 -0800607 if (PageDirty(page)) {
Mel Gormana6bc32b2012-01-12 17:19:43 -0800608 /* Only writeback pages in full synchronous migration */
609 if (mode != MIGRATE_SYNC)
Mel Gormanb969c4a2012-01-12 17:19:34 -0800610 return -EBUSY;
Christoph Lameter04e62a22006-06-23 02:03:38 -0700611 return writeout(mapping, page);
Mel Gormanb969c4a2012-01-12 17:19:34 -0800612 }
Christoph Lameter8351a6e2006-06-23 02:03:33 -0700613
614 /*
615 * Buffers may be managed in a filesystem specific way.
616 * We must have no buffers or drop them.
617 */
David Howells266cf652009-04-03 16:42:36 +0100618 if (page_has_private(page) &&
Christoph Lameter8351a6e2006-06-23 02:03:33 -0700619 !try_to_release_page(page, GFP_KERNEL))
620 return -EAGAIN;
621
Mel Gormana6bc32b2012-01-12 17:19:43 -0800622 return migrate_page(mapping, newpage, page, mode);
Christoph Lameter8351a6e2006-06-23 02:03:33 -0700623}
624
Christoph Lameter1d8b85c2006-06-23 02:03:28 -0700625/*
Christoph Lametere24f0b82006-06-23 02:03:51 -0700626 * Move a page to a newly allocated page
627 * The page is locked and all ptes have been successfully removed.
628 *
629 * The new page will have replaced the old page if this function
630 * is successful.
Lee Schermerhorn894bc312008-10-18 20:26:39 -0700631 *
632 * Return value:
633 * < 0 - error code
634 * == 0 - success
Christoph Lametere24f0b82006-06-23 02:03:51 -0700635 */
Mel Gorman3fe20112010-05-24 14:32:20 -0700636static int move_to_new_page(struct page *newpage, struct page *page,
Mel Gormana6bc32b2012-01-12 17:19:43 -0800637 int remap_swapcache, enum migrate_mode mode)
Christoph Lametere24f0b82006-06-23 02:03:51 -0700638{
639 struct address_space *mapping;
640 int rc;
641
642 /*
643 * Block others from accessing the page when we get around to
644 * establishing additional references. We are the only one
645 * holding a reference to the new page at this point.
646 */
Nick Piggin529ae9a2008-08-02 12:01:03 +0200647 if (!trylock_page(newpage))
Christoph Lametere24f0b82006-06-23 02:03:51 -0700648 BUG();
649
650 /* Prepare mapping for the new page.*/
651 newpage->index = page->index;
652 newpage->mapping = page->mapping;
Rik van Rielb2e18532008-10-18 20:26:30 -0700653 if (PageSwapBacked(page))
654 SetPageSwapBacked(newpage);
Christoph Lametere24f0b82006-06-23 02:03:51 -0700655
656 mapping = page_mapping(page);
657 if (!mapping)
Mel Gormana6bc32b2012-01-12 17:19:43 -0800658 rc = migrate_page(mapping, newpage, page, mode);
Mel Gormanb969c4a2012-01-12 17:19:34 -0800659 else if (mapping->a_ops->migratepage)
Christoph Lametere24f0b82006-06-23 02:03:51 -0700660 /*
Mel Gormanb969c4a2012-01-12 17:19:34 -0800661 * Most pages have a mapping and most filesystems provide a
662 * migratepage callback. Anonymous pages are part of swap
663 * space which also has its own migratepage callback. This
664 * is the most common path for page migration.
Christoph Lametere24f0b82006-06-23 02:03:51 -0700665 */
Mel Gormanb969c4a2012-01-12 17:19:34 -0800666 rc = mapping->a_ops->migratepage(mapping,
Mel Gormana6bc32b2012-01-12 17:19:43 -0800667 newpage, page, mode);
Mel Gormanb969c4a2012-01-12 17:19:34 -0800668 else
Mel Gormana6bc32b2012-01-12 17:19:43 -0800669 rc = fallback_migrate_page(mapping, newpage, page, mode);
Christoph Lametere24f0b82006-06-23 02:03:51 -0700670
Mel Gorman3fe20112010-05-24 14:32:20 -0700671 if (rc) {
Christoph Lametere24f0b82006-06-23 02:03:51 -0700672 newpage->mapping = NULL;
Mel Gorman3fe20112010-05-24 14:32:20 -0700673 } else {
674 if (remap_swapcache)
675 remove_migration_ptes(page, newpage);
Konstantin Khlebnikov35512ec2012-02-03 15:37:13 -0800676 page->mapping = NULL;
Mel Gorman3fe20112010-05-24 14:32:20 -0700677 }
Christoph Lametere24f0b82006-06-23 02:03:51 -0700678
679 unlock_page(newpage);
680
681 return rc;
682}
683
Minchan Kim0dabec92011-10-31 17:06:57 -0700684static int __unmap_and_move(struct page *page, struct page *newpage,
Mel Gormana6bc32b2012-01-12 17:19:43 -0800685 int force, bool offlining, enum migrate_mode mode)
Christoph Lametere24f0b82006-06-23 02:03:51 -0700686{
Minchan Kim0dabec92011-10-31 17:06:57 -0700687 int rc = -EAGAIN;
Mel Gorman3fe20112010-05-24 14:32:20 -0700688 int remap_swapcache = 1;
KAMEZAWA Hiroyuki56039ef2011-03-23 16:42:19 -0700689 struct mem_cgroup *mem;
Mel Gorman3f6c8272010-05-24 14:32:17 -0700690 struct anon_vma *anon_vma = NULL;
Christoph Lameter95a402c2006-06-23 02:03:53 -0700691
Nick Piggin529ae9a2008-08-02 12:01:03 +0200692 if (!trylock_page(page)) {
Mel Gormana6bc32b2012-01-12 17:19:43 -0800693 if (!force || mode == MIGRATE_ASYNC)
Minchan Kim0dabec92011-10-31 17:06:57 -0700694 goto out;
Mel Gorman3e7d3442011-01-13 15:45:56 -0800695
696 /*
697 * It's not safe for direct compaction to call lock_page.
698 * For example, during page readahead pages are added locked
699 * to the LRU. Later, when the IO completes the pages are
700 * marked uptodate and unlocked. However, the queueing
701 * could be merging multiple pages for one bio (e.g.
702 * mpage_readpages). If an allocation happens for the
703 * second or third page, the process can end up locking
704 * the same page twice and deadlocking. Rather than
705 * trying to be clever about what pages can be locked,
706 * avoid the use of lock_page for direct compaction
707 * altogether.
708 */
709 if (current->flags & PF_MEMALLOC)
Minchan Kim0dabec92011-10-31 17:06:57 -0700710 goto out;
Mel Gorman3e7d3442011-01-13 15:45:56 -0800711
Christoph Lametere24f0b82006-06-23 02:03:51 -0700712 lock_page(page);
713 }
714
Hugh Dickins62b61f62009-12-14 17:59:33 -0800715 /*
716 * Only memory hotplug's offline_pages() caller has locked out KSM,
717 * and can safely migrate a KSM page. The other cases have skipped
718 * PageKsm along with PageReserved - but it is only now when we have
719 * the page lock that we can be certain it will not go KSM beneath us
720 * (KSM will not upgrade a page from PageAnon to PageKsm when it sees
721 * its pagecount raised, but only here do we take the page lock which
722 * serializes that).
723 */
724 if (PageKsm(page) && !offlining) {
725 rc = -EBUSY;
726 goto unlock;
727 }
728
KAMEZAWA Hiroyuki01b1ae62009-01-07 18:07:50 -0800729 /* charge against new page */
Johannes Weiner0030f532012-07-31 16:45:25 -0700730 mem_cgroup_prepare_migration(page, newpage, &mem);
KAMEZAWA Hiroyuki01b1ae62009-01-07 18:07:50 -0800731
Christoph Lametere24f0b82006-06-23 02:03:51 -0700732 if (PageWriteback(page)) {
Andrea Arcangeli11bc82d2011-03-22 16:33:11 -0700733 /*
Mel Gormana6bc32b2012-01-12 17:19:43 -0800734 * Only in the case of a full syncronous migration is it
735 * necessary to wait for PageWriteback. In the async case,
736 * the retry loop is too short and in the sync-light case,
737 * the overhead of stalling is too much
Andrea Arcangeli11bc82d2011-03-22 16:33:11 -0700738 */
Mel Gormana6bc32b2012-01-12 17:19:43 -0800739 if (mode != MIGRATE_SYNC) {
Andrea Arcangeli11bc82d2011-03-22 16:33:11 -0700740 rc = -EBUSY;
741 goto uncharge;
742 }
743 if (!force)
KAMEZAWA Hiroyuki01b1ae62009-01-07 18:07:50 -0800744 goto uncharge;
Christoph Lametere24f0b82006-06-23 02:03:51 -0700745 wait_on_page_writeback(page);
746 }
Christoph Lametere24f0b82006-06-23 02:03:51 -0700747 /*
KAMEZAWA Hiroyukidc386d42007-07-26 10:41:07 -0700748 * By try_to_unmap(), page->mapcount goes down to 0 here. In this case,
749 * we cannot notice that anon_vma is freed while we migrates a page.
Hugh Dickins1ce82b62011-01-13 15:47:30 -0800750 * This get_anon_vma() delays freeing anon_vma pointer until the end
KAMEZAWA Hiroyukidc386d42007-07-26 10:41:07 -0700751 * of migration. File cache pages are no problem because of page_lock()
KAMEZAWA Hiroyuki989f89c2007-08-30 23:56:21 -0700752 * File Caches may use write_page() or lock_page() in migration, then,
753 * just care Anon page here.
Christoph Lametere24f0b82006-06-23 02:03:51 -0700754 */
KAMEZAWA Hiroyuki989f89c2007-08-30 23:56:21 -0700755 if (PageAnon(page)) {
Hugh Dickins1ce82b62011-01-13 15:47:30 -0800756 /*
757 * Only page_lock_anon_vma() understands the subtleties of
758 * getting a hold on an anon_vma from outside one of its mms.
759 */
Peter Zijlstra746b18d2011-05-24 17:12:10 -0700760 anon_vma = page_get_anon_vma(page);
Hugh Dickins1ce82b62011-01-13 15:47:30 -0800761 if (anon_vma) {
762 /*
Peter Zijlstra746b18d2011-05-24 17:12:10 -0700763 * Anon page
Hugh Dickins1ce82b62011-01-13 15:47:30 -0800764 */
Hugh Dickins1ce82b62011-01-13 15:47:30 -0800765 } else if (PageSwapCache(page)) {
Mel Gorman3fe20112010-05-24 14:32:20 -0700766 /*
767 * We cannot be sure that the anon_vma of an unmapped
768 * swapcache page is safe to use because we don't
769 * know in advance if the VMA that this page belonged
770 * to still exists. If the VMA and others sharing the
771 * data have been freed, then the anon_vma could
772 * already be invalid.
773 *
774 * To avoid this possibility, swapcache pages get
775 * migrated but are not remapped when migration
776 * completes
777 */
778 remap_swapcache = 0;
779 } else {
Hugh Dickins1ce82b62011-01-13 15:47:30 -0800780 goto uncharge;
Mel Gorman3fe20112010-05-24 14:32:20 -0700781 }
KAMEZAWA Hiroyuki989f89c2007-08-30 23:56:21 -0700782 }
Shaohua Li62e1c552008-02-04 22:29:33 -0800783
KAMEZAWA Hiroyukidc386d42007-07-26 10:41:07 -0700784 /*
Shaohua Li62e1c552008-02-04 22:29:33 -0800785 * Corner case handling:
786 * 1. When a new swap-cache page is read into, it is added to the LRU
787 * and treated as swapcache but it has no rmap yet.
788 * Calling try_to_unmap() against a page->mapping==NULL page will
789 * trigger a BUG. So handle it here.
790 * 2. An orphaned page (see truncate_complete_page) might have
791 * fs-private metadata. The page can be picked up due to memory
792 * offlining. Everywhere else except page reclaim, the page is
793 * invisible to the vm, so the page can not be migrated. So try to
794 * free the metadata, so the page can be freed.
KAMEZAWA Hiroyukidc386d42007-07-26 10:41:07 -0700795 */
Shaohua Li62e1c552008-02-04 22:29:33 -0800796 if (!page->mapping) {
Hugh Dickins1ce82b62011-01-13 15:47:30 -0800797 VM_BUG_ON(PageAnon(page));
798 if (page_has_private(page)) {
Shaohua Li62e1c552008-02-04 22:29:33 -0800799 try_to_free_buffers(page);
Hugh Dickins1ce82b62011-01-13 15:47:30 -0800800 goto uncharge;
Shaohua Li62e1c552008-02-04 22:29:33 -0800801 }
Shaohua Liabfc3482009-09-21 17:01:19 -0700802 goto skip_unmap;
Shaohua Li62e1c552008-02-04 22:29:33 -0800803 }
804
KAMEZAWA Hiroyukidc386d42007-07-26 10:41:07 -0700805 /* Establish migration ptes or remove ptes */
Andi Kleen14fa31b2009-09-16 11:50:10 +0200806 try_to_unmap(page, TTU_MIGRATION|TTU_IGNORE_MLOCK|TTU_IGNORE_ACCESS);
KAMEZAWA Hiroyukidc386d42007-07-26 10:41:07 -0700807
Shaohua Liabfc3482009-09-21 17:01:19 -0700808skip_unmap:
Christoph Lametere6a15302006-06-25 05:46:49 -0700809 if (!page_mapped(page))
Mel Gormana6bc32b2012-01-12 17:19:43 -0800810 rc = move_to_new_page(newpage, page, remap_swapcache, mode);
Christoph Lametere24f0b82006-06-23 02:03:51 -0700811
Mel Gorman3fe20112010-05-24 14:32:20 -0700812 if (rc && remap_swapcache)
Christoph Lametere24f0b82006-06-23 02:03:51 -0700813 remove_migration_ptes(page, page);
Mel Gorman3f6c8272010-05-24 14:32:17 -0700814
815 /* Drop an anon_vma reference if we took one */
Rik van Riel76545062010-08-09 17:18:41 -0700816 if (anon_vma)
Peter Zijlstra9e601092011-03-22 16:32:46 -0700817 put_anon_vma(anon_vma);
Mel Gorman3f6c8272010-05-24 14:32:17 -0700818
KAMEZAWA Hiroyuki01b1ae62009-01-07 18:07:50 -0800819uncharge:
Johannes Weiner0030f532012-07-31 16:45:25 -0700820 mem_cgroup_end_migration(mem, page, newpage, rc == 0);
Christoph Lametere24f0b82006-06-23 02:03:51 -0700821unlock:
822 unlock_page(page);
Minchan Kim0dabec92011-10-31 17:06:57 -0700823out:
824 return rc;
825}
Christoph Lameter95a402c2006-06-23 02:03:53 -0700826
Minchan Kim0dabec92011-10-31 17:06:57 -0700827/*
828 * Obtain the lock on page, remove all ptes and migrate the page
829 * to the newly allocated page in newpage.
830 */
831static int unmap_and_move(new_page_t get_new_page, unsigned long private,
Mel Gormana6bc32b2012-01-12 17:19:43 -0800832 struct page *page, int force, bool offlining,
833 enum migrate_mode mode)
Minchan Kim0dabec92011-10-31 17:06:57 -0700834{
835 int rc = 0;
836 int *result = NULL;
837 struct page *newpage = get_new_page(page, private, &result);
838
839 if (!newpage)
840 return -ENOMEM;
841
842 if (page_count(page) == 1) {
843 /* page was freed from under us. So we are done. */
844 goto out;
845 }
846
847 if (unlikely(PageTransHuge(page)))
848 if (unlikely(split_huge_page(page)))
849 goto out;
850
Mel Gormana6bc32b2012-01-12 17:19:43 -0800851 rc = __unmap_and_move(page, newpage, force, offlining, mode);
Minchan Kim0dabec92011-10-31 17:06:57 -0700852out:
Christoph Lametere24f0b82006-06-23 02:03:51 -0700853 if (rc != -EAGAIN) {
Minchan Kim0dabec92011-10-31 17:06:57 -0700854 /*
855 * A page that has been migrated has all references
856 * removed and will be freed. A page that has not been
857 * migrated will have kepts its references and be
858 * restored.
859 */
860 list_del(&page->lru);
KOSAKI Motohiroa7312862009-09-21 17:01:37 -0700861 dec_zone_page_state(page, NR_ISOLATED_ANON +
Johannes Weiner6c0b1352009-09-21 17:02:59 -0700862 page_is_file_cache(page));
Lee Schermerhorn894bc312008-10-18 20:26:39 -0700863 putback_lru_page(page);
Christoph Lametere24f0b82006-06-23 02:03:51 -0700864 }
Christoph Lameter95a402c2006-06-23 02:03:53 -0700865 /*
866 * Move the new page to the LRU. If migration was not successful
867 * then this will free the page.
868 */
Lee Schermerhorn894bc312008-10-18 20:26:39 -0700869 putback_lru_page(newpage);
Christoph Lameter742755a2006-06-23 02:03:55 -0700870 if (result) {
871 if (rc)
872 *result = rc;
873 else
874 *result = page_to_nid(newpage);
875 }
Christoph Lametere24f0b82006-06-23 02:03:51 -0700876 return rc;
877}
878
879/*
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900880 * Counterpart of unmap_and_move_page() for hugepage migration.
881 *
882 * This function doesn't wait the completion of hugepage I/O
883 * because there is no race between I/O and migration for hugepage.
884 * Note that currently hugepage I/O occurs only in direct I/O
885 * where no lock is held and PG_writeback is irrelevant,
886 * and writeback status of all subpages are counted in the reference
887 * count of the head page (i.e. if all subpages of a 2MB hugepage are
888 * under direct I/O, the reference of the head page is 512 and a bit more.)
889 * This means that when we try to migrate hugepage whose subpages are
890 * doing direct I/O, some references remain after try_to_unmap() and
891 * hugepage migration fails without data corruption.
892 *
893 * There is also no race when direct I/O is issued on the page under migration,
894 * because then pte is replaced with migration swap entry and direct I/O code
895 * will wait in the page fault for migration to complete.
896 */
897static int unmap_and_move_huge_page(new_page_t get_new_page,
898 unsigned long private, struct page *hpage,
Mel Gormana6bc32b2012-01-12 17:19:43 -0800899 int force, bool offlining,
900 enum migrate_mode mode)
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900901{
902 int rc = 0;
903 int *result = NULL;
904 struct page *new_hpage = get_new_page(hpage, private, &result);
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900905 struct anon_vma *anon_vma = NULL;
906
907 if (!new_hpage)
908 return -ENOMEM;
909
910 rc = -EAGAIN;
911
912 if (!trylock_page(hpage)) {
Mel Gormana6bc32b2012-01-12 17:19:43 -0800913 if (!force || mode != MIGRATE_SYNC)
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900914 goto out;
915 lock_page(hpage);
916 }
917
Peter Zijlstra746b18d2011-05-24 17:12:10 -0700918 if (PageAnon(hpage))
919 anon_vma = page_get_anon_vma(hpage);
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900920
921 try_to_unmap(hpage, TTU_MIGRATION|TTU_IGNORE_MLOCK|TTU_IGNORE_ACCESS);
922
923 if (!page_mapped(hpage))
Mel Gormana6bc32b2012-01-12 17:19:43 -0800924 rc = move_to_new_page(new_hpage, hpage, 1, mode);
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900925
926 if (rc)
927 remove_migration_ptes(hpage, hpage);
928
Hugh Dickinsfd4a4662011-01-13 15:47:31 -0800929 if (anon_vma)
Peter Zijlstra9e601092011-03-22 16:32:46 -0700930 put_anon_vma(anon_vma);
Aneesh Kumar K.V8e6ac7f2012-07-31 16:42:27 -0700931
932 if (!rc)
933 hugetlb_cgroup_migrate(hpage, new_hpage);
934
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900935 unlock_page(hpage);
Hillf Danton09761332011-12-08 14:34:20 -0800936out:
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900937 put_page(new_hpage);
Naoya Horiguchi290408d2010-09-08 10:19:35 +0900938 if (result) {
939 if (rc)
940 *result = rc;
941 else
942 *result = page_to_nid(new_hpage);
943 }
944 return rc;
945}
946
947/*
Christoph Lameterb20a3502006-03-22 00:09:12 -0800948 * migrate_pages
949 *
Christoph Lameter95a402c2006-06-23 02:03:53 -0700950 * The function takes one list of pages to migrate and a function
951 * that determines from the page to be migrated and the private data
952 * the target of the move and allocates the page.
Christoph Lameterb20a3502006-03-22 00:09:12 -0800953 *
954 * The function returns after 10 attempts or if no pages
955 * are movable anymore because to has become empty
Minchan Kimcf608ac2010-10-26 14:21:29 -0700956 * or no retryable pages exist anymore.
957 * Caller should call putback_lru_pages to return pages to the LRU
Minchan Kim28bd6572011-01-25 15:07:26 -0800958 * or free list only if ret != 0.
Christoph Lameterb20a3502006-03-22 00:09:12 -0800959 *
Christoph Lameter95a402c2006-06-23 02:03:53 -0700960 * Return: Number of pages not migrated or error code.
Christoph Lameterb20a3502006-03-22 00:09:12 -0800961 */
Christoph Lameter95a402c2006-06-23 02:03:53 -0700962int migrate_pages(struct list_head *from,
Mel Gorman7f0f2492011-01-13 15:45:58 -0800963 new_page_t get_new_page, unsigned long private, bool offlining,
Mel Gorman7b2a2d42012-10-19 14:07:31 +0100964 enum migrate_mode mode, int reason)
Christoph Lameterb20a3502006-03-22 00:09:12 -0800965{
Christoph Lametere24f0b82006-06-23 02:03:51 -0700966 int retry = 1;
Christoph Lameterb20a3502006-03-22 00:09:12 -0800967 int nr_failed = 0;
Mel Gorman5647bc22012-10-19 10:46:20 +0100968 int nr_succeeded = 0;
Christoph Lameterb20a3502006-03-22 00:09:12 -0800969 int pass = 0;
970 struct page *page;
971 struct page *page2;
972 int swapwrite = current->flags & PF_SWAPWRITE;
973 int rc;
974
975 if (!swapwrite)
976 current->flags |= PF_SWAPWRITE;
977
Christoph Lametere24f0b82006-06-23 02:03:51 -0700978 for(pass = 0; pass < 10 && retry; pass++) {
979 retry = 0;
Christoph Lameterb20a3502006-03-22 00:09:12 -0800980
Christoph Lametere24f0b82006-06-23 02:03:51 -0700981 list_for_each_entry_safe(page, page2, from, lru) {
Christoph Lametere24f0b82006-06-23 02:03:51 -0700982 cond_resched();
Christoph Lameterb20a3502006-03-22 00:09:12 -0800983
Christoph Lameter95a402c2006-06-23 02:03:53 -0700984 rc = unmap_and_move(get_new_page, private,
Mel Gorman77f1fe62011-01-13 15:45:57 -0800985 page, pass > 2, offlining,
Mel Gormana6bc32b2012-01-12 17:19:43 -0800986 mode);
Christoph Lameterb20a3502006-03-22 00:09:12 -0800987
Christoph Lametere24f0b82006-06-23 02:03:51 -0700988 switch(rc) {
Christoph Lameter95a402c2006-06-23 02:03:53 -0700989 case -ENOMEM:
990 goto out;
Christoph Lametere24f0b82006-06-23 02:03:51 -0700991 case -EAGAIN:
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700992 retry++;
Christoph Lametere24f0b82006-06-23 02:03:51 -0700993 break;
994 case 0:
Mel Gorman5647bc22012-10-19 10:46:20 +0100995 nr_succeeded++;
Christoph Lametere24f0b82006-06-23 02:03:51 -0700996 break;
997 default:
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700998 /* Permanent failure */
Christoph Lameter2d1db3b2006-06-23 02:03:33 -0700999 nr_failed++;
Christoph Lametere24f0b82006-06-23 02:03:51 -07001000 break;
Christoph Lameter2d1db3b2006-06-23 02:03:33 -07001001 }
Christoph Lameterb20a3502006-03-22 00:09:12 -08001002 }
1003 }
Christoph Lameter95a402c2006-06-23 02:03:53 -07001004 rc = 0;
1005out:
Mel Gorman5647bc22012-10-19 10:46:20 +01001006 if (nr_succeeded)
1007 count_vm_events(PGMIGRATE_SUCCESS, nr_succeeded);
1008 if (nr_failed)
1009 count_vm_events(PGMIGRATE_FAIL, nr_failed);
Mel Gorman7b2a2d42012-10-19 14:07:31 +01001010 trace_mm_migrate_pages(nr_succeeded, nr_failed, mode, reason);
1011
Christoph Lameterb20a3502006-03-22 00:09:12 -08001012 if (!swapwrite)
1013 current->flags &= ~PF_SWAPWRITE;
1014
Christoph Lameter95a402c2006-06-23 02:03:53 -07001015 if (rc)
1016 return rc;
1017
Christoph Lameterb20a3502006-03-22 00:09:12 -08001018 return nr_failed + retry;
1019}
1020
Aneesh Kumar K.V189ebff2012-07-31 16:42:06 -07001021int migrate_huge_page(struct page *hpage, new_page_t get_new_page,
1022 unsigned long private, bool offlining,
1023 enum migrate_mode mode)
Naoya Horiguchi290408d2010-09-08 10:19:35 +09001024{
Aneesh Kumar K.V189ebff2012-07-31 16:42:06 -07001025 int pass, rc;
Naoya Horiguchi290408d2010-09-08 10:19:35 +09001026
Aneesh Kumar K.V189ebff2012-07-31 16:42:06 -07001027 for (pass = 0; pass < 10; pass++) {
1028 rc = unmap_and_move_huge_page(get_new_page,
1029 private, hpage, pass > 2, offlining,
1030 mode);
1031 switch (rc) {
1032 case -ENOMEM:
1033 goto out;
1034 case -EAGAIN:
1035 /* try again */
Naoya Horiguchi290408d2010-09-08 10:19:35 +09001036 cond_resched();
Aneesh Kumar K.V189ebff2012-07-31 16:42:06 -07001037 break;
1038 case 0:
1039 goto out;
1040 default:
1041 rc = -EIO;
1042 goto out;
Naoya Horiguchi290408d2010-09-08 10:19:35 +09001043 }
1044 }
Naoya Horiguchi290408d2010-09-08 10:19:35 +09001045out:
Aneesh Kumar K.V189ebff2012-07-31 16:42:06 -07001046 return rc;
Naoya Horiguchi290408d2010-09-08 10:19:35 +09001047}
1048
Christoph Lameter742755a2006-06-23 02:03:55 -07001049#ifdef CONFIG_NUMA
1050/*
1051 * Move a list of individual pages
1052 */
1053struct page_to_node {
1054 unsigned long addr;
1055 struct page *page;
1056 int node;
1057 int status;
1058};
1059
1060static struct page *new_page_node(struct page *p, unsigned long private,
1061 int **result)
1062{
1063 struct page_to_node *pm = (struct page_to_node *)private;
1064
1065 while (pm->node != MAX_NUMNODES && pm->page != p)
1066 pm++;
1067
1068 if (pm->node == MAX_NUMNODES)
1069 return NULL;
1070
1071 *result = &pm->status;
1072
Mel Gorman6484eb32009-06-16 15:31:54 -07001073 return alloc_pages_exact_node(pm->node,
Mel Gorman769848c2007-07-17 04:03:05 -07001074 GFP_HIGHUSER_MOVABLE | GFP_THISNODE, 0);
Christoph Lameter742755a2006-06-23 02:03:55 -07001075}
1076
1077/*
1078 * Move a set of pages as indicated in the pm array. The addr
1079 * field must be set to the virtual address of the page to be moved
1080 * and the node number must contain a valid target node.
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001081 * The pm array ends with node = MAX_NUMNODES.
Christoph Lameter742755a2006-06-23 02:03:55 -07001082 */
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001083static int do_move_page_to_node_array(struct mm_struct *mm,
1084 struct page_to_node *pm,
1085 int migrate_all)
Christoph Lameter742755a2006-06-23 02:03:55 -07001086{
1087 int err;
1088 struct page_to_node *pp;
1089 LIST_HEAD(pagelist);
1090
1091 down_read(&mm->mmap_sem);
1092
1093 /*
1094 * Build a list of pages to migrate
1095 */
Christoph Lameter742755a2006-06-23 02:03:55 -07001096 for (pp = pm; pp->node != MAX_NUMNODES; pp++) {
1097 struct vm_area_struct *vma;
1098 struct page *page;
1099
Christoph Lameter742755a2006-06-23 02:03:55 -07001100 err = -EFAULT;
1101 vma = find_vma(mm, pp->addr);
Gleb Natapov70384dc2010-10-26 14:22:07 -07001102 if (!vma || pp->addr < vma->vm_start || !vma_migratable(vma))
Christoph Lameter742755a2006-06-23 02:03:55 -07001103 goto set_status;
1104
Andrea Arcangeli500d65d2011-01-13 15:46:55 -08001105 page = follow_page(vma, pp->addr, FOLL_GET|FOLL_SPLIT);
Linus Torvalds89f5b7d2008-06-20 11:18:25 -07001106
1107 err = PTR_ERR(page);
1108 if (IS_ERR(page))
1109 goto set_status;
1110
Christoph Lameter742755a2006-06-23 02:03:55 -07001111 err = -ENOENT;
1112 if (!page)
1113 goto set_status;
1114
Hugh Dickins62b61f62009-12-14 17:59:33 -08001115 /* Use PageReserved to check for zero page */
1116 if (PageReserved(page) || PageKsm(page))
Christoph Lameter742755a2006-06-23 02:03:55 -07001117 goto put_and_set;
1118
1119 pp->page = page;
1120 err = page_to_nid(page);
1121
1122 if (err == pp->node)
1123 /*
1124 * Node already in the right place
1125 */
1126 goto put_and_set;
1127
1128 err = -EACCES;
1129 if (page_mapcount(page) > 1 &&
1130 !migrate_all)
1131 goto put_and_set;
1132
Nick Piggin62695a82008-10-18 20:26:09 -07001133 err = isolate_lru_page(page);
KOSAKI Motohiro6d9c2852009-12-14 17:58:11 -08001134 if (!err) {
Nick Piggin62695a82008-10-18 20:26:09 -07001135 list_add_tail(&page->lru, &pagelist);
KOSAKI Motohiro6d9c2852009-12-14 17:58:11 -08001136 inc_zone_page_state(page, NR_ISOLATED_ANON +
1137 page_is_file_cache(page));
1138 }
Christoph Lameter742755a2006-06-23 02:03:55 -07001139put_and_set:
1140 /*
1141 * Either remove the duplicate refcount from
1142 * isolate_lru_page() or drop the page ref if it was
1143 * not isolated.
1144 */
1145 put_page(page);
1146set_status:
1147 pp->status = err;
1148 }
1149
Brice Gogline78bbfa2008-10-18 20:27:15 -07001150 err = 0;
Minchan Kimcf608ac2010-10-26 14:21:29 -07001151 if (!list_empty(&pagelist)) {
Christoph Lameter742755a2006-06-23 02:03:55 -07001152 err = migrate_pages(&pagelist, new_page_node,
Mel Gorman7b2a2d42012-10-19 14:07:31 +01001153 (unsigned long)pm, 0, MIGRATE_SYNC,
1154 MR_SYSCALL);
Minchan Kimcf608ac2010-10-26 14:21:29 -07001155 if (err)
1156 putback_lru_pages(&pagelist);
1157 }
Christoph Lameter742755a2006-06-23 02:03:55 -07001158
1159 up_read(&mm->mmap_sem);
1160 return err;
1161}
1162
1163/*
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001164 * Migrate an array of page address onto an array of nodes and fill
1165 * the corresponding array of status.
1166 */
Christoph Lameter3268c632012-03-21 16:34:06 -07001167static int do_pages_move(struct mm_struct *mm, nodemask_t task_nodes,
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001168 unsigned long nr_pages,
1169 const void __user * __user *pages,
1170 const int __user *nodes,
1171 int __user *status, int flags)
1172{
Brice Goglin3140a222009-01-06 14:38:57 -08001173 struct page_to_node *pm;
Brice Goglin3140a222009-01-06 14:38:57 -08001174 unsigned long chunk_nr_pages;
1175 unsigned long chunk_start;
1176 int err;
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001177
Brice Goglin3140a222009-01-06 14:38:57 -08001178 err = -ENOMEM;
1179 pm = (struct page_to_node *)__get_free_page(GFP_KERNEL);
1180 if (!pm)
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001181 goto out;
Brice Goglin35282a22009-06-16 15:32:43 -07001182
1183 migrate_prep();
1184
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001185 /*
Brice Goglin3140a222009-01-06 14:38:57 -08001186 * Store a chunk of page_to_node array in a page,
1187 * but keep the last one as a marker
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001188 */
Brice Goglin3140a222009-01-06 14:38:57 -08001189 chunk_nr_pages = (PAGE_SIZE / sizeof(struct page_to_node)) - 1;
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001190
Brice Goglin3140a222009-01-06 14:38:57 -08001191 for (chunk_start = 0;
1192 chunk_start < nr_pages;
1193 chunk_start += chunk_nr_pages) {
1194 int j;
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001195
Brice Goglin3140a222009-01-06 14:38:57 -08001196 if (chunk_start + chunk_nr_pages > nr_pages)
1197 chunk_nr_pages = nr_pages - chunk_start;
1198
1199 /* fill the chunk pm with addrs and nodes from user-space */
1200 for (j = 0; j < chunk_nr_pages; j++) {
1201 const void __user *p;
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001202 int node;
1203
Brice Goglin3140a222009-01-06 14:38:57 -08001204 err = -EFAULT;
1205 if (get_user(p, pages + j + chunk_start))
1206 goto out_pm;
1207 pm[j].addr = (unsigned long) p;
1208
1209 if (get_user(node, nodes + j + chunk_start))
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001210 goto out_pm;
1211
1212 err = -ENODEV;
Linus Torvalds6f5a55f2010-02-05 16:16:50 -08001213 if (node < 0 || node >= MAX_NUMNODES)
1214 goto out_pm;
1215
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001216 if (!node_state(node, N_HIGH_MEMORY))
1217 goto out_pm;
1218
1219 err = -EACCES;
1220 if (!node_isset(node, task_nodes))
1221 goto out_pm;
1222
Brice Goglin3140a222009-01-06 14:38:57 -08001223 pm[j].node = node;
1224 }
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001225
Brice Goglin3140a222009-01-06 14:38:57 -08001226 /* End marker for this chunk */
1227 pm[chunk_nr_pages].node = MAX_NUMNODES;
1228
1229 /* Migrate this chunk */
1230 err = do_move_page_to_node_array(mm, pm,
1231 flags & MPOL_MF_MOVE_ALL);
1232 if (err < 0)
1233 goto out_pm;
1234
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001235 /* Return status information */
Brice Goglin3140a222009-01-06 14:38:57 -08001236 for (j = 0; j < chunk_nr_pages; j++)
1237 if (put_user(pm[j].status, status + j + chunk_start)) {
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001238 err = -EFAULT;
Brice Goglin3140a222009-01-06 14:38:57 -08001239 goto out_pm;
1240 }
1241 }
1242 err = 0;
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001243
1244out_pm:
Brice Goglin3140a222009-01-06 14:38:57 -08001245 free_page((unsigned long)pm);
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001246out:
1247 return err;
1248}
1249
1250/*
Brice Goglin2f007e72008-10-18 20:27:16 -07001251 * Determine the nodes of an array of pages and store it in an array of status.
Christoph Lameter742755a2006-06-23 02:03:55 -07001252 */
Brice Goglin80bba122008-12-09 13:14:23 -08001253static void do_pages_stat_array(struct mm_struct *mm, unsigned long nr_pages,
1254 const void __user **pages, int *status)
Christoph Lameter742755a2006-06-23 02:03:55 -07001255{
Brice Goglin2f007e72008-10-18 20:27:16 -07001256 unsigned long i;
Brice Goglin2f007e72008-10-18 20:27:16 -07001257
Christoph Lameter742755a2006-06-23 02:03:55 -07001258 down_read(&mm->mmap_sem);
1259
Brice Goglin2f007e72008-10-18 20:27:16 -07001260 for (i = 0; i < nr_pages; i++) {
Brice Goglin80bba122008-12-09 13:14:23 -08001261 unsigned long addr = (unsigned long)(*pages);
Christoph Lameter742755a2006-06-23 02:03:55 -07001262 struct vm_area_struct *vma;
1263 struct page *page;
KOSAKI Motohiroc095adb2008-12-16 16:06:43 +09001264 int err = -EFAULT;
Brice Goglin2f007e72008-10-18 20:27:16 -07001265
1266 vma = find_vma(mm, addr);
Gleb Natapov70384dc2010-10-26 14:22:07 -07001267 if (!vma || addr < vma->vm_start)
Christoph Lameter742755a2006-06-23 02:03:55 -07001268 goto set_status;
1269
Brice Goglin2f007e72008-10-18 20:27:16 -07001270 page = follow_page(vma, addr, 0);
Linus Torvalds89f5b7d2008-06-20 11:18:25 -07001271
1272 err = PTR_ERR(page);
1273 if (IS_ERR(page))
1274 goto set_status;
1275
Christoph Lameter742755a2006-06-23 02:03:55 -07001276 err = -ENOENT;
1277 /* Use PageReserved to check for zero page */
Hugh Dickins62b61f62009-12-14 17:59:33 -08001278 if (!page || PageReserved(page) || PageKsm(page))
Christoph Lameter742755a2006-06-23 02:03:55 -07001279 goto set_status;
1280
1281 err = page_to_nid(page);
1282set_status:
Brice Goglin80bba122008-12-09 13:14:23 -08001283 *status = err;
1284
1285 pages++;
1286 status++;
1287 }
1288
1289 up_read(&mm->mmap_sem);
1290}
1291
1292/*
1293 * Determine the nodes of a user array of pages and store it in
1294 * a user array of status.
1295 */
1296static int do_pages_stat(struct mm_struct *mm, unsigned long nr_pages,
1297 const void __user * __user *pages,
1298 int __user *status)
1299{
1300#define DO_PAGES_STAT_CHUNK_NR 16
1301 const void __user *chunk_pages[DO_PAGES_STAT_CHUNK_NR];
1302 int chunk_status[DO_PAGES_STAT_CHUNK_NR];
Brice Goglin80bba122008-12-09 13:14:23 -08001303
H. Peter Anvin87b8d1a2010-02-18 16:13:40 -08001304 while (nr_pages) {
1305 unsigned long chunk_nr;
Brice Goglin80bba122008-12-09 13:14:23 -08001306
H. Peter Anvin87b8d1a2010-02-18 16:13:40 -08001307 chunk_nr = nr_pages;
1308 if (chunk_nr > DO_PAGES_STAT_CHUNK_NR)
1309 chunk_nr = DO_PAGES_STAT_CHUNK_NR;
1310
1311 if (copy_from_user(chunk_pages, pages, chunk_nr * sizeof(*chunk_pages)))
1312 break;
Brice Goglin80bba122008-12-09 13:14:23 -08001313
1314 do_pages_stat_array(mm, chunk_nr, chunk_pages, chunk_status);
1315
H. Peter Anvin87b8d1a2010-02-18 16:13:40 -08001316 if (copy_to_user(status, chunk_status, chunk_nr * sizeof(*status)))
1317 break;
Christoph Lameter742755a2006-06-23 02:03:55 -07001318
H. Peter Anvin87b8d1a2010-02-18 16:13:40 -08001319 pages += chunk_nr;
1320 status += chunk_nr;
1321 nr_pages -= chunk_nr;
1322 }
1323 return nr_pages ? -EFAULT : 0;
Christoph Lameter742755a2006-06-23 02:03:55 -07001324}
1325
1326/*
1327 * Move a list of pages in the address space of the currently executing
1328 * process.
1329 */
Heiko Carstens938bb9f2009-01-14 14:14:30 +01001330SYSCALL_DEFINE6(move_pages, pid_t, pid, unsigned long, nr_pages,
1331 const void __user * __user *, pages,
1332 const int __user *, nodes,
1333 int __user *, status, int, flags)
Christoph Lameter742755a2006-06-23 02:03:55 -07001334{
David Howellsc69e8d92008-11-14 10:39:19 +11001335 const struct cred *cred = current_cred(), *tcred;
Christoph Lameter742755a2006-06-23 02:03:55 -07001336 struct task_struct *task;
Christoph Lameter742755a2006-06-23 02:03:55 -07001337 struct mm_struct *mm;
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001338 int err;
Christoph Lameter3268c632012-03-21 16:34:06 -07001339 nodemask_t task_nodes;
Christoph Lameter742755a2006-06-23 02:03:55 -07001340
1341 /* Check flags */
1342 if (flags & ~(MPOL_MF_MOVE|MPOL_MF_MOVE_ALL))
1343 return -EINVAL;
1344
1345 if ((flags & MPOL_MF_MOVE_ALL) && !capable(CAP_SYS_NICE))
1346 return -EPERM;
1347
1348 /* Find the mm_struct */
Greg Thelena879bf52011-02-25 14:44:13 -08001349 rcu_read_lock();
Pavel Emelyanov228ebcb2007-10-18 23:40:16 -07001350 task = pid ? find_task_by_vpid(pid) : current;
Christoph Lameter742755a2006-06-23 02:03:55 -07001351 if (!task) {
Greg Thelena879bf52011-02-25 14:44:13 -08001352 rcu_read_unlock();
Christoph Lameter742755a2006-06-23 02:03:55 -07001353 return -ESRCH;
1354 }
Christoph Lameter3268c632012-03-21 16:34:06 -07001355 get_task_struct(task);
Christoph Lameter742755a2006-06-23 02:03:55 -07001356
1357 /*
1358 * Check if this process has the right to modify the specified
1359 * process. The right exists if the process has administrative
1360 * capabilities, superuser privileges or the same
1361 * userid as the target process.
1362 */
David Howellsc69e8d92008-11-14 10:39:19 +11001363 tcred = __task_cred(task);
Eric W. Biedermanb38a86e2012-03-12 15:48:24 -07001364 if (!uid_eq(cred->euid, tcred->suid) && !uid_eq(cred->euid, tcred->uid) &&
1365 !uid_eq(cred->uid, tcred->suid) && !uid_eq(cred->uid, tcred->uid) &&
Christoph Lameter742755a2006-06-23 02:03:55 -07001366 !capable(CAP_SYS_NICE)) {
David Howellsc69e8d92008-11-14 10:39:19 +11001367 rcu_read_unlock();
Christoph Lameter742755a2006-06-23 02:03:55 -07001368 err = -EPERM;
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001369 goto out;
Christoph Lameter742755a2006-06-23 02:03:55 -07001370 }
David Howellsc69e8d92008-11-14 10:39:19 +11001371 rcu_read_unlock();
Christoph Lameter742755a2006-06-23 02:03:55 -07001372
David Quigley86c3a762006-06-23 02:04:02 -07001373 err = security_task_movememory(task);
1374 if (err)
Brice Goglin5e9a0f02008-10-18 20:27:17 -07001375 goto out;
David Quigley86c3a762006-06-23 02:04:02 -07001376
Christoph Lameter3268c632012-03-21 16:34:06 -07001377 task_nodes = cpuset_mems_allowed(task);
1378 mm = get_task_mm(task);
1379 put_task_struct(task);
1380
Sasha Levin6e8b09e2012-04-25 16:01:53 -07001381 if (!mm)
1382 return -EINVAL;
1383
1384 if (nodes)
1385 err = do_pages_move(mm, task_nodes, nr_pages, pages,
1386 nodes, status, flags);
1387 else
1388 err = do_pages_stat(mm, nr_pages, pages, status);
Christoph Lameter3268c632012-03-21 16:34:06 -07001389
1390 mmput(mm);
1391 return err;
David Quigley86c3a762006-06-23 02:04:02 -07001392
Christoph Lameter742755a2006-06-23 02:03:55 -07001393out:
Christoph Lameter3268c632012-03-21 16:34:06 -07001394 put_task_struct(task);
Christoph Lameter742755a2006-06-23 02:03:55 -07001395 return err;
1396}
Christoph Lameter742755a2006-06-23 02:03:55 -07001397
Christoph Lameter7b2259b2006-06-25 05:46:48 -07001398/*
1399 * Call migration functions in the vma_ops that may prepare
1400 * memory in a vm for migration. migration functions may perform
1401 * the migration for vmas that do not have an underlying page struct.
1402 */
1403int migrate_vmas(struct mm_struct *mm, const nodemask_t *to,
1404 const nodemask_t *from, unsigned long flags)
1405{
1406 struct vm_area_struct *vma;
1407 int err = 0;
1408
Daisuke Nishimura1001c9f2009-02-11 13:04:18 -08001409 for (vma = mm->mmap; vma && !err; vma = vma->vm_next) {
Christoph Lameter7b2259b2006-06-25 05:46:48 -07001410 if (vma->vm_ops && vma->vm_ops->migrate) {
1411 err = vma->vm_ops->migrate(vma, to, from, flags);
1412 if (err)
1413 break;
1414 }
1415 }
1416 return err;
1417}
Peter Zijlstra7039e1d2012-10-25 14:16:34 +02001418
1419#ifdef CONFIG_NUMA_BALANCING
1420/*
1421 * Returns true if this is a safe migration target node for misplaced NUMA
1422 * pages. Currently it only checks the watermarks which crude
1423 */
1424static bool migrate_balanced_pgdat(struct pglist_data *pgdat,
1425 int nr_migrate_pages)
1426{
1427 int z;
1428 for (z = pgdat->nr_zones - 1; z >= 0; z--) {
1429 struct zone *zone = pgdat->node_zones + z;
1430
1431 if (!populated_zone(zone))
1432 continue;
1433
1434 if (zone->all_unreclaimable)
1435 continue;
1436
1437 /* Avoid waking kswapd by allocating pages_to_migrate pages. */
1438 if (!zone_watermark_ok(zone, 0,
1439 high_wmark_pages(zone) +
1440 nr_migrate_pages,
1441 0, 0))
1442 continue;
1443 return true;
1444 }
1445 return false;
1446}
1447
1448static struct page *alloc_misplaced_dst_page(struct page *page,
1449 unsigned long data,
1450 int **result)
1451{
1452 int nid = (int) data;
1453 struct page *newpage;
1454
1455 newpage = alloc_pages_exact_node(nid,
1456 (GFP_HIGHUSER_MOVABLE | GFP_THISNODE |
1457 __GFP_NOMEMALLOC | __GFP_NORETRY |
1458 __GFP_NOWARN) &
1459 ~GFP_IOFS, 0);
Hillf Dantonbac03822012-11-27 14:46:24 +00001460 if (newpage)
1461 page_xchg_last_nid(newpage, page_last_nid(page));
1462
Peter Zijlstra7039e1d2012-10-25 14:16:34 +02001463 return newpage;
1464}
1465
1466/*
Mel Gormana8f60772012-11-14 21:41:46 +00001467 * page migration rate limiting control.
1468 * Do not migrate more than @pages_to_migrate in a @migrate_interval_millisecs
1469 * window of time. Default here says do not migrate more than 1280M per second.
Mel Gormane14808b2012-11-19 10:59:15 +00001470 * If a node is rate-limited then PTE NUMA updates are also rate-limited. However
1471 * as it is faults that reset the window, pte updates will happen unconditionally
1472 * if there has not been a fault since @pteupdate_interval_millisecs after the
1473 * throttle window closed.
Mel Gormana8f60772012-11-14 21:41:46 +00001474 */
1475static unsigned int migrate_interval_millisecs __read_mostly = 100;
Mel Gormane14808b2012-11-19 10:59:15 +00001476static unsigned int pteupdate_interval_millisecs __read_mostly = 1000;
Mel Gormana8f60772012-11-14 21:41:46 +00001477static unsigned int ratelimit_pages __read_mostly = 128 << (20 - PAGE_SHIFT);
1478
Mel Gormane14808b2012-11-19 10:59:15 +00001479/* Returns true if NUMA migration is currently rate limited */
1480bool migrate_ratelimited(int node)
1481{
1482 pg_data_t *pgdat = NODE_DATA(node);
1483
1484 if (time_after(jiffies, pgdat->numabalancing_migrate_next_window +
1485 msecs_to_jiffies(pteupdate_interval_millisecs)))
1486 return false;
1487
1488 if (pgdat->numabalancing_migrate_nr_pages < ratelimit_pages)
1489 return false;
1490
1491 return true;
1492}
1493
Mel Gormanb32967f2012-11-19 12:35:47 +00001494/* Returns true if the node is migrate rate-limited after the update */
Mel Gormand28d43352012-11-29 09:24:36 +00001495bool numamigrate_update_ratelimit(pg_data_t *pgdat, unsigned long nr_pages)
Mel Gormanb32967f2012-11-19 12:35:47 +00001496{
1497 bool rate_limited = false;
1498
1499 /*
1500 * Rate-limit the amount of data that is being migrated to a node.
1501 * Optimal placement is no good if the memory bus is saturated and
1502 * all the time is being spent migrating!
1503 */
1504 spin_lock(&pgdat->numabalancing_migrate_lock);
1505 if (time_after(jiffies, pgdat->numabalancing_migrate_next_window)) {
1506 pgdat->numabalancing_migrate_nr_pages = 0;
1507 pgdat->numabalancing_migrate_next_window = jiffies +
1508 msecs_to_jiffies(migrate_interval_millisecs);
1509 }
1510 if (pgdat->numabalancing_migrate_nr_pages > ratelimit_pages)
1511 rate_limited = true;
1512 else
Mel Gormand28d43352012-11-29 09:24:36 +00001513 pgdat->numabalancing_migrate_nr_pages += nr_pages;
Mel Gormanb32967f2012-11-19 12:35:47 +00001514 spin_unlock(&pgdat->numabalancing_migrate_lock);
1515
1516 return rate_limited;
1517}
1518
1519int numamigrate_isolate_page(pg_data_t *pgdat, struct page *page)
1520{
1521 int ret = 0;
1522
1523 /* Avoid migrating to a node that is nearly full */
1524 if (migrate_balanced_pgdat(pgdat, 1)) {
1525 int page_lru;
1526
1527 if (isolate_lru_page(page)) {
1528 put_page(page);
1529 return 0;
1530 }
1531
1532 /* Page is isolated */
1533 ret = 1;
1534 page_lru = page_is_file_cache(page);
1535 if (!PageTransHuge(page))
1536 inc_zone_page_state(page, NR_ISOLATED_ANON + page_lru);
1537 else
1538 mod_zone_page_state(page_zone(page),
1539 NR_ISOLATED_ANON + page_lru,
1540 HPAGE_PMD_NR);
1541 }
1542
1543 /*
1544 * Page is either isolated or there is not enough space on the target
1545 * node. If isolated, then it has taken a reference count and the
1546 * callers reference can be safely dropped without the page
1547 * disappearing underneath us during migration. Otherwise the page is
1548 * not to be migrated but the callers reference should still be
1549 * dropped so it does not leak.
1550 */
1551 put_page(page);
1552
1553 return ret;
1554}
1555
Mel Gormana8f60772012-11-14 21:41:46 +00001556/*
Peter Zijlstra7039e1d2012-10-25 14:16:34 +02001557 * Attempt to migrate a misplaced page to the specified destination
1558 * node. Caller is expected to have an elevated reference count on
1559 * the page that will be dropped by this function before returning.
1560 */
1561int migrate_misplaced_page(struct page *page, int node)
1562{
Mel Gormana8f60772012-11-14 21:41:46 +00001563 pg_data_t *pgdat = NODE_DATA(node);
Peter Zijlstra7039e1d2012-10-25 14:16:34 +02001564 int isolated = 0;
Mel Gormanb32967f2012-11-19 12:35:47 +00001565 int nr_remaining;
Peter Zijlstra7039e1d2012-10-25 14:16:34 +02001566 LIST_HEAD(migratepages);
1567
1568 /*
1569 * Don't migrate pages that are mapped in multiple processes.
1570 * TODO: Handle false sharing detection instead of this hammer
1571 */
1572 if (page_mapcount(page) != 1) {
1573 put_page(page);
1574 goto out;
1575 }
1576
Mel Gormana8f60772012-11-14 21:41:46 +00001577 /*
1578 * Rate-limit the amount of data that is being migrated to a node.
1579 * Optimal placement is no good if the memory bus is saturated and
1580 * all the time is being spent migrating!
1581 */
Mel Gormand28d43352012-11-29 09:24:36 +00001582 if (numamigrate_update_ratelimit(pgdat, 1)) {
Mel Gormana8f60772012-11-14 21:41:46 +00001583 put_page(page);
1584 goto out;
1585 }
Mel Gormana8f60772012-11-14 21:41:46 +00001586
Mel Gormanb32967f2012-11-19 12:35:47 +00001587 isolated = numamigrate_isolate_page(pgdat, page);
1588 if (!isolated)
1589 goto out;
Peter Zijlstra7039e1d2012-10-25 14:16:34 +02001590
Mel Gormanb32967f2012-11-19 12:35:47 +00001591 list_add(&page->lru, &migratepages);
1592 nr_remaining = migrate_pages(&migratepages,
1593 alloc_misplaced_dst_page,
1594 node, false, MIGRATE_ASYNC,
1595 MR_NUMA_MISPLACED);
1596 if (nr_remaining) {
1597 putback_lru_pages(&migratepages);
1598 isolated = 0;
1599 } else
1600 count_vm_numa_event(NUMA_PAGE_MIGRATE);
Peter Zijlstra7039e1d2012-10-25 14:16:34 +02001601 BUG_ON(!list_empty(&migratepages));
1602out:
1603 return isolated;
1604}
Mel Gorman220018d2012-12-05 09:32:56 +00001605#endif /* CONFIG_NUMA_BALANCING */
Mel Gormanb32967f2012-11-19 12:35:47 +00001606
Mel Gorman220018d2012-12-05 09:32:56 +00001607#if defined(CONFIG_NUMA_BALANCING) && defined(CONFIG_TRANSPARENT_HUGEPAGE)
Mel Gormanb32967f2012-11-19 12:35:47 +00001608int migrate_misplaced_transhuge_page(struct mm_struct *mm,
1609 struct vm_area_struct *vma,
1610 pmd_t *pmd, pmd_t entry,
1611 unsigned long address,
1612 struct page *page, int node)
1613{
1614 unsigned long haddr = address & HPAGE_PMD_MASK;
1615 pg_data_t *pgdat = NODE_DATA(node);
1616 int isolated = 0;
1617 struct page *new_page = NULL;
1618 struct mem_cgroup *memcg = NULL;
1619 int page_lru = page_is_file_cache(page);
1620
1621 /*
1622 * Don't migrate pages that are mapped in multiple processes.
1623 * TODO: Handle false sharing detection instead of this hammer
1624 */
1625 if (page_mapcount(page) != 1)
1626 goto out_dropref;
1627
1628 /*
1629 * Rate-limit the amount of data that is being migrated to a node.
1630 * Optimal placement is no good if the memory bus is saturated and
1631 * all the time is being spent migrating!
1632 */
Mel Gormand28d43352012-11-29 09:24:36 +00001633 if (numamigrate_update_ratelimit(pgdat, HPAGE_PMD_NR))
Mel Gormanb32967f2012-11-19 12:35:47 +00001634 goto out_dropref;
1635
1636 new_page = alloc_pages_node(node,
1637 (GFP_TRANSHUGE | GFP_THISNODE) & ~__GFP_WAIT, HPAGE_PMD_ORDER);
Mel Gorman75483412012-11-27 10:31:44 +00001638 if (!new_page) {
1639 count_vm_events(PGMIGRATE_FAIL, HPAGE_PMD_NR);
Mel Gormanb32967f2012-11-19 12:35:47 +00001640 goto out_dropref;
Mel Gorman75483412012-11-27 10:31:44 +00001641 }
Mel Gormanb32967f2012-11-19 12:35:47 +00001642 page_xchg_last_nid(new_page, page_last_nid(page));
1643
1644 isolated = numamigrate_isolate_page(pgdat, page);
1645 if (!isolated) {
Mel Gorman75483412012-11-27 10:31:44 +00001646 count_vm_events(PGMIGRATE_FAIL, HPAGE_PMD_NR);
Mel Gormanb32967f2012-11-19 12:35:47 +00001647 put_page(new_page);
1648 goto out_keep_locked;
1649 }
1650
1651 /* Prepare a page as a migration target */
1652 __set_page_locked(new_page);
1653 SetPageSwapBacked(new_page);
1654
1655 /* anon mapping, we can simply copy page->mapping to the new page: */
1656 new_page->mapping = page->mapping;
1657 new_page->index = page->index;
1658 migrate_page_copy(new_page, page);
1659 WARN_ON(PageLRU(new_page));
1660
1661 /* Recheck the target PMD */
1662 spin_lock(&mm->page_table_lock);
1663 if (unlikely(!pmd_same(*pmd, entry))) {
1664 spin_unlock(&mm->page_table_lock);
1665
1666 /* Reverse changes made by migrate_page_copy() */
1667 if (TestClearPageActive(new_page))
1668 SetPageActive(page);
1669 if (TestClearPageUnevictable(new_page))
1670 SetPageUnevictable(page);
1671 mlock_migrate_page(page, new_page);
1672
1673 unlock_page(new_page);
1674 put_page(new_page); /* Free it */
1675
1676 unlock_page(page);
1677 putback_lru_page(page);
1678
1679 count_vm_events(PGMIGRATE_FAIL, HPAGE_PMD_NR);
1680 goto out;
1681 }
1682
1683 /*
1684 * Traditional migration needs to prepare the memcg charge
1685 * transaction early to prevent the old page from being
1686 * uncharged when installing migration entries. Here we can
1687 * save the potential rollback and start the charge transfer
1688 * only when migration is already known to end successfully.
1689 */
1690 mem_cgroup_prepare_migration(page, new_page, &memcg);
1691
1692 entry = mk_pmd(new_page, vma->vm_page_prot);
1693 entry = pmd_mknonnuma(entry);
1694 entry = maybe_pmd_mkwrite(pmd_mkdirty(entry), vma);
1695 entry = pmd_mkhuge(entry);
1696
1697 page_add_new_anon_rmap(new_page, vma, haddr);
1698
1699 set_pmd_at(mm, haddr, pmd, entry);
1700 update_mmu_cache_pmd(vma, address, entry);
1701 page_remove_rmap(page);
1702 /*
1703 * Finish the charge transaction under the page table lock to
1704 * prevent split_huge_page() from dividing up the charge
1705 * before it's fully transferred to the new page.
1706 */
1707 mem_cgroup_end_migration(memcg, page, new_page, true);
1708 spin_unlock(&mm->page_table_lock);
1709
1710 unlock_page(new_page);
1711 unlock_page(page);
1712 put_page(page); /* Drop the rmap reference */
1713 put_page(page); /* Drop the LRU isolation reference */
1714
1715 count_vm_events(PGMIGRATE_SUCCESS, HPAGE_PMD_NR);
1716 count_vm_numa_events(NUMA_PAGE_MIGRATE, HPAGE_PMD_NR);
1717
1718out:
1719 mod_zone_page_state(page_zone(page),
1720 NR_ISOLATED_ANON + page_lru,
1721 -HPAGE_PMD_NR);
1722 return isolated;
1723
1724out_dropref:
1725 put_page(page);
1726out_keep_locked:
1727 return 0;
1728}
Peter Zijlstra7039e1d2012-10-25 14:16:34 +02001729#endif /* CONFIG_NUMA_BALANCING */
1730
1731#endif /* CONFIG_NUMA */