3 defn acidinit() // Called after all the init modules are loaded
10 "/sys/src/libc/port/",
11 "/sys/src/libc/9sys/",
15 srcfiles = {}; // list of loaded files
16 srctext = {}; // the text of the files
26 _stk({"PC", *PC, "SP", *SP}, 0);
29 defn lstk() // trace with locals
31 _stk({"PC", *PC, "SP", *SP}, 1);
34 defn gpr() // print general(hah hah!) purpose registers
36 print("AX\t", *AX, " BX\t", *BX, " CX\t", *CX, " DX\t", *DX, "\n");
37 print("DI\t", *DI, " SI\t", *SI, " BP\t", *BP, "\n");
40 defn spr() // print special processor registers
46 print("PC\t", pc, " ", fmt(pc, 'a'), " ");
48 print("SP\t", *SP, " ECODE ", *ECODE, " EFLAG ", *EFLAGS, "\n");
49 print("CS\t", *CS, " DS\t ", *DS, " SS\t", *SS, "\n");
50 print("GS\t", *GS, " FS\t ", *FS, " ES\t", *ES, "\n");
53 print("TRAP\t", cause, " ", reason(cause), "\n");
56 defn regs() // print all registers
64 print("MM0\t", *MM0, " MM1\t", *MM1, "\n");
65 print("MM2\t", *MM2, " MM3\t", *MM3, "\n");
66 print("MM4\t", *MM4, " MM5\t", *MM5, "\n");
67 print("MM6\t", *MM6, " MM7\t", *MM7, "\n");
77 print(pid,": ", reason(*TRAP), "\t");
78 print(fmt(pc, 'a'), "\t", *fmt(pc, 'i'), "\n");
81 if notes[0] != "sys: breakpoint" then {
82 print("Notes pending:\n");
85 print("\t", head l, "\n");
121 print(" di ", addr.di, "\n");
122 print(" si ", addr.si, "\n");
123 print(" bp ", addr.bp, "\n");
124 print(" nsp ", addr.nsp, "\n");
125 print(" bx ", addr.bx, "\n");
126 print(" dx ", addr.dx, "\n");
127 print(" cx ", addr.cx, "\n");
128 print(" ax ", addr.ax, "\n");
129 print(" gs ", addr.gs, "\n");
130 print(" fs ", addr.fs, "\n");
131 print(" es ", addr.es, "\n");
132 print(" ds ", addr.ds, "\n");
133 print(" trap ", addr.trap, "\n");
134 print(" ecode ", addr.ecode, "\n");
135 print(" pc ", addr.pc, "\n");
136 print(" cs ", addr.cs, "\n");
137 print(" flags ", addr.flags, "\n");
138 print(" sp ", addr.sp, "\n");
139 print(" ss ", addr.ss, "\n");
163 if !havesymbol("_DYNAMIC") then
168 if *a == 21 then // 21 == DT_DEBUG
178 if systype == "linux" || systype == "freebsd" then {
186 while m != 0 && n < 100 do {
188 if m.name && *(m.name\b) && access(*(m.name\s)) then
189 textfile({*(m.name\s), m.addr\X});