* Copyright (c) 1989, 1992 The Regents of the University of California.
* This code is derived from software developed by the Computer Systems
* Engineering group at Lawrence Berkeley Laboratory under DARPA contract
* BG 91-66 and contributed to Berkeley.
* %sccs.include.redist.c%
#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid
[] = "@(#)kvm_hp300.c 5.28 (Berkeley) %G%";
#endif /* LIBC_SCCS and not lint */
* Hp300 machine depedent routines for kvm. Hopefully, the forthcoming
* vm code will one day obsolete this module.
#include <hp300/hp300/pte.h>
#define btop(x) (((unsigned)(x)) >> PGSHIFT) /* XXX */
#define ptob(x) ((caddr_t)((x) << PGSHIFT)) /* XXX */
#define KREAD(kd, addr, p)\
(kvm_read(kd, addr, (char *)(p), sizeof(*(p))) != sizeof(*(p)))
vm
= (struct vmstate
*)_kvm_malloc(kd
, sizeof(*vm
));
nlist
[0].n_name
= "_lowram";
nlist
[1].n_name
= "_mmutype";
nlist
[2].n_name
= "_Sysseg";
if (kvm_nlist(kd
, nlist
) != 0) {
_kvm_err(kd
, kd
->program
, "bad namelist");
if (KREAD(kd
, (u_long
)nlist
[0].n_value
, &vm
->lowram
)) {
_kvm_err(kd
, kd
->program
, "cannot read lowram");
if (KREAD(kd
, (u_long
)nlist
[1].n_value
, &vm
->mmutype
)) {
_kvm_err(kd
, kd
->program
, "cannot read mmutype");
if (KREAD(kd
, (u_long
)nlist
[2].n_value
, &vm
->Sysseg
)) {
_kvm_err(kd
, kd
->program
, "cannot read segment table");
_kvm_vatop(kd
, sta
, va
, pa
)
register struct vmstate
*vm
;
_kvm_err(kd
, 0, "vatop called in live kernel!");
* If we are initializing (kernel segment table pointer not yet set)
* then return pa == va to avoid infinite recursion.
addr
= (u_long
)&sta
[va
>> SG4_SHIFT1
];
* Can't use KREAD to read kernel segment table entries.
* Fortunately it is 1-to-1 mapped so we don't have to.
if (lseek(kd
->pmfd
, (off_t
)addr
, 0) == -1 ||
read(kd
->pmfd
, (char *)&ste
, sizeof(ste
)) < 0)
} else if (KREAD(kd
, addr
, &ste
))
_kvm_err(kd
, 0, "invalid level 1 descriptor (%x)",
sta2
= (struct ste
*)(ste
& SG4_ADDR1
);
addr
= (u_long
)&sta2
[(va
& SG4_MASK2
) >> SG4_SHIFT2
];
* Address from level 1 STE is a physical address,
if (lseek(kd
->pmfd
, (off_t
)(addr
- lowram
), 0) == -1 ||
read(kd
->pmfd
, (char *)&ste
, sizeof(ste
)) < 0)
_kvm_err(kd
, 0, "invalid level 2 descriptor (%x)",
sta2
= (struct ste
*)(ste
& SG4_ADDR2
);
addr
= (u_long
)&sta2
[(va
& SG4_MASK3
) >> SG4_SHIFT3
];
addr
= (u_long
)&sta
[va
>> SEGSHIFT
];
* Can't use KREAD to read kernel segment table entries.
* Fortunately it is 1-to-1 mapped so we don't have to.
if (lseek(kd
->pmfd
, (off_t
)addr
, 0) == -1 ||
read(kd
->pmfd
, (char *)&ste
, sizeof(ste
)) < 0)
} else if (KREAD(kd
, addr
, &ste
))
_kvm_err(kd
, 0, "invalid segment (%x)", ste
);
addr
= (ste
& SG_FRAME
) + (p
* sizeof(struct pte
));
* Address from STE is a physical address so don't use kvm_read.
if (lseek(kd
->pmfd
, (off_t
)(addr
- lowram
), 0) == -1 ||
read(kd
->pmfd
, (char *)&pte
, sizeof(pte
)) < 0)
_kvm_err(kd
, 0, "page not valid");
*pa
= addr
- lowram
+ offset
;
_kvm_err(kd
, 0, "invalid address (%x)", va
);
return (_kvm_vatop(kd
, (u_long
)kd
->vmst
->Sysseg
, va
, pa
));
* Translate a user virtual address to a physical address.
_kvm_uvatop(kd
, p
, va
, pa
)
register struct vmspace
*vms
= p
->p_vmspace
;
* If this is a live kernel we just look it up in the kernel
* virtually allocated flat 4mb page table (i.e. let the kernel
* do the table walk). In this way, we avoid needing to know
kva
= (int)&vms
->vm_pmap
.pm_ptab
;
if (KREAD(kd
, kva
, &ptab
)) {
_kvm_err(kd
, 0, "invalid address (%x)", va
);
kva
= (int)&ptab
[btop(va
)];
if (KREAD(kd
, kva
, &pte
) || (pte
& PG_V
) == 0) {
_kvm_err(kd
, 0, "invalid address (%x)", va
);
*pa
= (pte
& PG_FRAME
) | offset
;
* Otherwise, we just walk the table ourself.
kva
= (int)&vms
->vm_pmap
.pm_stab
;
if (KREAD(kd
, kva
, &kva
)) {
_kvm_err(kd
, 0, "invalid address (%x)", va
);
return (_kvm_vatop(kd
, kva
, va
, pa
));