/*
 * mm/balloon_compaction.c
 *
 * Common interface for making balloon pages movable by compaction.
 *
 * Copyright (C) 2012, Red Hat, Inc.  Rafael Aquini <aquini@redhat.com>
 */
#include <linux/mm.h>
#include <linux/slab.h>
#include <linux/export.h>
#include <linux/balloon_compaction.h>

/*
 * balloon_page_alloc - allocates a new page for insertion into the balloon
 *                        page list.
 *
 * Driver must call it to properly allocate a new enlisted balloon page.
 * Driver must call balloon_page_enqueue before definitively removing it from
 * the guest system.  This function returns the page address for the recently
 * allocated page or NULL in the case we fail to allocate a new page this turn.
 */
struct page *balloon_page_alloc(void)
{
        struct page *page = alloc_page(balloon_mapping_gfp_mask() |
                                       __GFP_NOMEMALLOC | __GFP_NORETRY);
        return page;
}
EXPORT_SYMBOL_GPL(balloon_page_alloc);

/*
 * balloon_page_enqueue - allocates a new page and inserts it into the balloon
 *                        page list.
 * @b_dev_info: balloon device decriptor where we will insert a new page to
 * @page: new page to enqueue - allocated using balloon_page_alloc.
 *
 * Driver must call it to properly enqueue a new allocated balloon page
 * before definetively removing it from the guest system.
 * This function returns the page address for the recently enqueued page or
 * NULL in the case we fail to allocate a new page this turn.
 */
void balloon_page_enqueue(struct balloon_dev_info *b_dev_info,
                          struct page *page)
{
        unsigned long flags;

        /*
         * Block others from accessing the 'page' when we get around to
         * establishing additional references. We should be the only one
         * holding a reference to the 'page' at this point.
         */
        BUG_ON(!trylock_page(page));
        spin_lock_irqsave(&b_dev_info->pages_lock, flags);
        balloon_page_insert(b_dev_info, page);
        __count_vm_event(BALLOON_INFLATE);
        spin_unlock_irqrestore(&b_dev_info->pages_lock, flags);
        unlock_page(page);
}
EXPORT_SYMBOL_GPL(balloon_page_enqueue);

/*
 * balloon_page_dequeue - removes a page from balloon's page list and returns
 *                        the its address to allow the driver release the page.
 * @b_dev_info: balloon device decriptor where we will grab a page from.
 *
 * Driver must call it to properly de-allocate a previous enlisted balloon page
 * before definetively releasing it back to the guest system.
 * This function returns the page address for the recently dequeued page or
 * NULL in the case we find balloon's page list temporarily empty due to
 * compaction isolated pages.
 */
struct page *balloon_page_dequeue(struct balloon_dev_info *b_dev_info)
{
        struct page *page, *tmp;
        unsigned long flags;
        bool dequeued_page;

        dequeued_page = false;
        spin_lock_irqsave(&b_dev_info->pages_lock, flags);
        list_for_each_entry_safe(page, tmp, &b_dev_info->pages, lru) {
                /*
                 * Block others from accessing the 'page' while we get around
                 * establishing additional references and preparing the 'page'
                 * to be released by the balloon driver.
                 */
                if (trylock_page(page)) {
#ifdef CONFIG_BALLOON_COMPACTION
                        if (!PagePrivate(page)) {
                                /* raced with isolation */
                                unlock_page(page);
                                continue;
                        }
#endif
                        balloon_page_delete(page);
                        __count_vm_event(BALLOON_DEFLATE);
                        unlock_page(page);
                        dequeued_page = true;
                        break;
                }
        }
        spin_unlock_irqrestore(&b_dev_info->pages_lock, flags);

        if (!dequeued_page) {
                /*
                 * If we are unable to dequeue a balloon page because the page
                 * list is empty and there is no isolated pages, then something
                 * went out of track and some balloon pages are lost.
                 * BUG() here, otherwise the balloon driver may get stuck into
                 * an infinite loop while attempting to release all its pages.
                 */
                spin_lock_irqsave(&b_dev_info->pages_lock, flags);
                if (unlikely(list_empty(&b_dev_info->pages) &&
                             !b_dev_info->isolated_pages))
                        BUG();
                spin_unlock_irqrestore(&b_dev_info->pages_lock, flags);
                page = NULL;
        }
        return page;
}
EXPORT_SYMBOL_GPL(balloon_page_dequeue);

