Subversion Repositories HelenOS

Rev

Rev 1383 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1383 Rev 1384
1
/*
1
/*
2
 * Copyright (C) 2005 Martin Decky
2
 * Copyright (C) 2005 Martin Decky
3
 * All rights reserved.
3
 * All rights reserved.
4
 *
4
 *
5
 * Redistribution and use in source and binary forms, with or without
5
 * Redistribution and use in source and binary forms, with or without
6
 * modification, are permitted provided that the following conditions
6
 * modification, are permitted provided that the following conditions
7
 * are met:
7
 * are met:
8
 *
8
 *
9
 * - Redistributions of source code must retain the above copyright
9
 * - Redistributions of source code must retain the above copyright
10
 *   notice, this list of conditions and the following disclaimer.
10
 *   notice, this list of conditions and the following disclaimer.
11
 * - Redistributions in binary form must reproduce the above copyright
11
 * - Redistributions in binary form must reproduce the above copyright
12
 *   notice, this list of conditions and the following disclaimer in the
12
 *   notice, this list of conditions and the following disclaimer in the
13
 *   documentation and/or other materials provided with the distribution.
13
 *   documentation and/or other materials provided with the distribution.
14
 * - The name of the author may not be used to endorse or promote products
14
 * - The name of the author may not be used to endorse or promote products
15
 *   derived from this software without specific prior written permission.
15
 *   derived from this software without specific prior written permission.
16
 *
16
 *
17
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
17
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
18
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
19
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
20
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
21
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
22
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
23
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
24
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
25
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27
 */
27
 */
28
 
28
 
29
#include <arch/mm/page.h>
29
#include <arch/mm/page.h>
30
#include <genarch/mm/page_pt.h>
30
#include <genarch/mm/page_pt.h>
31
#include <arch/mm/frame.h>
31
#include <arch/mm/frame.h>
32
#include <arch/asm.h>
32
#include <arch/asm.h>
33
#include <mm/frame.h>
33
#include <mm/frame.h>
34
#include <mm/page.h>
34
#include <mm/page.h>
35
#include <mm/as.h>
35
#include <mm/as.h>
36
#include <arch.h>
36
#include <arch.h>
37
#include <arch/types.h>
37
#include <arch/types.h>
38
#include <arch/exception.h>
38
#include <arch/exception.h>
39
#include <align.h>
39
#include <align.h>
40
#include <config.h>
40
#include <config.h>
41
#include <print.h>
41
#include <print.h>
42
#include <symtab.h>
42
#include <symtab.h>
43
 
43
 
44
static phte_t *phte;
44
static phte_t *phte;
45
 
45
 
46
 
46
 
47
/** Try to find PTE for faulting address
47
/** Try to find PTE for faulting address
48
 *
48
 *
49
 * Try to find PTE for faulting address.
49
 * Try to find PTE for faulting address.
50
 * The as->lock must be held on entry to this function
50
 * The as->lock must be held on entry to this function
51
 * if lock is true.
51
 * if lock is true.
52
 *
52
 *
53
 * @param as       Address space.
53
 * @param as       Address space.
54
 * @param lock     Lock/unlock the address space.
54
 * @param lock     Lock/unlock the address space.
55
 * @param badvaddr Faulting virtual address.
55
 * @param badvaddr Faulting virtual address.
56
 * @param istate   Pointer to interrupted state.
56
 * @param istate   Pointer to interrupted state.
57
 * @param pfrc     Pointer to variable where as_page_fault() return code will be stored.
57
 * @param pfrc     Pointer to variable where as_page_fault() return code will be stored.
58
 * @return         PTE on success, NULL otherwise.
58
 * @return         PTE on success, NULL otherwise.
59
 *
59
 *
60
 */
60
 */
