// SPDX-License-Identifier: GPL-2.0-only
/*
 * samples/kmemleak/kmemleak-test.c
 *
 * Copyright (C) 2008 ARM Limited
 * Written by Catalin Marinas <catalin.marinas@arm.com>
 */

#define pr_fmt(fmt) "kmemleak: " fmt

#include <linux/init.h>
#include <linux/kernel.h>
#include <linux/module.h>
#include <linux/slab.h>
#include <linux/vmalloc.h>
#include <linux/list.h>
#include <linux/percpu.h>
#include <linux/fdtable.h>

#include <linux/kmemleak.h>

struct test_node {
        long header[25];
        struct list_head list;
        long footer[25];
};

static LIST_HEAD(test_list);
static DEFINE_PER_CPU(void *, kmemleak_test_pointer);

/*
 * Some very simple testing. This function needs to be extended for
 * proper testing.
 */
static int kmemleak_test_init(void)
{
        struct test_node *elem;
        int i;

        pr_info("Kmemleak testing\n");

        /* make some orphan objects */
        pr_info("kmalloc(32) = 0x%px\n", kmalloc(32, GFP_KERNEL));
        pr_info("kmalloc(32) = 0x%px\n", kmalloc(32, GFP_KERNEL));
        pr_info("kmalloc(1024) = 0x%px\n", kmalloc(1024, GFP_KERNEL));
        pr_info("kmalloc(1024) = 0x%px\n", kmalloc(1024, GFP_KERNEL));
        pr_info("kmalloc(2048) = 0x%px\n", kmalloc(2048, GFP_KERNEL));
        pr_info("kmalloc(2048) = 0x%px\n", kmalloc(2048, GFP_KERNEL));
        pr_info("kmalloc(4096) = 0x%px\n", kmalloc(4096, GFP_KERNEL));
        pr_info("kmalloc(4096) = 0x%px\n", kmalloc(4096, GFP_KERNEL));
#ifndef CONFIG_MODULES
        pr_info("kmem_cache_alloc(files_cachep) = 0x%px\n",
                kmem_cache_alloc(files_cachep, GFP_KERNEL));
        pr_info("kmem_cache_alloc(files_cachep) = 0x%px\n",
                kmem_cache_alloc(files_cachep, GFP_KERNEL));
#endif
        pr_info("vmalloc(64) = 0x%px\n", vmalloc(64));
        pr_info("vmalloc(64) = 0x%px\n", vmalloc(64));
        pr_info("vmalloc(64) = 0x%px\n", vmalloc(64));
        pr_info("vmalloc(64) = 0x%px\n", vmalloc(64));
        pr_info("vmalloc(64) = 0x%px\n", vmalloc(64));

        /*
         * Add elements to a list. They should only appear as orphan
         * after the module is removed.
         */
        for (i = 0; i < 10; i++) {
                elem = kzalloc(sizeof(*elem), GFP_KERNEL);
                pr_info("kzalloc(sizeof(*elem)) = 0x%px\n", elem);
                if (!elem)
                        return -ENOMEM;
                INIT_LIST_HEAD(&elem->list);
                list_add_tail(&elem->list, &test_list);
        }

        for_each_possible_cpu(i) {
                per_cpu(kmemleak_test_pointer, i) = kmalloc(129, GFP_KERNEL);
                pr_info("kmalloc(129) = 0x%px\n",
                        per_cpu(kmemleak_test_pointer, i));
        }

        pr_info("__alloc_percpu(64, 4) = 0x%px\n", __alloc_percpu(64, 4));

        return 0;
}
module_init(kmemleak_test_init);

static void __exit kmemleak_test_exit(void)
{
        struct test_node *elem, *tmp;

        /*
         * Remove the list elements without actually freeing the
         * memory.
         */
        list_for_each_entry_safe(elem, tmp, &test_list, list)
                list_del(&elem->list);
}
module_exit(kmemleak_test_exit);

MODULE_DESCRIPTION("Sample module to leak memory for kmemleak testing");
MODULE_LICENSE("GPL");