d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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 long
emit_symtab() emit_symtab()
{ {
register unsigned short i; register int i;
struct xnm { struct xnm {
unsigned short s_type, s_seg; unsigned short s_type, s_seg;
long s_value; long s_value;
@ -354,39 +354,44 @@ emit_symtab()
extern char *malloc(); extern char *malloc();
long off = OFF_CHAR(outhead); long off = OFF_CHAR(outhead);
register char *p; register char *p;
register struct outname *np;
chars = malloc((unsigned)(outhead.oh_nchar)); chars = malloc((unsigned)(outhead.oh_nchar));
if (! chars) return 0; if (! chars) return 0;
names = (struct outname *) np = names = (struct outname *)
malloc(outhead.oh_nname * sizeof(struct outname)); malloc(outhead.oh_nname * sizeof(struct outname));
if (! names) { if (! np) {
free(chars); free(chars);
return 0; return 0;
} }
xptr = malloc((unsigned)(outhead.oh_nchar) + 9 * outhead.oh_nname); xptr = malloc((unsigned)(outhead.oh_nchar) + 9 * outhead.oh_nname);
if (! xptr) { if (! xptr) {
free(chars); free(chars);
free((char *) names); free((char *) np);
return 0; return 0;
} }
xname = xptr; xname = xptr;
rd_name(names, outhead.oh_nname); rd_name(np, outhead.oh_nname);
rd_string(chars,outhead.oh_nchar); 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; 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_FIL:
case S_MOD: case S_MOD:
xnm.s_type = 0x1f; xnm.s_type = 0x1f;
break; break;
case S_SCT: case S_SCT:
xnm.s_type = 0x8; 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; xnm.s_seg = 0107;
} }
break; break;
default: default:
switch(names[i].on_type & S_TYP) { switch(np->on_type & S_TYP) {
case S_UND: case S_UND:
xnm.s_type = 0; xnm.s_type = 0;
break; break;
@ -409,22 +414,23 @@ emit_symtab()
break; break;
default: default:
fprintf(stderr,"warning: unknown s_type: %d\n", 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; if (np->on_type & S_EXT) xnm.s_type |= 0x20;
xnm.s_value = names[i].on_valu; xnm.s_value = np->on_valu;
if (names[i].on_foff == 0) { shortcvt(xnm.s_type, xptr);
shortcvt(xnm.s_seg, xptr);
longcvt(xnm.s_value, xptr);
if (np->on_foff == 0) {
*xptr++ = '\0';
} }
else { else {
long l = names[i].on_foff - off; long l = np->on_foff - off;
if (l < 0 || l >= outhead.oh_nchar) { if (l < 0 || l >= outhead.oh_nchar) {
fatal("bad on_off: %ld\n",l); fatal("bad on_off: %ld\n",l);
} }
p = &chars[l]; p = &chars[l];
shortcvt(xnm.s_type, xptr);
shortcvt(xnm.s_seg, xptr);
longcvt(xnm.s_value, xptr);
do { do {
*xptr++ = *p; *xptr++ = *p;
} while (*p++); } while (*p++);