61
static pte_t *find_mapping_and_check(as_t *as, bool lock, __address badvaddr, istate_t *istate, int *pfcr)
61
static pte_t *find_mapping_and_check(as_t *as, bool lock, __address badvaddr, istate_t *istate, int *pfcr)
62
{
62
{
63
    /*
63
    /*
64
     * Check if the mapping exists in page tables.
64
     * Check if the mapping exists in page tables.
65
     */
65
     */
66
    pte_t *pte = page_mapping_find(as, badvaddr);
66
    pte_t *pte = page_mapping_find(as, badvaddr);
67
    if ((pte) && (pte->p)) {
67
    if ((pte) && (pte->p)) {
68
        /*
68
        /*
69
         * Mapping found in page tables.
69
         * Mapping found in page tables.
70
         * Immediately succeed.
70
         * Immediately succeed.
71
         */
71
         */
72
        return pte;
72
        return pte;
73
    } else {
73
    } else {
74
        int rc;
74
        int rc;
75
   
75
   
76
        /*
76
        /*
77
         * Mapping not found in page tables.
77
         * Mapping not found in page tables.
78
         * Resort to higher-level page fault handler.
78
         * Resort to higher-level page fault handler.
79
         */
79
         */
80
        page_table_unlock(as, lock);
80
        page_table_unlock(as, lock);
81
        switch (rc = as_page_fault(badvaddr, istate)) {
81
        switch (rc = as_page_fault(badvaddr, istate)) {
82
            case AS_PF_OK:
82
            case AS_PF_OK:
83
                /*
83
                /*
84
                 * The higher-level page fault handler succeeded,
84
                 * The higher-level page fault handler succeeded,
85
                 * The mapping ought to be in place.
85
                 * The mapping ought to be in place.
86
                 */
86
                 */
87
                page_table_lock(as, lock);
87
                page_table_lock(as, lock);
88
                pte = page_mapping_find(as, badvaddr);
88
                pte = page_mapping_find(as, badvaddr);
89
                ASSERT((pte) && (pte->p));
89
                ASSERT((pte) && (pte->p));
90
                return pte;
90
                return pte;
91
            case AS_PF_DEFER:
91
            case AS_PF_DEFER:
92
                page_table_lock(as, lock);
92
                page_table_lock(as, lock);
93
                *pfcr = rc;
93
                *pfcr = rc;
94
                return NULL;
94
                return NULL;
95
            case AS_PF_FAULT:
95
            case AS_PF_FAULT:
96
                page_table_lock(as, lock);
96
                page_table_lock(as, lock);
97
                printf("Page fault.\n");
97
                printf("Page fault.\n");
98
                *pfcr = rc;
98
                *pfcr = rc;
99
                return NULL;
99
                return NULL;
100
            default:
100
            default:
101
                panic("unexpected rc (%d)\n", rc);
101
                panic("unexpected rc (%d)\n", rc);
102
        }  
102
        }  
103
    }
103
    }
104
}
104
}
105
 
105
 
106
 
106
 
107
static void pht_refill_fail(__address badvaddr, istate_t *istate)
107
static void pht_refill_fail(__address badvaddr, istate_t *istate)
108
{
108
{
109
    char *symbol = "";
109
    char *symbol = "";
110
    char *sym2 = "";
110
    char *sym2 = "";
111
 
111
 
112
    char *s = get_symtab_entry(istate->pc);
112
    char *s = get_symtab_entry(istate->pc);
113
    if (s)
113
    if (s)
114
        symbol = s;
114
        symbol = s;
115
    s = get_symtab_entry(istate->lr);
115
    s = get_symtab_entry(istate->lr);
116
    if (s)
116
    if (s)
117
        sym2 = s;
117
        sym2 = s;
118
    panic("%p: PHT Refill Exception at %p (%s<-%s)\n", badvaddr, istate->pc, symbol, sym2);
118
    panic("%p: PHT Refill Exception at %p (%s<-%s)\n", badvaddr, istate->pc, symbol, sym2);
119
}
119
}
120
 
120
 
121
 
121
 
