xv6-65oo2/mp.c

216 lines
4.5 KiB
C
Raw Normal View History

2006-06-21 01:53:07 +00:00
#include "types.h"
#include "mp.h"
#include "defs.h"
#include "param.h"
#include "x86.h"
2006-06-28 16:35:03 +00:00
#include "traps.h"
#include "mmu.h"
#include "proc.h"
2006-06-21 01:53:07 +00:00
2006-09-06 17:27:19 +00:00
static char *buses[] = {
"CBUSI ",
"CBUSII",
"EISA ",
"FUTURE",
"INTERN",
"ISA ",
"MBI ",
"MBII ",
"MCA ",
"MPI ",
"MPSA ",
"NUBUS ",
"PCI ",
"PCMCIA",
"TC ",
"VL ",
"VME ",
"XPRESS",
0,
};
struct cpu cpus[NCPU];
int ncpu;
uchar ioapic_id;
static struct cpu *bcpu;
2006-09-06 17:27:19 +00:00
static struct mp *mp; // The MP floating point structure
static struct mp*
2006-07-20 09:07:53 +00:00
mp_scan(uchar *addr, int len)
2006-06-21 01:53:07 +00:00
{
2006-07-20 09:07:53 +00:00
uchar *e, *p, sum;
2006-06-21 01:53:07 +00:00
int i;
e = addr+len;
for(p = addr; p < e; p += sizeof(struct mp)){
2006-06-21 01:53:07 +00:00
if(memcmp(p, "_MP_", 4))
continue;
sum = 0;
for(i = 0; i < sizeof(struct mp); i++)
2006-06-21 01:53:07 +00:00
sum += p[i];
if(sum == 0)
2006-09-06 17:27:19 +00:00
return (struct mp*)p;
2006-06-21 01:53:07 +00:00
}
return 0;
}
2006-09-06 17:50:20 +00:00
// Search for the MP Floating Pointer Structure, which according to the
// spec is in one of the following three locations:
// 1) in the first KB of the EBDA;
// 2) in the last KB of system base memory;
// 3) in the BIOS ROM between 0xE0000 and 0xFFFFF.
static struct mp*
2006-06-21 01:53:07 +00:00
mp_search(void)
{
2006-07-20 09:07:53 +00:00
uchar *bda;
uint p;
struct mp *mp;
2006-06-21 01:53:07 +00:00
2006-07-20 09:07:53 +00:00
bda = (uchar*) 0x400;
2006-06-21 01:53:07 +00:00
if((p = (bda[0x0F]<<8)|bda[0x0E])){
2006-07-20 09:07:53 +00:00
if((mp = mp_scan((uchar*) p, 1024)))
2006-06-21 01:53:07 +00:00
return mp;
}
else{
p = ((bda[0x14]<<8)|bda[0x13])*1024;
2006-07-20 09:07:53 +00:00
if((mp = mp_scan((uchar*)p-1024, 1024)))
2006-06-21 01:53:07 +00:00
return mp;
}
2006-07-20 09:07:53 +00:00
return mp_scan((uchar*)0xF0000, 0x10000);
2006-06-21 01:53:07 +00:00
}
2006-09-06 17:50:20 +00:00
// Search for an MP configuration table. For now,
// don't accept the default configurations (physaddr == 0).
// Check for correct signature, calculate the checksum and,
// if correct, check the version.
// To do: check extended table checksum.
2006-09-06 17:27:19 +00:00
static int
2006-06-21 01:53:07 +00:00
mp_detect(void)
{
struct mpctb *pcmp;
2006-07-20 09:07:53 +00:00
uchar *p, sum;
uint length;
2006-06-21 01:53:07 +00:00
if((mp = mp_search()) == 0 || mp->physaddr == 0)
2006-06-21 01:53:07 +00:00
return 1;
2006-09-06 17:27:19 +00:00
pcmp = (struct mpctb*) mp->physaddr;
2006-06-21 01:53:07 +00:00
if(memcmp(pcmp, "PCMP", 4))
return 2;
length = pcmp->length;
sum = 0;
2006-07-20 09:07:53 +00:00
for(p = (uchar*)pcmp; length; length--)
2006-06-21 01:53:07 +00:00
sum += *p++;
if(sum || (pcmp->version != 1 && pcmp->version != 4))
return 3;
return 0;
}
void
2006-07-17 01:25:22 +00:00
mp_init(void)
2006-09-06 17:27:19 +00:00
{
2006-06-21 01:53:07 +00:00
int r;
2006-07-20 09:07:53 +00:00
uchar *p, *e;
struct mpctb *mpctb;
struct mppe *proc;
struct mpbe *bus;
struct mpioapic *ioapic;
struct mpie *intr;
int i;
uchar byte;
2006-06-21 01:53:07 +00:00
ncpu = 0;
2006-09-06 17:50:20 +00:00
if((r = mp_detect()) != 0)
return;
// Run through the table saving information needed for starting
// application processors and initialising any I/O APICs. The table
// is guaranteed to be in order such that only one pass is necessary.
2006-09-06 17:27:19 +00:00
mpctb = (struct mpctb*) mp->physaddr;
lapicaddr = (uint*) mpctb->lapicaddr;
2006-07-20 09:07:53 +00:00
p = ((uchar*)mpctb)+sizeof(struct mpctb);
e = ((uchar*)mpctb)+mpctb->length;
2006-06-21 01:53:07 +00:00
while(p < e) {
switch(*p){
case MPPROCESSOR:
2006-09-06 17:27:19 +00:00
proc = (struct mppe*) p;
2006-06-22 20:47:23 +00:00
cpus[ncpu].apicid = proc->apicid;
2006-09-06 17:27:19 +00:00
if(proc->flags & MPBP) {
bcpu = &cpus[ncpu];
}
2006-06-21 01:53:07 +00:00
ncpu++;
p += sizeof(struct mppe);
2006-06-21 01:53:07 +00:00
continue;
case MPBUS:
2006-09-06 17:27:19 +00:00
bus = (struct mpbe*) p;
for(i = 0; buses[i]; i++){
if(strncmp(buses[i], bus->string, sizeof(bus->string)) == 0)
break;
}
p += sizeof(struct mpbe);
2006-06-21 01:53:07 +00:00
continue;
case MPIOAPIC:
2006-09-06 17:27:19 +00:00
ioapic = (struct mpioapic*) p;
ioapic_id = ioapic->apicno;
p += sizeof(struct mpioapic);
2006-06-21 01:53:07 +00:00
continue;
case MPIOINTR:
2006-09-06 17:27:19 +00:00
intr = (struct mpie*) p;
p += sizeof(struct mpie);
2006-06-21 01:53:07 +00:00
continue;
default:
cprintf("mpinit: unknown PCMP type 0x%x (e-p 0x%x)\n", *p, e-p);
while(p < e){
cprintf("%uX ", *p);
p++;
2006-06-21 01:53:07 +00:00
}
break;
}
}
2006-09-06 17:27:19 +00:00
if(mp->imcrp) { // it appears that bochs doesn't support IMCR, and code won't run
2006-09-06 17:50:20 +00:00
outb(0x22, 0x70); // select IMCR
byte = inb(0x23); // current contents
byte |= 0x01; // mask external INTR
outb(0x23, byte); // disconnect 8259s/NMI
}
}
2006-06-21 01:53:07 +00:00
2006-07-12 17:00:54 +00:00
int
mp_bcpu(void)
{
return bcpu-cpus;
}
extern void mpmain(void);
#define APBOOTCODE 0x7000 // XXX hack
void
2006-07-17 01:25:22 +00:00
mp_startthem(void)
{
2006-07-20 09:07:53 +00:00
extern uchar _binary_bootother_start[], _binary_bootother_size[];
extern int main();
int c;
2006-09-06 17:27:19 +00:00
memmove((void*) APBOOTCODE,_binary_bootother_start,
(uint) _binary_bootother_size);
for(c = 0; c < ncpu; c++){
2006-09-06 17:57:47 +00:00
if(c == cpu())
continue;
2006-09-06 17:27:19 +00:00
*(uint*)(APBOOTCODE-4) = (uint) (cpus[c].mpstack) + MPSTACK; // tell it what to use for %esp
*(uint*)(APBOOTCODE-8) = (uint)mpmain; // tell it where to jump to
2006-07-20 09:07:53 +00:00
lapic_startap(cpus[c].apicid, (uint) APBOOTCODE);
while(cpus[c].booted == 0)
;
}
2006-06-21 01:53:07 +00:00
}