1 /* $NetBSD: kvm_m68k_cmn.c,v 1.13 2008/01/15 13:57:42 ad Exp $ */ 2 3 /*- 4 * Copyright (c) 1989, 1992, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * This code is derived from software developed by the Computer Systems 8 * Engineering group at Lawrence Berkeley Laboratory under DARPA contract 9 * BG 91-66 and contributed to Berkeley. 10 * 11 * Redistribution and use in source and binary forms, with or without 12 * modification, are permitted provided that the following conditions 13 * are met: 14 * 1. Redistributions of source code must retain the above copyright 15 * notice, this list of conditions and the following disclaimer. 16 * 2. Redistributions in binary form must reproduce the above copyright 17 * notice, this list of conditions and the following disclaimer in the 18 * documentation and/or other materials provided with the distribution. 19 * 3. Neither the name of the University nor the names of its contributors 20 * may be used to endorse or promote products derived from this software 21 * without specific prior written permission. 22 * 23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 33 * SUCH DAMAGE. 34 */ 35 36 /*- 37 * Copyright (c) 1997 Jason R. Thorpe. All rights reserved. 38 * 39 * This code is derived from software developed by the Computer Systems 40 * Engineering group at Lawrence Berkeley Laboratory under DARPA contract 41 * BG 91-66 and contributed to Berkeley. 42 * 43 * Redistribution and use in source and binary forms, with or without 44 * modification, are permitted provided that the following conditions 45 * are met: 46 * 1. Redistributions of source code must retain the above copyright 47 * notice, this list of conditions and the following disclaimer. 48 * 2. Redistributions in binary form must reproduce the above copyright 49 * notice, this list of conditions and the following disclaimer in the 50 * documentation and/or other materials provided with the distribution. 51 * 3. All advertising materials mentioning features or use of this software 52 * must display the following acknowledgement: 53 * This product includes software developed by the University of 54 * California, Berkeley and its contributors. 55 * 4. Neither the name of the University nor the names of its contributors 56 * may be used to endorse or promote products derived from this software 57 * without specific prior written permission. 58 * 59 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 60 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 61 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 62 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 63 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 64 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 65 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 66 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 67 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 68 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 69 * SUCH DAMAGE. 70 */ 71 72 #include <sys/cdefs.h> 73 #if defined(LIBC_SCCS) && !defined(lint) 74 #if 0 75 static char sccsid[] = "@(#)kvm_hp300.c 8.1 (Berkeley) 6/4/93"; 76 #else 77 __RCSID("$NetBSD: kvm_m68k_cmn.c,v 1.13 2008/01/15 13:57:42 ad Exp $"); 78 #endif 79 #endif /* LIBC_SCCS and not lint */ 80 81 /* 82 * Common m68k machine dependent routines for kvm. 83 * 84 * Note: This file has to build on ALL m68k machines, 85 * so do NOT include any <machine / *.h> files here. 86 */ 87 88 #include <sys/types.h> 89 #include <sys/kcore.h> 90 91 #include <unistd.h> 92 #include <limits.h> 93 #include <nlist.h> 94 #include <kvm.h> 95 #include <db.h> 96 97 #include <m68k/cpu.h> 98 #include <m68k/kcore.h> 99 100 #include "kvm_private.h" 101 #include "kvm_m68k.h" 102 103 int _kvm_cmn_initvtop __P((kvm_t *)); 104 void _kvm_cmn_freevtop __P((kvm_t *)); 105 int _kvm_cmn_kvatop __P((kvm_t *, u_long, u_long *)); 106 off_t _kvm_cmn_pa2off __P((kvm_t *, u_long)); 107 108 struct kvm_ops _kvm_ops_cmn = { 109 _kvm_cmn_initvtop, 110 _kvm_cmn_freevtop, 111 _kvm_cmn_kvatop, 112 _kvm_cmn_pa2off }; 113 114 static int vatop_030 __P((kvm_t *, u_int32_t, u_long, u_long *)); 115 static int vatop_040 __P((kvm_t *, u_int32_t, u_long, u_long *)); 116 117 #define _kvm_btop(v, a) (((unsigned)(a)) >> (v)->pgshift) 118 119 #define KREAD(kd, addr, p)\ 120 (kvm_read(kd, addr, (char *)(p), sizeof(*(p))) != sizeof(*(p))) 121 122 void 123 _kvm_cmn_freevtop(kd) 124 kvm_t *kd; 125 { 126 /* No private state information to keep. */ 127 } 128 129 int 130 _kvm_cmn_initvtop(kd) 131 kvm_t *kd; 132 { 133 /* No private state information to keep. */ 134 return (0); 135 } 136 137 int 138 _kvm_cmn_kvatop(kd, va, pa) 139 kvm_t *kd; 140 u_long va; 141 u_long *pa; 142 { 143 cpu_kcore_hdr_t *h = kd->cpu_data; 144 struct m68k_kcore_hdr *m = &h->un._m68k; 145 int (*vtopf) __P((kvm_t *, u_int32_t, u_long, u_long *)); 146 147 if (ISALIVE(kd)) { 148 _kvm_err(kd, 0, "vatop called in live kernel!"); 149 return (0); 150 } 151 152 /* 153 * 68040 and 68060 use same translation functions, 154 * as do 68030, 68851, HP MMU. 155 */ 156 if (m->mmutype == MMU_68040 || m->mmutype == MMU_68060) 157 vtopf = vatop_040; 158 else 159 vtopf = vatop_030; 160 161 return ((*vtopf)(kd, m->sysseg_pa, va, pa)); 162 } 163 164 /* 165 * Translate a physical address to a file-offset in the crash dump. 166 */ 167 off_t 168 _kvm_cmn_pa2off(kd, pa) 169 kvm_t *kd; 170 u_long pa; 171 { 172 cpu_kcore_hdr_t *h = kd->cpu_data; 173 struct m68k_kcore_hdr *m = &h->un._m68k; 174 phys_ram_seg_t *rsp; 175 off_t off; 176 int i; 177 178 off = 0; 179 rsp = m->ram_segs; 180 for (i = 0; i < M68K_NPHYS_RAM_SEGS && rsp[i].size != 0; i++) { 181 if (pa >= rsp[i].start && 182 pa < (rsp[i].start + rsp[i].size)) { 183 pa -= rsp[i].start; 184 break; 185 } 186 off += rsp[i].size; 187 } 188 return (kd->dump_off + off + pa); 189 } 190 191 /***************************************************************** 192 * Local stuff... 193 */ 194 195 static int 196 vatop_030(kd, stpa, va, pa) 197 kvm_t *kd; 198 u_int32_t stpa; 199 u_long va; 200 u_long *pa; 201 { 202 cpu_kcore_hdr_t *h = kd->cpu_data; 203 struct m68k_kcore_hdr *m = &h->un._m68k; 204 struct vmstate *vm = kd->vmst; 205 u_long addr; 206 u_int32_t ste, pte; 207 u_int p, offset; 208 209 offset = va & vm->pgofset; 210 211 /* 212 * We may be called before address translation is initialized. 213 * This is typically used to find the dump magic number. This 214 * means we do not yet have the kernel page tables available, 215 * so we must to a simple relocation. 216 */ 217 if (va < m->relocend) { 218 *pa = (va - h->kernbase) + m->reloc; 219 return (h->page_size - offset); 220 } 221 222 addr = stpa + ((va >> m->sg_ishift) * sizeof(u_int32_t)); 223 224 /* 225 * Can't use KREAD to read kernel segment table entries. 226 * Fortunately it is 1-to-1 mapped so we don't have to. 227 */ 228 if (stpa == m->sysseg_pa) { 229 if (_kvm_pread(kd, kd->pmfd, &ste, sizeof(ste), 230 _kvm_cmn_pa2off(kd, addr)) != sizeof(ste)) 231 goto invalid; 232 } else if (KREAD(kd, addr, &ste)) 233 goto invalid; 234 if ((ste & m->sg_v) == 0) { 235 _kvm_err(kd, 0, "invalid segment (%x)", ste); 236 return(0); 237 } 238 p = _kvm_btop(vm, va & m->sg_pmask); 239 addr = (ste & m->sg_frame) + (p * sizeof(u_int32_t)); 240 241 /* 242 * Address from STE is a physical address so don't use kvm_read. 243 */ 244 if (_kvm_pread(kd, kd->pmfd, &pte, sizeof(pte), 245 _kvm_cmn_pa2off(kd, addr)) != sizeof(pte)) 246 goto invalid; 247 addr = pte & m->pg_frame; 248 if ((pte & m->pg_v) == 0) { 249 _kvm_err(kd, 0, "page not valid"); 250 return (0); 251 } 252 *pa = addr + offset; 253 254 return (h->page_size - offset); 255 invalid: 256 _kvm_err(kd, 0, "invalid address (%lx)", va); 257 return (0); 258 } 259 260 static int 261 vatop_040(kd, stpa, va, pa) 262 kvm_t *kd; 263 u_int32_t stpa; 264 u_long va; 265 u_long *pa; 266 { 267 cpu_kcore_hdr_t *h = kd->cpu_data; 268 struct m68k_kcore_hdr *m = &h->un._m68k; 269 struct vmstate *vm = kd->vmst; 270 u_long addr; 271 u_int32_t stpa2; 272 u_int32_t ste, pte; 273 u_int offset; 274 275 offset = va & vm->pgofset; 276 277 /* 278 * We may be called before address translation is initialized. 279 * This is typically used to find the dump magic number. This 280 * means we do not yet have the kernel page tables available, 281 * so we must to a simple relocation. 282 */ 283 if (va < m->relocend) { 284 *pa = (va - h->kernbase) + m->reloc; 285 return (h->page_size - offset); 286 } 287 288 addr = stpa + ((va >> m->sg40_shift1) * sizeof(u_int32_t)); 289 290 /* 291 * Can't use KREAD to read kernel segment table entries. 292 * Fortunately it is 1-to-1 mapped so we don't have to. 293 */ 294 if (stpa == m->sysseg_pa) { 295 if (_kvm_pread(kd, kd->pmfd, &ste, sizeof(ste), 296 _kvm_cmn_pa2off(kd, addr)) != sizeof(ste)) 297 goto invalid; 298 } else if (KREAD(kd, addr, &ste)) 299 goto invalid; 300 if ((ste & m->sg_v) == 0) { 301 _kvm_err(kd, 0, "invalid level 1 descriptor (%x)", 302 ste); 303 return((off_t)0); 304 } 305 stpa2 = (ste & m->sg40_addr1); 306 addr = stpa2 + (((va & m->sg40_mask2) >> m->sg40_shift2) * 307 sizeof(u_int32_t)); 308 309 /* 310 * Address from level 1 STE is a physical address, 311 * so don't use kvm_read. 312 */ 313 if (_kvm_pread(kd, kd->pmfd, &ste, sizeof(ste), 314 _kvm_cmn_pa2off(kd, addr)) != sizeof(ste)) 315 goto invalid; 316 if ((ste & m->sg_v) == 0) { 317 _kvm_err(kd, 0, "invalid level 2 descriptor (%x)", 318 ste); 319 return((off_t)0); 320 } 321 stpa2 = (ste & m->sg40_addr2); 322 addr = stpa2 + (((va & m->sg40_mask3) >> m->sg40_shift3) * 323 sizeof(u_int32_t)); 324 325 /* 326 * Address from STE is a physical address so don't use kvm_read. 327 */ 328 if (_kvm_pread(kd, kd->pmfd, &pte, sizeof(pte), 329 _kvm_cmn_pa2off(kd, addr)) != sizeof(pte)) 330 goto invalid; 331 addr = pte & m->pg_frame; 332 if ((pte & m->pg_v) == 0) { 333 _kvm_err(kd, 0, "page not valid"); 334 return (0); 335 } 336 *pa = addr + offset; 337 338 return (h->page_size - offset); 339 340 invalid: 341 _kvm_err(kd, 0, "invalid address (%lx)", va); 342 return (0); 343 } 344