122
static void pht_insert(const __address vaddr, const pfn_t pfn)
122
static void pht_insert(const __address vaddr, const pfn_t pfn)
123
{
123
{
124
    __u32 page = (vaddr >> 12) & 0xffff;
124
    __u32 page = (vaddr >> 12) & 0xffff;
125
    __u32 api = (vaddr >> 22) & 0x3f;
125
    __u32 api = (vaddr >> 22) & 0x3f;
126
    __u32 vsid;
126
    __u32 vsid;
127
   
127
   
128
    asm volatile (
128
    asm volatile (
129
        "mfsrin %0, %1\n"
129
        "mfsrin %0, %1\n"
130
        : "=r" (vsid)
130
        : "=r" (vsid)
131
        : "r" (vaddr)
131
        : "r" (vaddr)
132
    );
132
    );
133
   
133
   
134
    /* Primary hash (xor) */
134
    /* Primary hash (xor) */
135
    __u32 hash = ((vsid ^ page) & 0x3ff) << 3;
135
    __u32 hash = ((vsid ^ page) & 0x3ff) << 3;
136
   
136
   
137
    __u32 i;
137
    __u32 i;
138
    bool found = false;
138
    bool found = false;
139
    /* Find unused PTE in PTEG */
139
    /* Find unused PTE in PTEG */
140
    for (i = 0; i < 8; i++) {
140
    for (i = 0; i < 8; i++) {
141
        if (!phte[hash + i].v) {
141
        if (!phte[hash + i].v) {
142
            found = true;
142
            found = true;
143
            break;
143
            break;
144
        }
144
        }
145
    }
145
    }
146
   
146
   
147
    if (!found) {
147
    if (!found) {
148
        /* Secondary hash (not) */
148
        /* Secondary hash (not) */
149
        hash = ~hash;
149
        hash = ~hash;
150
       
150
       
151
        /* Find unused PTE in PTEG */
151
        /* Find unused PTE in PTEG */
152
        for (i = 0; i < 8; i++) {
152
        for (i = 0; i < 8; i++) {
153
            if (!phte[hash + i].v) {
153
            if (!phte[hash + i].v) {
154
                found = true;
154
                found = true;
155
                break;
155
                break;
156
            }
156
            }
157
        }
157
        }
158
       
158
       
159
        if (!found) {
159
        if (!found) {
160
            // TODO: A/C precedence groups
160
            // TODO: A/C precedence groups
161
            i = page % 8;
161
            i = page % 8;
162
        }
162
        }
163
    }
163
    }
164
   
164
   
165
    phte[hash + i].v = 1;
165
    phte[hash + i].v = 1;
166
    phte[hash + i].vsid = vsid;
166
    phte[hash + i].vsid = vsid;
167
    phte[hash + i].h = 0;
167
    phte[hash + i].h = 0;
168
    phte[hash + i].api = api;
168
    phte[hash + i].api = api;
169
    phte[hash + i].rpn = pfn;
169
    phte[hash + i].rpn = pfn;
170
    phte[hash + i].r = 0;
170
    phte[hash + i].r = 0;
171
    phte[hash + i].c = 0;
171
    phte[hash + i].c = 0;
172
    phte[hash + i].pp = 2; // FIXME
172
    phte[hash + i].pp = 2; // FIXME
173
}
173
}
174
 
174
 
175
 
175
 
176
/** Process Instruction/Data Storage Interrupt
176
/** Process Instruction/Data Storage Interrupt
177
 *
177
 *
178
 * @param data   True if Data Storage Interrupt.
178
 * @param data   True if Data Storage Interrupt.
179
 * @param istate Interrupted register context.
179
 * @param istate Interrupted register context.
180
 *
180
 *
181
 */
181
 */
182
void pht_refill(bool data, istate_t *istate)
182
void pht_refill(bool data, istate_t *istate)
183
{
183
{
184
    asid_t asid;
-
 
185
    __address badvaddr;
184
    __address badvaddr;
186
    pte_t *pte;
185
    pte_t *pte;
187
    int pfcr;
186
    int pfcr;
188
    as_t *as;
187
    as_t *as;
189
    bool lock;
188
    bool lock;
190
   
189
   
191
    if (AS == NULL) {
190
    if (AS == NULL) {
192
        as = AS_KERNEL;
191
        as = AS_KERNEL;
193
        lock = false;
192
        lock = false;
194
    } else {
193
    } else {
195
        as = AS;
194
        as = AS;
196
        lock = true;
195
        lock = true;
197
    }
196
    }
198
   
197
   
199
    if (data) {
198
    if (data) {
200
        asm volatile (
199
        asm volatile (
201
            "mfdar %0\n"
200
            "mfdar %0\n"
202
            : "=r" (badvaddr)
201
            : "=r" (badvaddr)
203
        );
202
        );
204
    } else
203
    } else
205
        badvaddr = istate->pc;
204
        badvaddr = istate->pc;
206
       
205
       
207
    spinlock_lock(&as->lock);
-
 
208
    asid = as->asid;
-
 
209
    spinlock_unlock(&as->lock);
-
 
210
   
-
 
211
    page_table_lock(as, lock);
206
    page_table_lock(as, lock);
212
   
207
   
213
    pte = find_mapping_and_check(as, lock, badvaddr, istate, &pfcr);
208
    pte = find_mapping_and_check(as, lock, badvaddr, istate, &pfcr);
214
    if (!pte) {
209
    if (!pte) {
215
        switch (pfcr) {
210
        switch (pfcr) {
216
            case AS_PF_FAULT:
211
            case AS_PF_FAULT:
217
                goto fail;
212
                goto fail;
218
                break;
213
                break;
219
            case AS_PF_DEFER:
214
            case AS_PF_DEFER:
220
                /*
215
                /*
221
                 * The page fault came during copy_from_uspace()
216
                 * The page fault came during copy_from_uspace()
222
                 * or copy_to_uspace().
217
                 * or copy_to_uspace().
223
                 */
218
                 */
224
                page_table_unlock(as, lock);
219
                page_table_unlock(as, lock);
225
                return;
220
                return;
226
            default:
221
            default:
227
                panic("Unexpected pfrc (%d)\n", pfcr);
222
                panic("Unexpected pfrc (%d)\n", pfcr);
228
        }
223
        }
229
    }
224
    }
230
   
225
   
231
    pte->a = 1; /* Record access to PTE */
226
    pte->a = 1; /* Record access to PTE */
232
    pht_insert(badvaddr, pte->pfn);
227
    pht_insert(badvaddr, pte->pfn);
233
   
228
   
234
    page_table_unlock(as, lock);
229
    page_table_unlock(as, lock);
235
    return;
230
    return;
236
   
231
   
237
fail:
232
fail:
238
    page_table_unlock(as, lock);
233
    page_table_unlock(as, lock);
239
    pht_refill_fail(badvaddr, istate);
234
    pht_refill_fail(badvaddr, istate);
240
}
235
}
241
 