#ifdef CONFIG_BALLOON_COMPACTION

static inline void __isolate_balloon_page(struct page *page)
{
        struct balloon_dev_info *b_dev_info = balloon_page_device(page);
        unsigned long flags;

        spin_lock_irqsave(&b_dev_info->pages_lock, flags);
        ClearPagePrivate(page);
        list_del(&page->lru);
        b_dev_info->isolated_pages++;
        spin_unlock_irqrestore(&b_dev_info->pages_lock, flags);
}

static inline void __putback_balloon_page(struct page *page)
{
        struct balloon_dev_info *b_dev_info = balloon_page_device(page);
        unsigned long flags;

        spin_lock_irqsave(&b_dev_info->pages_lock, flags);
        SetPagePrivate(page);
        list_add(&page->lru, &b_dev_info->pages);
        b_dev_info->isolated_pages--;
        spin_unlock_irqrestore(&b_dev_info->pages_lock, flags);
}

/* __isolate_lru_page() counterpart for a ballooned page */
bool balloon_page_isolate(struct page *page)
{
        /*
         * Avoid burning cycles with pages that are yet under __free_pages(),
         * or just got freed under us.
         *
         * In case we 'win' a race for a balloon page being freed under us and
         * raise its refcount preventing __free_pages() from doing its job
         * the put_page() at the end of this block will take care of
         * release this page, thus avoiding a nasty leakage.
         */
        if (likely(get_page_unless_zero(page))) {
                /*
                 * As balloon pages are not isolated from LRU lists, concurrent
                 * compaction threads can race against page migration functions
                 * as well as race against the balloon driver releasing a page.
                 *
                 * In order to avoid having an already isolated balloon page
                 * being (wrongly) re-isolated while it is under migration,
                 * or to avoid attempting to isolate pages being released by
                 * the balloon driver, lets be sure we have the page lock
                 * before proceeding with the balloon page isolation steps.
                 */
                if (likely(trylock_page(page))) {
                        /*
                         * A ballooned page, by default, has PagePrivate set.
                         * Prevent concurrent compaction threads from isolating
                         * an already isolated balloon page by clearing it.
                         */
                        if (balloon_page_movable(page)) {
                                __isolate_balloon_page(page);
                                unlock_page(page);
                                return true;
                        }
                        unlock_page(page);
                }
                put_page(page);
        }
        return false;
}

/* putback_lru_page() counterpart for a ballooned page */
void balloon_page_putback(struct page *page)
{
        /*
         * 'lock_page()' stabilizes the page and prevents races against
         * concurrent isolation threads attempting to re-isolate it.
         */
        lock_page(page);

        if (__is_movable_balloon_page(page)) {
                __putback_balloon_page(page);
                /* drop the extra ref count taken for page isolation */
                put_page(page);
        } else {
                WARN_ON(1);
                dump_page(page, "not movable balloon page");
        }
        unlock_page(page);
}

/* move_to_new_page() counterpart for a ballooned page */
int balloon_page_migrate(struct page *newpage,
                         struct page *page, enum migrate_mode mode)
{
        struct balloon_dev_info *balloon = balloon_page_device(page);
        int rc = -EAGAIN;

        /*
         * We can not easily support the no copy case here so ignore it as it
         * is unlikely to be use with ballon pages. See include/linux/hmm.h for
         * user of the MIGRATE_SYNC_NO_COPY mode.
         */
        if (mode == MIGRATE_SYNC_NO_COPY)
                return -EINVAL;

        /*
         * Block others from accessing the 'newpage' when we get around to
         * establishing additional references. We should be the only one
         * holding a reference to the 'newpage' at this point.
         */
        BUG_ON(!trylock_page(newpage));

        if (WARN_ON(!__is_movable_balloon_page(page))) {
                dump_page(page, "not movable balloon page");
                unlock_page(newpage);
                return rc;
        }

        if (balloon && balloon->migratepage)
                rc = balloon->migratepage(balloon, newpage, page, mode);

        unlock_page(newpage);
        return rc;
}
#endif /* CONFIG_BALLOON_COMPACTION */