mirror of
https://github.com/byteworksinc/DumpObj.git
synced 2024-10-31 23:05:20 +00:00
Merge pull request #10 from ksherlock/patch_13
enhanced support for orca debugger symbol tables.
This commit is contained in:
commit
f766ac3040
44
DumpOBJ.cc
44
DumpOBJ.cc
@ -2220,8 +2220,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))
|
||||||
@ -2281,18 +2281,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;
|
||||||
|
}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user