Subversion Repositories or1k

/*

 *  include/asm-s390/pgalloc.h

 *

 *  S390 version

 *    Copyright (C) 1999, 2000 IBM Deutschland Entwicklung GmbH, IBM Corporation

 *    Author(s): Hartmut Penner (hpenner@de.ibm.com)

 *               Martin Schwidefsky (schwidefsky@de.ibm.com)

 *

 *  Derived from "include/asm-i386/pgalloc.h"

 *    Copyright (C) 1994  Linus Torvalds

 */

#ifndef _S390_PGALLOC_H

#define _S390_PGALLOC_H

#include <linux/config.h>

#include <asm/processor.h>

#include <linux/threads.h>

#include <linux/slab.h>

#define pgd_quicklist (S390_lowcore.cpu_data.pgd_quick)

#define pmd_quicklist (S390_lowcore.cpu_data.pmd_quick)

#define pte_quicklist (S390_lowcore.cpu_data.pte_quick)

#define pgtable_cache_size (S390_lowcore.cpu_data.pgtable_cache_sz)

extern void diag10(unsigned long addr);

/*

 * Allocate and free page tables. The xxx_kernel() versions are

 * used to allocate a kernel page table - this turns on ASN bits

 * if any.

 */

/*

 * page directory allocation/free routines.

 */

extern __inline__ pgd_t *get_pgd_slow (void)

{

        pgd_t *ret;

        int i;

        ret = (pgd_t *) __get_free_pages(GFP_KERNEL, 1);

        if (ret != NULL)

                for (i = 0; i < PTRS_PER_PGD; i++)

                        pgd_clear(ret + i);

        return ret;

}

extern __inline__ pgd_t *get_pgd_fast (void)

{

        unsigned long *ret = pgd_quicklist;

        if (ret != NULL) {

                pgd_quicklist = (unsigned long *)(*ret);

                ret[0] = ret[1];

                pgtable_cache_size -= 2;

        }

        return (pgd_t *) ret;

}

extern __inline__ pgd_t *pgd_alloc (struct mm_struct *mm)

{

        pgd_t *pgd;

        pgd = get_pgd_fast();

        if (!pgd)

                pgd = get_pgd_slow();

        return pgd;

}

extern __inline__ void free_pgd_fast (pgd_t *pgd)

{

        *(unsigned long *) pgd = (unsigned long) pgd_quicklist;

        pgd_quicklist = (unsigned long *) pgd;

        pgtable_cache_size += 2;

}

extern __inline__ void free_pgd_slow (pgd_t *pgd)

{

        free_pages((unsigned long) pgd, 1);

}

#define pgd_free(pgd)           free_pgd_fast(pgd)

extern pmd_t *pgd_populate(struct mm_struct *mm, pgd_t *pgd, pmd_t *pmd);

/*

 * page middle directory allocation/free routines.

 */

extern inline pmd_t * pmd_alloc_one(struct mm_struct *mm, unsigned long vmaddr)

{

        pmd_t *pmd;

        int i;

        pmd = (pmd_t *) __get_free_pages(GFP_KERNEL, 1);

        if (pmd != NULL) {

                for (i=0; i < PTRS_PER_PMD; i++)

                        pmd_clear(pmd+i);

        }

        return pmd;

}

extern __inline__ pmd_t *

pmd_alloc_one_fast(struct mm_struct *mm, unsigned long address)

{

        unsigned long *ret = (unsigned long *) pmd_quicklist;

        if (ret != NULL) {

                pmd_quicklist = (unsigned long *)(*ret);

                ret[0] = ret[1];

                pgtable_cache_size -= 2;

        }

        return (pmd_t *) ret;

}

extern void pmd_free_order2(pmd_t *);

extern __inline__ void pmd_free_fast (pmd_t *pmd)

{

        if (test_bit(PG_arch_1, &virt_to_page(pmd)->flags) == 0) {

                *(unsigned long *) pmd = (unsigned long) pmd_quicklist;

                pmd_quicklist = (unsigned long *) pmd;

                pgtable_cache_size += 2;

        } else

                pmd_free_order2(pmd);

}

extern __inline__ void pmd_free_slow (pmd_t *pmd)

{

        free_pages((unsigned long) pmd, 1);

}

#define pmd_free(pmd)           pmd_free_fast(pmd)

extern inline void pmd_populate(struct mm_struct *mm, pmd_t *pmd, pte_t *pte)

{

        pmd_val(*pmd) = _PMD_ENTRY | __pa(pte);

        pmd_val1(*pmd) = _PMD_ENTRY | __pa(pte+256);

}

/*

 * page table entry allocation/free routines.

 */

extern inline pte_t * pte_alloc_one(struct mm_struct *mm, unsigned long vmaddr)

{

        pte_t *pte;

        int i;

        pte = (pte_t *) __get_free_page(GFP_KERNEL);

        if (pte != NULL) {

                for (i=0; i < PTRS_PER_PTE; i++)

                        pte_clear(pte+i);

        }

        return pte;

}

extern __inline__ pte_t* pte_alloc_one_fast(struct mm_struct *mm, unsigned long address)

{

        unsigned long *ret = (unsigned long *) pte_quicklist;

        if (ret != NULL) {

                pte_quicklist = (unsigned long *)(*ret);

                ret[0] = ret[1];

                pgtable_cache_size--;

        }

        return (pte_t *)ret;

}

