Apple-2gs-SW
/
DumpObj
mirror of https://github.com/byteworksinc/DumpObj.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

better support for orca debugger symbol tables.

This commit is contained in:
Kelvin Sherlock 2017-09-28 16:31:37 -04:00
parent ebab9328f6
commit f7fa7933f9
1 changed files with 37 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
DumpOBJ.cc
View File

@ -2169,8 +2169,8 @@ void DisSTable (void)
{ {
long tlen; long tlen;
int p1, p2, p3, p4; /* temps for computed parms */ int p1, p2; /* temps for computed parms */
long subscript;
if (!constant) { if (!constant) {
GetOpCode(); GetOpCode();
if (opcode && (opcode < OPALIGN)) if (opcode && (opcode < OPALIGN))
@ -2230,18 +2230,48 @@ if (constant >= 2) {
Dis_DC(opcode); Dis_DC(opcode);
} }
} }
subscript = 0;
if (constant >= 4) { if (constant >= 4) {
PutCTPC(); PutCTPC();
p1 = fgetc(input); p1 = fgetc(input);
p2 = fgetc(input); p2 = fgetc(input);
p3 = fgetc(input);
p4 = fgetc(input); ReadInt(&subscript,2,input,numsex);
printf(" DC H'%02X %02X %02X%02X'", p1, p2, p3, p4);
pc += 4; printf(" DC H'%02X %02X'", p1, p2); /* flag, format */
count += 4; count += 2;
pc += 2;
PutCTPC();
printf(" DC I2'%d'", (int)subscript); /* subscript */
count += 2;
pc += 2;
constant -= 4; constant -= 4;
// type 13 subscript is not a subscript.
if ((p2 & 0x3f) == 13) subscript = 0;
else subscript *= 12;
} }
tlen -= 12; tlen -= 12;
if (constant >= subscript) {
long a, b, c;
while (subscript) {
ReadInt(&a, 4, input, numsex);
ReadInt(&b, 4, input, numsex);
ReadInt(&c, 4, input, numsex);
PutCTPC();
printf(" DC I4'%d,%d,%d'", (int)a, (int)b, (int)c); /* subscript */
subscript -= 12;
constant -= 12;
count += 12;
tlen -= 12;
pc += 12;
}
}
} }
} }
} }