Additions for debugger information

This commit is contained in:
ceriel 1990-09-03 11:07:22 +00:00
parent b2ca3783c4
commit 67f0419dc3
2 changed files with 12 additions and 4 deletions

View file

@ -517,7 +517,8 @@ emit_symtab()
ACKnames = A; ACKnames = A;
for (; i; i--, A++) { for (; i; i--, A++) {
M->value = A->on_valu; M->value = A->on_valu;
if (A->on_type & S_SCT || M->desc = A->on_desc;
if ((A->on_type & S_SCT) ||
(A->on_type & S_ETC) == S_FIL) { (A->on_type & S_ETC) == S_FIL) {
static int rest_local; static int rest_local;
if (! unresolved || rest_local || (rest_local = is_rest_local(A, i))) { if (! unresolved || rest_local || (rest_local = is_rest_local(A, i))) {
@ -525,7 +526,10 @@ emit_symtab()
continue; continue;
} }
} }
if (A->on_type & S_COM) { if (A->on_type & S_STB) {
M->type = A->on_type >> 8;
}
else if (A->on_type & S_COM) {
M->type = N_UNDF | N_EXT; M->type = N_UNDF | N_EXT;
} }
else switch(A->on_type & S_TYP) { else switch(A->on_type & S_TYP) {

View file

@ -517,7 +517,8 @@ emit_symtab()
ACKnames = A; ACKnames = A;
for (; i; i--, A++) { for (; i; i--, A++) {
M->value = A->on_valu; M->value = A->on_valu;
if (A->on_type & S_SCT || M->desc = A->on_desc;
if ((A->on_type & S_SCT) ||
(A->on_type & S_ETC) == S_FIL) { (A->on_type & S_ETC) == S_FIL) {
static int rest_local; static int rest_local;
if (! unresolved || rest_local || (rest_local = is_rest_local(A, i))) { if (! unresolved || rest_local || (rest_local = is_rest_local(A, i))) {
@ -525,7 +526,10 @@ emit_symtab()
continue; continue;
} }
} }
if (A->on_type & S_COM) { if (A->on_type & S_STB) {
M->type = A->on_type >> 8;
}
else if (A->on_type & S_COM) {
M->type = N_UNDF | N_EXT; M->type = N_UNDF | N_EXT;
} }
else switch(A->on_type & S_TYP) { else switch(A->on_type & S_TYP) {