extern __inline__ void pte_free_fast (pte_t *pte)

{

        *(unsigned long *) pte = (unsigned long) pte_quicklist;

        pte_quicklist = (unsigned long *) pte;

        pgtable_cache_size++;

}

extern __inline__ void pte_free_slow (pte_t *pte)

{

        free_page((unsigned long) pte);

}

#define pte_free(pte)           pte_free_fast(pte)

extern int do_check_pgt_cache (int, int);

/*

 * This establishes kernel virtual mappings (e.g., as a result of a

 * vmalloc call).  Since s390-esame uses a separate kernel page table,

 * there is nothing to do here... :)

 */

#define set_pgdir(vmaddr, entry)        do { } while(0)

/*

 * TLB flushing:

 *

 *  - flush_tlb() flushes the current mm struct TLBs

 *  - flush_tlb_all() flushes all processes TLBs

 *    called only from vmalloc/vfree

 *  - flush_tlb_mm(mm) flushes the specified mm context TLB's

 *  - flush_tlb_page(vma, vmaddr) flushes one page

 *  - flush_tlb_range(mm, start, end) flushes a range of pages

 *  - flush_tlb_pgtables(mm, start, end) flushes a range of page tables

 */

/*

 * S/390 has three ways of flushing TLBs

 * 'ptlb' does a flush of the local processor

 * 'csp' flushes the TLBs on all PUs of a SMP

 * 'ipte' invalidates a pte in a page table and flushes that out of

 * the TLBs of all PUs of a SMP

 */

#define local_flush_tlb() \

do {  __asm__ __volatile__("ptlb": : :"memory"); } while (0)

#ifndef CONFIG_SMP

/*

 * We always need to flush, since s390 does not flush tlb

 * on each context switch

 */

static inline void flush_tlb(void)

{

        local_flush_tlb();

}

static inline void flush_tlb_all(void)

{

        local_flush_tlb();

}

static inline void flush_tlb_mm(struct mm_struct *mm)

{

        local_flush_tlb();

}

static inline void flush_tlb_page(struct vm_area_struct *vma,

                                  unsigned long addr)

{

        local_flush_tlb();

}

static inline void flush_tlb_range(struct mm_struct *mm,

                                   unsigned long start, unsigned long end)

{

        local_flush_tlb();

}

#else

#include <asm/smp.h>

static inline void global_flush_tlb(void)

{

        long dummy = 0;

        __asm__ __volatile__ (

                "    la   4,3(%0)\n"

                "    nill 4,0xfffc\n"

                "    la   4,1(4)\n"

                "    slr  2,2\n"

                "    slr  3,3\n"

                "    csp  2,4"

                : : "a" (&dummy) : "cc", "2", "3", "4" );

}

/*

 * We only have to do global flush of tlb if process run since last

 * flush on any other pu than current.

 * If we have threads (mm->count > 1) we always do a global flush,

 * since the process runs on more than one processor at the same time.

 */

static inline void __flush_tlb_mm(struct mm_struct * mm)

{

        if (mm->cpu_vm_mask != (1UL << smp_processor_id())) {

                /* mm was active on more than one cpu. */

                if (mm == current->active_mm &&

                    atomic_read(&mm->mm_users) == 1)

                        /* this cpu is the only one using the mm. */

                        mm->cpu_vm_mask = 1UL << smp_processor_id();

                global_flush_tlb();

        } else

                local_flush_tlb();

}

static inline void flush_tlb(void)

{

        __flush_tlb_mm(current->mm);

}

static inline void flush_tlb_all(void)

{

        global_flush_tlb();

}

static inline void flush_tlb_mm(struct mm_struct *mm)

{

        __flush_tlb_mm(mm);

}

static inline void flush_tlb_page(struct vm_area_struct *vma,

                                  unsigned long addr)

{

        __flush_tlb_mm(vma->vm_mm);

}

static inline void flush_tlb_range(struct mm_struct *mm,

                                   unsigned long start, unsigned long end)

{

        __flush_tlb_mm(mm);

}

#endif

extern inline void flush_tlb_pgtables(struct mm_struct *mm,

                                      unsigned long start, unsigned long end)

{

        /* S/390 does not keep any page table caches in TLB */

}

static inline int ptep_test_and_clear_and_flush_young(struct vm_area_struct *vma,

                                                      unsigned long address, pte_t *ptep)

{

        /* No need to flush TLB; bits are in storage key */

        return ptep_test_and_clear_young(ptep);

}

static inline int ptep_test_and_clear_and_flush_dirty(struct vm_area_struct *vma,

                                                      unsigned long address, pte_t *ptep)

{

        /* No need to flush TLB; bits are in storage key */

        return ptep_test_and_clear_dirty(ptep);

}

static inline pte_t ptep_invalidate(struct vm_area_struct *vma,

                                    unsigned long address, pte_t *ptep)

{

        pte_t pte = *ptep;

        if (!(pte_val(pte) & _PAGE_INVALID))

                __asm__ __volatile__ ("ipte %0,%1" : : "a" (ptep), "a" (address));

        pte_clear(ptep);

        return pte;

}

static inline void ptep_establish(struct vm_area_struct *vma,

                                  unsigned long address, pte_t *ptep, pte_t entry)

{

        ptep_invalidate(vma, address, ptep);

        set_pte(ptep, entry);

}

#endif /* _S390_PGALLOC_H */