blob: 44d1031856397c69a610ca17406087f5fe900dc9 [file] [log] [blame]
// 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/amd64/"
};
srcfiles = {}; // list of loaded files
srctext = {}; // the text of the files
}
defn linkreg(addr)
{
return {};
}
defn stk() // trace
{
_stk({"PC", *PC, "SP", *SP}, 0);
}
defn lstk() // trace with locals
{
_stk({"PC", *PC, "SP", *SP}, 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");
print("R8\t", *R8, " R9\t", *R9, " R10\t", *R10, " R11\t", *R11, "\n");
print("R12\t", *R12, " R13\t", *R13, " R14\t", *R14, " R15\t", *R15, "\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, " FLAGS ", *FLAGS, "\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 mmregs()
{
print("MM0\t", *MM0, " MM1\t", *MM1, "\n");
print("MM2\t", *MM2, " MM3\t", *MM3, "\n");
print("MM4\t", *MM4, " MM5\t", *MM5, "\n");
print("MM6\t", *MM6, " MM7\t", *MM7, "\n");
}
defn pfixstop(pid)
{
if *fmt(*PC-1, 'b') == 0xCC then {
// Linux stops us after the breakpoint, not at it
*PC = *PC-1;
}
}
defn pstop(pid)
{
local l;
local pc;
local why;
pc = *PC;
// FIgure out why we stopped.
if *fmt(pc, 'b') == 0xCC then {
why = "breakpoint";
// fix up instruction for print; will put back later
*pc = @pc;
} else if *(pc-2\x) == 0x80CD then {
pc = pc-2;
why = "system call";
} else
why = "stopped";
if printstopped then {
print(pid,": ", why, "\t");
print(fmt(pc, 'a'), "\t", *fmt(pc, 'i'), "\n");
}
if why == "breakpoint" then
*fmt(pc, bpfmt) = bpinst;
if printstopped && 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
{
'Y' 0 ax;
'Y' 8 bx;
'Y' 16 cx;
'Y' 24 dx;
'Y' 32 si;
'Y' 40 di;
'Y' 48 bp;
'Y' 56 r8;
'Y' 64 r9;
'Y' 72 r10;
'Y' 80 r11;
'Y' 88 r12;
'Y' 96 r13;
'Y' 104 r14;
'Y' 112 r15;
'u' 120 ds;
'u' 122 es;
'u' 124 fs;
'u' 126 gs;
'Y' 128 type;
'Y' 136 error;
'Y' 144 pc;
'Y' 152 cs;
'Y' 160 flags;
'Y' 168 sp;
'Y' 176 ss;
};
defn
Ureg(addr) {
complex Ureg addr;
print(" ax ", addr.ax, "\n");
print(" bx ", addr.bx, "\n");
print(" cx ", addr.cx, "\n");
print(" dx ", addr.dx, "\n");
print(" si ", addr.si, "\n");
print(" di ", addr.di, "\n");
print(" bp ", addr.bp, "\n");
print(" r8 ", addr.r8, "\n");
print(" r9 ", addr.r9, "\n");
print(" r10 ", addr.r10, "\n");
print(" r11 ", addr.r11, "\n");
print(" r12 ", addr.r12, "\n");
print(" r13 ", addr.r13, "\n");
print(" r14 ", addr.r14, "\n");
print(" r15 ", addr.r15, "\n");
print(" ds ", addr.ds, "\n");
print(" es ", addr.es, "\n");
print(" fs ", addr.fs, "\n");
print(" gs ", addr.gs, "\n");
print(" type ", addr.type, "\n");
print(" error ", addr.error, "\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 = 184;
aggr freebsd_amd64_siginfo
{
'X' 0 signo;
'X' 4 errno;
'X' 8 code;
'X' 12 pid;
'X' 16 uid;
'X' 20 status;
'Y' 24 addr;
'Y' 32 sigval;
's' 40 reason;
};
defn
freebsd_amd64_siginfo(addr) {
complex freebsd_amd64_siginfo addr;
print(" signo ", addr.signo, "\n");
print(" errno ", addr.errno, "\n");
print(" code ", addr.code, "\n");
print(" pid ", addr.pid, "\n");
print(" uid ", addr.uid, "\n");
print(" status ", addr.status, "\n");
print(" addr ", addr.addr, "\n");
print(" sigval ", addr.sigval, "\n");
};
aggr freebsd_amd64_ucontext
{
'X' 0 sigmask0;
'X' 4 sigmask1;
'X' 8 sigmask2;
'X' 12 sigmask3;
'Y' 16 onstack;
'Y' 24 rdi;
'Y' 32 rsi;
'Y' 40 rdx;
'Y' 48 rcx;
'Y' 56 r8;
'Y' 64 r9;
'Y' 72 rax;
'Y' 80 rbx;
'Y' 88 rbp;
'Y' 96 r10;
'Y' 104 r11;
'Y' 112 r12;
'Y' 120 r13;
'Y' 128 r14;
'Y' 136 r15;
'X' 144 trapno;
'x' 148 fs;
'x' 150 gs;
'Y' 152 addr;
'X' 160 flags;
'x' 164 es;
'x' 166 ds;
'Y' 168 err;
'Y' 176 rip;
'Y' 184 cs;
'Y' 192 rflags;
'Y' 200 rsp;
'Y' 208 ss;
'Y' 216 len;
'Y' 224 fpformat;
'Y' 232 ownedfp;
'Y' 240 fpstate0;
'Y' 752 fsbase;
'Y' 760 gsbase;
};
defn
freebsd_amd64_ucontext(addr) {
complex freebsd_amd64_ucontext addr;
print(" sigmask0 ", addr.sigmask0, "\n");
print(" sigmask1 ", addr.sigmask1, "\n");
print(" sigmask2 ", addr.sigmask2, "\n");
print(" sigmask3 ", addr.sigmask3, "\n");
print(" onstack ", addr.onstack, "\n");
print(" rdi ", addr.rdi, "\n");
print(" rsi ", addr.rsi, "\n");
print(" rdx ", addr.rdx, "\n");
print(" rcx ", addr.rcx, "\n");
print(" r8 ", addr.r8, "\n");
print(" r9 ", addr.r9, "\n");
print(" rax ", addr.rax, "\n");
print(" rbx ", addr.rbx, "\n");
print(" rbp ", addr.rbp, "\n");
print(" r10 ", addr.r10, "\n");
print(" r11 ", addr.r11, "\n");
print(" r12 ", addr.r12, "\n");
print(" r13 ", addr.r13, "\n");
print(" r14 ", addr.r14, "\n");
print(" r15 ", addr.r15, "\n");
print(" trapno ", addr.trapno, "\n");
print(" fs ", addr.fs, "\n");
print(" gs ", addr.gs, "\n");
print(" addr ", addr.addr, "\n");
print(" flags ", addr.flags, "\n");
print(" es ", addr.es, "\n");
print(" ds ", addr.ds, "\n");
print(" err ", addr.err, "\n");
print(" rip ", addr.rip, "\n");
print(" cs ", addr.cs, "\n");
print(" rflags ", addr.rflags, "\n");
print(" rsp ", addr.rsp, "\n");
print(" ss ", addr.ss, "\n");
print(" len ", addr.len, "\n");
print(" fpformat ", addr.fpformat, "\n");
print(" ownedfp ", addr.ownedfp, "\n");
print(" fpstate0 ", addr.fpstate0, "\n");
print(" fsbase ", addr.fsbase, "\n");
print(" gsbase ", addr.gsbase, "\n");
}
// aggr Linkdebug
// {
// 'X' 0 version;
// 'X' 4 map;
// };
//
// aggr Linkmap
// {
// 'X' 0 addr;
// 'X' 4 name;
// 'X' 8 dynsect;
// 'X' 12 next;
// 'X' 16 prev;
// };
//
// defn
// linkdebug()
// {
// local a;
//
// if !havesymbol("_DYNAMIC") then
// return 0;
//
// a = _DYNAMIC;
// while *a != 0 do {
// if *a == 21 then // 21 == DT_DEBUG
// return *(a+4);
// a = a+8;
// }
// return 0;
// }
//
// defn
// dynamicmap()
// {
// if systype == "linux" || systype == "freebsd" then {
// local r, m, n;
//
// r = linkdebug();
// if r then {
// complex Linkdebug r;
// m = r.map;
// n = 0;
// while m != 0 && n < 100 do {
// complex Linkmap m;
// if m.name && *(m.name\b) && access(*(m.name\s)) then
// print("textfile({\"", *(m.name\s), "\", ", m.addr\X, "});\n");
// m = m.next;
// n = n+1;
// }
// }
// }
// }
// */
defn
acidmap()
{
// dynamicmap();
acidtypes();
}
print(acidfile);