kvm_alpha.c revision 1.12 1 /* $NetBSD: kvm_alpha.c,v 1.12 1998/06/30 20:29:39 thorpej Exp $ */
2
3 /*
4 * Copyright (c) 1994, 1995 Carnegie-Mellon University.
5 * All rights reserved.
6 *
7 * Author: Chris G. Demetriou
8 *
9 * Permission to use, copy, modify and distribute this software and
10 * its documentation is hereby granted, provided that both the copyright
11 * notice and this permission notice appear in all copies of the
12 * software, derivative works or modified versions, and any portions
13 * thereof, and that both notices appear in supporting documentation.
14 *
15 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
16 * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND
17 * FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
18 *
19 * Carnegie Mellon requests users of this software to return to
20 *
21 * Software Distribution Coordinator or Software.Distribution (at) CS.CMU.EDU
22 * School of Computer Science
23 * Carnegie Mellon University
24 * Pittsburgh PA 15213-3890
25 *
26 * any improvements or extensions that they make and grant Carnegie the
27 * rights to redistribute these changes.
28 */
29
30 #define __KVM_ALPHA_PRIVATE /* see <machine/pte.h> */
31
32 #include <sys/param.h>
33 #include <sys/user.h>
34 #include <sys/proc.h>
35 #include <sys/stat.h>
36 #include <sys/kcore.h>
37 #include <machine/kcore.h>
38 #include <unistd.h>
39 #include <nlist.h>
40 #include <kvm.h>
41
42 #include <vm/vm.h>
43 #include <vm/vm_param.h>
44
45 #include <limits.h>
46 #include <db.h>
47 #include <stdlib.h>
48
49 #include "kvm_private.h"
50
51 struct vmstate {
52 vm_size_t page_shift;
53 };
54
55 void
56 _kvm_freevtop(kd)
57 kvm_t *kd;
58 {
59
60 if (kd->vmst != 0)
61 free(kd->vmst);
62 }
63
64 int
65 _kvm_initvtop(kd)
66 kvm_t *kd;
67 {
68 cpu_kcore_hdr_t *cpu_kh;
69 struct vmstate *vm;
70
71 vm = (struct vmstate *)_kvm_malloc(kd, sizeof(*vm));
72 if (vm == NULL)
73 return (-1);
74
75 cpu_kh = kd->cpu_data;
76
77 /* Compute page_shift. */
78 for (vm->page_shift = 0; (1 << vm->page_shift) < cpu_kh->page_size;
79 vm->page_shift++)
80 /* nothing */ ;
81 if ((1 << vm->page_shift) != cpu_kh->page_size) {
82 free(vm);
83 return (-1);
84 }
85
86 kd->vmst = vm;
87 return (0);
88 }
89
90 int
91 _kvm_kvatop(kd, va, pa)
92 kvm_t *kd;
93 u_long va;
94 u_long *pa;
95 {
96 cpu_kcore_hdr_t *cpu_kh;
97 struct vmstate *vm;
98 int rv, page_off;
99 alpha_pt_entry_t pte;
100 off_t pteoff;
101
102 if (ISALIVE(kd)) {
103 _kvm_err(kd, 0, "vatop called in live kernel!");
104 return(0);
105 }
106
107 cpu_kh = kd->cpu_data;
108 vm = kd->vmst;
109 page_off = va & (cpu_kh->page_size - 1);
110
111 #define PAGE_SHIFT vm->page_shift
112
113 if (va >= ALPHA_K0SEG_BASE && va <= ALPHA_K0SEG_END) {
114 /*
115 * Direct-mapped address: just convert it.
116 */
117
118 *pa = ALPHA_K0SEG_TO_PHYS(va);
119 rv = cpu_kh->page_size - page_off;
120 } else if (va >= ALPHA_K1SEG_BASE && va <= ALPHA_K1SEG_END) {
121 /*
122 * Real kernel virtual address: do the translation.
123 */
124
125 /* Find and read the L1 PTE. */
126 pteoff = cpu_kh->lev1map_pa +
127 l1pte_index(va) * sizeof(alpha_pt_entry_t);
128 if (pread(kd->pmfd, &pte, sizeof(pte),
129 _kvm_pa2off(kd, pteoff)) != sizeof(pte)) {
130 _kvm_syserr(kd, 0, "could not read L1 PTE");
131 goto lose;
132 }
133
134 /* Find and read the L2 PTE. */
135 if ((pte & ALPHA_PTE_VALID) == 0) {
136 _kvm_err(kd, 0, "invalid translation (invalid L1 PTE)");
137 goto lose;
138 }
139 pteoff = ALPHA_PTE_TO_PFN(pte) * cpu_kh->page_size +
140 l2pte_index(va) * sizeof(alpha_pt_entry_t);
141 if (pread(kd->pmfd, &pte, sizeof(pte),
142 _kvm_pa2off(kd, pteoff)) != sizeof(pte)) {
143 _kvm_syserr(kd, 0, "could not read L2 PTE");
144 goto lose;
145 }
146
147 /* Find and read the L3 PTE. */
148 if ((pte & ALPHA_PTE_VALID) == 0) {
149 _kvm_err(kd, 0, "invalid translation (invalid L2 PTE)");
150 goto lose;
151 }
152 pteoff = ALPHA_PTE_TO_PFN(pte) * cpu_kh->page_size +
153 l3pte_index(va) * sizeof(alpha_pt_entry_t);
154 if (pread(kd->pmfd, &pte, sizeof(pte),
155 _kvm_pa2off(kd, pteoff)) != sizeof(pte)) {
156 _kvm_syserr(kd, 0, "could not read L3 PTE");
157 goto lose;
158 }
159
160 /* Fill in the PA. */
161 if ((pte & ALPHA_PTE_VALID) == 0) {
162 _kvm_err(kd, 0, "invalid translation (invalid L3 PTE)");
163 goto lose;
164 }
165 *pa = ALPHA_PTE_TO_PFN(pte) * cpu_kh->page_size + page_off;
166 rv = cpu_kh->page_size - page_off;
167 } else {
168 /*
169 * Bogus address (not in KV space): punt.
170 */
171
172 _kvm_err(kd, 0, "invalid kernel virtual address");
173 lose:
174 *pa = -1;
175 rv = 0;
176 }
177
178 #undef PAGE_SHIFT
179
180 return (rv);
181 }
182
183 /*
184 * Translate a physical address to a file-offset in the crash-dump.
185 */
186 off_t
187 _kvm_pa2off(kd, pa)
188 kvm_t *kd;
189 u_long pa;
190 {
191 cpu_kcore_hdr_t *cpu_kh;
192 phys_ram_seg_t *ramsegs;
193 off_t off;
194 int i;
195
196 cpu_kh = kd->cpu_data;
197 ramsegs = (phys_ram_seg_t *)((char *)cpu_kh + ALIGN(sizeof *cpu_kh));
198
199 off = 0;
200 for (i = 0; i < cpu_kh->nmemsegs; i++) {
201 if (pa >= ramsegs[i].start &&
202 (pa - ramsegs[i].start) < ramsegs[i].size) {
203 off += (pa - ramsegs[i].start);
204 break;
205 }
206 off += ramsegs[i].size;
207 }
208
209 return (kd->dump_off + off);
210 }
211
212 /*
213 * Machine-dependent initialization for ALL open kvm descriptors,
214 * not just those for a kernel crash dump. Some architectures
215 * have to deal with these NOT being constants! (i.e. m68k)
216 */
217 int
218 _kvm_mdopen(kd)
219 kvm_t *kd;
220 {
221
222 kd->usrstack = USRSTACK;
223 kd->min_uva = VM_MIN_ADDRESS;
224 kd->max_uva = VM_MAXUSER_ADDRESS;
225
226 return (0);
227 }
228