257c7e958e
we now always use the new FXSAVE format in FPsave structure and fpregs file, converting back and forth in fpx87save() and fpx87restore(). document that fprestore() is a destructive operation now. change fp register definition in libmach and adapt fpr() acid funciton. avoid unneccesary copy of fpstate and fpsave in sysfork(). functions including syscalls do not preserve the fp registers and copying fpstate from the current process would mean we had to fpsave(&up->fpsave); first. simply not doing it, new process starts in FPinit state.
155 lines
2.8 KiB
Text
155 lines
2.8 KiB
Text
// 386 support
|
|
|
|
defn acidinit() // Called after all the init modules are loaded
|
|
{
|
|
bplist = {};
|
|
bpfmt = 'b';
|
|
|
|
srcpath = {
|
|
"./",
|
|
"/sys/src/libc/port/",
|
|
"/sys/src/libc/9sys/",
|
|
"/sys/src/libc/386/"
|
|
};
|
|
|
|
srcfiles = {}; // list of loaded files
|
|
srctext = {}; // the text of the files
|
|
}
|
|
|
|
defn linkreg(addr)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
defn stk() // trace
|
|
{
|
|
_stk(*PC, *SP, 0, 0);
|
|
}
|
|
|
|
defn lstk() // trace with locals
|
|
{
|
|
_stk(*PC, *SP, 0, 1);
|
|
}
|
|
|
|
defn gpr() // print general(hah hah!) purpose registers
|
|
{
|
|
print("AX\t", *AX, " BX\t", *BX, " CX\t", *CX, " DX\t", *DX, "\n");
|
|
print("DI\t", *DI, " SI\t", *SI, " BP\t", *BP, "\n");
|
|
}
|
|
|
|
defn spr() // print special processor registers
|
|
{
|
|
local pc;
|
|
local cause;
|
|
|
|
pc = *PC;
|
|
print("PC\t", pc, " ", fmt(pc, 'a'), " ");
|
|
pfl(pc);
|
|
print("SP\t", *SP, " ECODE ", *ECODE, " EFLAG ", *EFLAGS, "\n");
|
|
print("CS\t", *CS, " DS\t ", *DS, " SS\t", *SS, "\n");
|
|
print("GS\t", *GS, " FS\t ", *FS, " ES\t", *ES, "\n");
|
|
|
|
cause = *TRAP;
|
|
print("TRAP\t", cause, " ", reason(cause), "\n");
|
|
}
|
|
|
|
defn regs() // print all registers
|
|
{
|
|
spr();
|
|
gpr();
|
|
}
|
|
|
|
defn fpr()
|
|
{
|
|
print("F0\t", *F0, "\n");
|
|
print("F1\t", *F1, "\n");
|
|
print("F2\t", *F2, "\n");
|
|
print("F3\t", *F3, "\n");
|
|
print("F4\t", *F4, "\n");
|
|
print("F5\t", *F5, "\n");
|
|
print("F6\t", *F6, "\n");
|
|
print("F7\t", *F7, "\n");
|
|
print("control\t", *FCW, "\n");
|
|
print("status\t", *FSW, "\n");
|
|
print("tag\t", *FTW, "\n");
|
|
print("ip\t", *FIP, "\n");
|
|
print("cs selector\t", *FCS, "\n");
|
|
print("opcode\t", *FOP, "\n");
|
|
print("data operand\t", *FDP, "\n");
|
|
print("operand selector\t", *FDS, "\n");
|
|
}
|
|
|
|
defn pstop(pid)
|
|
{
|
|
local l;
|
|
local pc;
|
|
|
|
pc = *PC;
|
|
|
|
print(pid,": ", reason(*TRAP), "\t");
|
|
print(fmt(pc, 'a'), "\t", fmt(pc, 'i'), "\n");
|
|
|
|
if notes then {
|
|
if notes[0] != "sys: breakpoint" then {
|
|
print("Notes pending:\n");
|
|
l = notes;
|
|
while l do {
|
|
print("\t", head l, "\n");
|
|
l = tail l;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
aggr Ureg
|
|
{
|
|
'X' 0 di;
|
|
'X' 4 si;
|
|
'X' 8 bp;
|
|
'X' 12 nsp;
|
|
'X' 16 bx;
|
|
'X' 20 dx;
|
|
'X' 24 cx;
|
|
'X' 28 ax;
|
|
'X' 32 gs;
|
|
'X' 36 fs;
|
|
'X' 40 es;
|
|
'X' 44 ds;
|
|
'X' 48 trap;
|
|
'X' 52 ecode;
|
|
'X' 56 pc;
|
|
'X' 60 cs;
|
|
'X' 64 flags;
|
|
{
|
|
'X' 68 usp;
|
|
'X' 68 sp;
|
|
};
|
|
'X' 72 ss;
|
|
};
|
|
|
|
defn
|
|
Ureg(addr) {
|
|
complex Ureg addr;
|
|
print(" di ", addr.di, "\n");
|
|
print(" si ", addr.si, "\n");
|
|
print(" bp ", addr.bp, "\n");
|
|
print(" nsp ", addr.nsp, "\n");
|
|
print(" bx ", addr.bx, "\n");
|
|
print(" dx ", addr.dx, "\n");
|
|
print(" cx ", addr.cx, "\n");
|
|
print(" ax ", addr.ax, "\n");
|
|
print(" gs ", addr.gs, "\n");
|
|
print(" fs ", addr.fs, "\n");
|
|
print(" es ", addr.es, "\n");
|
|
print(" ds ", addr.ds, "\n");
|
|
print(" trap ", addr.trap, "\n");
|
|
print(" ecode ", addr.ecode, "\n");
|
|
print(" pc ", addr.pc, "\n");
|
|
print(" cs ", addr.cs, "\n");
|
|
print(" flags ", addr.flags, "\n");
|
|
print(" sp ", addr.sp, "\n");
|
|
print(" ss ", addr.ss, "\n");
|
|
};
|
|
sizeofUreg = 76;
|
|
|
|
print("/sys/lib/acid/386");
|