| /* |
| * 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> |
| |
| #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) |
| |
| /* |
| * 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, 2); |
| 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 -= 4; |
| } |
| 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 += 4; |
| } |
| |
| extern __inline__ void free_pgd_slow (pgd_t *pgd) |
| { |
| free_pages((unsigned long) pgd, 2); |
| } |
| |
| #define pgd_free(pgd) free_pgd_fast(pgd) |
| |
| extern inline void pgd_populate(struct mm_struct *mm, pgd_t *pgd, pmd_t *pmd) |
| { |
| pgd_val(*pgd) = _PGD_ENTRY | __pa(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, 2); |
| 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 -= 4; |
| } |
| return (pmd_t *) ret; |
| } |
| |
| extern __inline__ void pmd_free_fast (pmd_t *pmd) |
| { |
| *(unsigned long *) pmd = (unsigned long) pmd_quicklist; |
| pmd_quicklist = (unsigned long *) pmd; |
| pgtable_cache_size += 4; |
| } |
| |
| extern __inline__ void pmd_free_slow (pmd_t *pmd) |
| { |
| free_pages((unsigned long) pmd, 2); |
| } |
| |
| #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(vma, 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 vm_area_struct *vma, |
| 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 ((smp_num_cpus > 1) && |
| ((atomic_read(&mm->mm_count) != 1) || |
| (mm->cpu_vm_mask != (1UL << smp_processor_id())))) { |
| 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 vm_area_struct *vma, |
| unsigned long start, unsigned long end) |
| { |
| __flush_tlb_mm(vma->vm_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 */ |