236
 
242
 
237
 
243
void pht_init(void)
238
void pht_init(void)
244
{
239
{
245
    memsetb((__address) phte, 1 << PHT_BITS, 0);
240
    memsetb((__address) phte, 1 << PHT_BITS, 0);
246
}
241
}
247
 
242
 
248
 
243
 
249
void page_arch_init(void)
244
void page_arch_init(void)
250
{
245
{
251
    if (config.cpu_active == 1) {
246
    if (config.cpu_active == 1) {
252
        page_mapping_operations = &pt_mapping_operations;
247
        page_mapping_operations = &pt_mapping_operations;
253
       
248
       
254
        /* Allocate page hash table */
249
        /* Allocate page hash table */
255
        phte_t *physical_phte = (phte_t *) PFN2ADDR(frame_alloc(PHT_ORDER, FRAME_KA | FRAME_PANIC));
250
        phte_t *physical_phte = (phte_t *) PFN2ADDR(frame_alloc(PHT_ORDER, FRAME_KA | FRAME_PANIC));
256
        phte = (phte_t *) PA2KA((__address) physical_phte);
251
        phte = (phte_t *) PA2KA((__address) physical_phte);
257
       
252
       
258
        ASSERT((__address) physical_phte % (1 << PHT_BITS) == 0);
253
        ASSERT((__address) physical_phte % (1 << PHT_BITS) == 0);
259
        pht_init();
254
        pht_init();
260
       
255
       
261
        asm volatile (
256
        asm volatile (
262
            "mtsdr1 %0\n"
257
            "mtsdr1 %0\n"
263
            :
258
            :
264
            : "r" ((__address) physical_phte)
259
            : "r" ((__address) physical_phte)
265
        );
260
        );
266
    }
261
    }
267
}
262
}
268
 
263
 
269
 
264
 
270
__address hw_map(__address physaddr, size_t size)
265
__address hw_map(__address physaddr, size_t size)
271
{
266
{
272
    if (last_frame + ALIGN_UP(size, PAGE_SIZE) > KA2PA(KERNEL_ADDRESS_SPACE_END_ARCH))
267
    if (last_frame + ALIGN_UP(size, PAGE_SIZE) > KA2PA(KERNEL_ADDRESS_SPACE_END_ARCH))
273
        panic("Unable to map physical memory %p (%d bytes)", physaddr, size)
268
        panic("Unable to map physical memory %p (%d bytes)", physaddr, size)
274
   
269
   
275
    __address virtaddr = PA2KA(last_frame);
270
    __address virtaddr = PA2KA(last_frame);
276
    pfn_t i;
271
    pfn_t i;
277
    for (i = 0; i < ADDR2PFN(ALIGN_UP(size, PAGE_SIZE)); i++)
272
    for (i = 0; i < ADDR2PFN(ALIGN_UP(size, PAGE_SIZE)); i++)
278
        page_mapping_insert(AS_KERNEL, virtaddr + PFN2ADDR(i), physaddr + PFN2ADDR(i), PAGE_NOT_CACHEABLE);
273
        page_mapping_insert(AS_KERNEL, virtaddr + PFN2ADDR(i), physaddr + PFN2ADDR(i), PAGE_NOT_CACHEABLE);
279
   
274
   
280
    last_frame = ALIGN_UP(last_frame + size, FRAME_SIZE);
275
    last_frame = ALIGN_UP(last_frame + size, FRAME_SIZE);
281
   
276
   
282
    return virtaddr;
277
    return virtaddr;
283
}
278
}
284
 
279