lib/libkvm/kvm_m68k_cmn.c

   1 /*      $NetBSD: kvm_m68k_cmn.c,v 1.18 2014/03/04 06:38:08 matt 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.18 2014/03/04 06:38:08 matt 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/param.h>
  89 #include <sys/types.h>
  90 #include <sys/kcore.h>
  91
  92 #include <unistd.h>
  93 #include <limits.h>
  94 #include <nlist.h>
  95 #include <kvm.h>
  96 #include <db.h>
  97
  98 #include <m68k/cpu.h>
  99 #include <m68k/kcore.h>
 100 #include <m68k/m68k.h>
 101
 102 #include "kvm_private.h"
 103 #include "kvm_m68k.h"
 104
 105 int   _kvm_cmn_initvtop(kvm_t *);
 106 void  _kvm_cmn_freevtop(kvm_t *);
 107 int   _kvm_cmn_kvatop(kvm_t *, vaddr_t, paddr_t *);
 108 off_t _kvm_cmn_pa2off(kvm_t *, paddr_t);
 109
 110 struct kvm_ops _kvm_ops_cmn = {
 111         _kvm_cmn_initvtop,
 112         _kvm_cmn_freevtop,
 113         _kvm_cmn_kvatop,
 114         _kvm_cmn_pa2off };
 115
 116 static int vatop_030(kvm_t *, uint32_t, vaddr_t, paddr_t *);
 117 static int vatop_040(kvm_t *, uint32_t, vaddr_t, paddr_t *);
 118
 119 #define _kvm_btop(v, a) (((unsigned)(a)) >> (v)->pgshift)
 120
 121 void
 122 _kvm_cmn_freevtop(kvm_t *kd)
 123 {
 124         /* No private state information to keep. */
 125 }
 126
 127 int
 128 _kvm_cmn_initvtop(kvm_t *kd)
 129 {
 130         /* No private state information to keep. */
 131         return (0);
 132 }
 133
 134 int
 135 _kvm_cmn_kvatop(kvm_t *kd, vaddr_t va, paddr_t *pa)
 136 {
 137         cpu_kcore_hdr_t *h = kd->cpu_data;
 138         struct m68k_kcore_hdr *m = &h->un._m68k;
 139         int (*vtopf)(kvm_t *, uint32_t, vaddr_t, paddr_t *);
 140
 141         if (ISALIVE(kd)) {
 142                 _kvm_err(kd, 0, "vatop called in live kernel!");
 143                 return (0);
 144         }
 145
 146         /*
 147          * 68040 and 68060 use same translation functions,
 148          * as do 68030, 68851, HP MMU.
 149          */
 150         if (m->mmutype == MMU_68040 || m->mmutype == MMU_68060)
 151                 vtopf = vatop_040;
 152         else
 153                 vtopf = vatop_030;
 154
 155         return ((*vtopf)(kd, m->sysseg_pa, va, pa));
 156 }
 157
 158 /*
 159  * Translate a physical address to a file-offset in the crash dump.
 160  */
 161 off_t
 162 _kvm_cmn_pa2off(kvm_t *kd, u_long pa)
 163 {
 164         cpu_kcore_hdr_t *h = kd->cpu_data;
 165         struct m68k_kcore_hdr *m = &h->un._m68k;
 166         phys_ram_seg_t *rsp;
 167         off_t off;
 168         int i;
 169
 170         off = 0;
 171         rsp = m->ram_segs;
 172         for (i = 0; i < M68K_NPHYS_RAM_SEGS && rsp[i].size != 0; i++) {
 173                 if (pa >= rsp[i].start &&
 174                     pa < (rsp[i].start + rsp[i].size)) {
 175                         pa -= rsp[i].start;
 176                         break;
 177                 }
 178                 off += rsp[i].size;
 179         }
 180         return (kd->dump_off + off + pa);
 181 }
 182
 183 /*****************************************************************
 184  * Local stuff...
 185  */
 186
 187 static int
 188 vatop_030(kvm_t *kd, uint32_t stpa, vaddr_t va, paddr_t *pa)
 189 {
 190         cpu_kcore_hdr_t *h = kd->cpu_data;
 191         struct m68k_kcore_hdr *m = &h->un._m68k;
 192         struct vmstate *vm = kd->vmst;
 193         paddr_t addr;
 194         uint32_t ste, pte;
 195         u_int p, offset;
 196
 197         offset = va & vm->pgofset;
 198
 199         /*
 200          * We may be called before address translation is initialized.
 201          * This is typically used to find the dump magic number.  This
 202          * means we do not yet have the kernel page tables available,
 203          * so we must to a simple relocation.
 204          */
 205         if (va < m->relocend) {
 206                 *pa = (va - h->kernbase) + m->reloc;
 207                 return (h->page_size - offset);
 208         }
 209
 210         addr = stpa + ((va >> m->sg_ishift) * sizeof(u_int32_t));
 211
 212         /*
 213          * Can't use KREAD to read kernel segment table entries.
 214          * Fortunately it is 1-to-1 mapped so we don't have to.
 215          */
 216         if (stpa == m->sysseg_pa) {
 217                 if (_kvm_pread(kd, kd->pmfd, &ste, sizeof(ste),
 218                     _kvm_cmn_pa2off(kd, addr)) != sizeof(ste))
 219                         goto invalid;
 220         } else if (KREAD(kd, addr, &ste))
 221                 goto invalid;
 222         if ((ste & m->sg_v) == 0) {
 223                 _kvm_err(kd, 0, "invalid segment (%x)", ste);
 224                 return(0);
 225         }
 226         p = _kvm_btop(vm, va & m->sg_pmask);
 227         addr = (ste & m->sg_frame) + (p * sizeof(u_int32_t));
 228
 229         /*
 230          * Address from STE is a physical address so don't use kvm_read.
 231          */
 232         if (_kvm_pread(kd, kd->pmfd, &pte, sizeof(pte),
 233             _kvm_cmn_pa2off(kd, addr)) != sizeof(pte))
 234                 goto invalid;
 235         addr = pte & m->pg_frame;
 236         if ((pte & m->pg_v) == 0) {
 237                 _kvm_err(kd, 0, "page not valid");
 238                 return (0);
 239         }
 240         *pa = addr + offset;
 241
 242         return (h->page_size - offset);
 243 invalid:
 244         _kvm_err(kd, 0, "invalid address (%lx)", va);
 245         return (0);
 246 }
 247
 248 static int
 249 vatop_040(kvm_t *kd, uint32_t stpa, vaddr_t va, paddr_t *pa)
 250 {
 251         cpu_kcore_hdr_t *h = kd->cpu_data;
 252         struct m68k_kcore_hdr *m = &h->un._m68k;
 253         struct vmstate *vm = kd->vmst;
 254         paddr_t addr;
 255         uint32_t stpa2;
 256         uint32_t ste, pte;
 257         u_int offset;
 258
 259         offset = va & vm->pgofset;
 260
 261         /*
 262          * We may be called before address translation is initialized.
 263          * This is typically used to find the dump magic number.  This
 264          * means we do not yet have the kernel page tables available,
 265          * so we must to a simple relocation.
 266          */
 267         if (va < m->relocend) {
 268                 *pa = (va - h->kernbase) + m->reloc;
 269                 return (h->page_size - offset);
 270         }
 271
 272         addr = stpa + ((va >> m->sg40_shift1) * sizeof(u_int32_t));
 273
 274         /*
 275          * Can't use KREAD to read kernel segment table entries.
 276          * Fortunately it is 1-to-1 mapped so we don't have to.
 277          */
 278         if (stpa == m->sysseg_pa) {
 279                 if (_kvm_pread(kd, kd->pmfd, &ste, sizeof(ste),
 280                     _kvm_cmn_pa2off(kd, addr)) != sizeof(ste))
 281                         goto invalid;
 282         } else if (KREAD(kd, addr, &ste))
 283                 goto invalid;
 284         if ((ste & m->sg_v) == 0) {
 285                 _kvm_err(kd, 0, "invalid level 1 descriptor (%x)",
 286                                  ste);
 287                 return((off_t)0);
 288         }
 289         stpa2 = (ste & m->sg40_addr1);
 290         addr = stpa2 + (((va & m->sg40_mask2) >> m->sg40_shift2) *
 291             sizeof(u_int32_t));
 292
 293         /*
 294          * Address from level 1 STE is a physical address,
 295          * so don't use kvm_read.
 296          */
 297         if (_kvm_pread(kd, kd->pmfd, &ste, sizeof(ste),
 298             _kvm_cmn_pa2off(kd, addr)) != sizeof(ste))
 299                 goto invalid;
 300         if ((ste & m->sg_v) == 0) {
 301                 _kvm_err(kd, 0, "invalid level 2 descriptor (%x)",
 302                                  ste);
 303                 return((off_t)0);
 304         }
 305         stpa2 = (ste & m->sg40_addr2);
 306         addr = stpa2 + (((va & m->sg40_mask3) >> m->sg40_shift3) *
 307             sizeof(u_int32_t));
 308
 309         /*
 310          * Address from STE is a physical address so don't use kvm_read.
 311          */
 312         if (_kvm_pread(kd, kd->pmfd, &pte, sizeof(pte),
 313             _kvm_cmn_pa2off(kd, addr)) != sizeof(pte))
 314                 goto invalid;
 315         addr = pte & m->pg_frame;
 316         if ((pte & m->pg_v) == 0) {
 317                 _kvm_err(kd, 0, "page not valid");
 318                 return (0);
 319         }
 320         *pa = addr + offset;
 321
 322         return (h->page_size - offset);
 323
 324 invalid:
 325         _kvm_err(kd, 0, "invalid address (%lx)", va);
 326         return (0);
 327 }