d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Accomodate symbolic debugger info

Browse source
This commit is contained in:
ceriel 1991-12-18 14:38:57 +00:00
parent 47a6b4b526
commit 03022ad7dd
1 changed files with 23 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
mach/i386/cv/cv.c
View file

@ -343,7 +343,7 @@ emits(section) struct outsect *section ; {
long
emit_symtab()
{
register unsigned short i;
register int i;
struct xnm {
unsigned short s_type, s_seg;
long s_value;
@ -354,39 +354,44 @@ emit_symtab()
extern char *malloc();
long off = OFF_CHAR(outhead);
register char *p;
register struct outname *np;
chars = malloc((unsigned)(outhead.oh_nchar));
if (! chars) return 0;
names = (struct outname *)
np = names = (struct outname *)
malloc(outhead.oh_nname * sizeof(struct outname));
if (! names) {
if (! np) {
free(chars);
return 0;
}
xptr = malloc((unsigned)(outhead.oh_nchar) + 9 * outhead.oh_nname);
if (! xptr) {
free(chars);
free((char *) names);
free((char *) np);
return 0;
}
xname = xptr;
rd_name(names, outhead.oh_nname);
rd_name(np, outhead.oh_nname);
rd_string(chars,outhead.oh_nchar);
for (i = 0; i < outhead.oh_nname; i++) {
for (i = 0; i < outhead.oh_nname; i++, np++) {
xnm.s_seg = 077;
switch(names[i].on_type & S_ETC) {
if (np->on_type & S_STB) {
xnm.s_seg = np->on_desc;
xnm.s_type = np->on_type;
}
else switch(np->on_type & S_ETC) {
case S_FIL:
case S_MOD:
xnm.s_type = 0x1f;
break;
case S_SCT:
xnm.s_type = 0x8;
if ((names[i].on_type & S_TYP) != S_MIN+TEXTSG) {
if ((np->on_type & S_TYP) != S_MIN+TEXTSG) {
xnm.s_seg = 0107;
}
break;
default:
switch(names[i].on_type & S_TYP) {
switch(np->on_type & S_TYP) {
case S_UND:
xnm.s_type = 0;
break;
@ -409,22 +414,23 @@ emit_symtab()
break;
default:
fprintf(stderr,"warning: unknown s_type: %d\n",
(int)(names[i].on_type) & S_TYP);
(int)(np->on_type) & S_TYP);
}
}
if (names[i].on_type & S_EXT) xnm.s_type |= 0x20;
xnm.s_value = names[i].on_valu;
if (names[i].on_foff == 0) {
if (np->on_type & S_EXT) xnm.s_type |= 0x20;
xnm.s_value = np->on_valu;
shortcvt(xnm.s_type, xptr);
shortcvt(xnm.s_seg, xptr);
longcvt(xnm.s_value, xptr);
if (np->on_foff == 0) {
*xptr++ = '\0';
}
else {
long l = names[i].on_foff - off;
long l = np->on_foff - off;
if (l < 0 || l >= outhead.oh_nchar) {
fatal("bad on_off: %ld\n",l);
}
p = &chars[l];
shortcvt(xnm.s_type, xptr);
shortcvt(xnm.s_seg, xptr);
longcvt(xnm.s_value, xptr);
do {
*xptr++ = *p;
} while (*p++);