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

Added support for DBX; Unfortunately, DBX still does not like it; GDB does

Browse source
This commit is contained in:
ceriel 1990-11-13 17:00:51 +00:00
parent 7536a1f510
commit ba69e4279d
4 changed files with 28 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
mach/m68020/ncg/mach.c
View file

@ -208,6 +208,11 @@ mes(type) word type ; {
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
a2 = argval; a2 = argval;
argt = getarg(cst_ptyp|nof_ptyp|sof_ptyp|ilb_ptyp|pro_ptyp); argt = getarg(cst_ptyp|nof_ptyp|sof_ptyp|ilb_ptyp|pro_ptyp);
#ifdef DBX
if (a1 == N_PSYM) {
argval += 8;
}
#endif
fprintf(codefile, "%s, 0x%x, %d\n", strarg(argt), a1, a2); fprintf(codefile, "%s, 0x%x, %d\n", strarg(argt), a1, a2);
argt = getarg(end_ptyp); argt = getarg(end_ptyp);
break; break;
@ -219,6 +224,7 @@ mes(type) word type ; {
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
} }
swtxt(); swtxt();
#ifndef DBX
if (argval == N_SLINE) { if (argval == N_SLINE) {
#ifdef TBL68020 #ifdef TBL68020
fputs("jsr (___u_LiB)\n", codefile); fputs("jsr (___u_LiB)\n", codefile);
@ -227,6 +233,7 @@ mes(type) word type ; {
#endif #endif
cleanregs(); /* debugger might change variables */ cleanregs(); /* debugger might change variables */
} }
#endif
fprintf(codefile, ".symd \"%s\", 0x%x,", str, (int) argval); fprintf(codefile, ".symd \"%s\", 0x%x,", str, (int) argval);
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
fprintf(codefile, "%d\n", (int) argval); fprintf(codefile, "%d\n", (int) argval);

7
mach/m68k2/ncg/mach.c
View file

@ -208,6 +208,11 @@ mes(type) word type ; {
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
a2 = argval; a2 = argval;
argt = getarg(cst_ptyp|nof_ptyp|sof_ptyp|ilb_ptyp|pro_ptyp); argt = getarg(cst_ptyp|nof_ptyp|sof_ptyp|ilb_ptyp|pro_ptyp);
#ifdef DBX
if (a1 == N_PSYM) {
argval += 8;
}
#endif
fprintf(codefile, "%s, 0x%x, %d\n", strarg(argt), a1, a2); fprintf(codefile, "%s, 0x%x, %d\n", strarg(argt), a1, a2);
argt = getarg(end_ptyp); argt = getarg(end_ptyp);
break; break;
@ -219,6 +224,7 @@ mes(type) word type ; {
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
} }
swtxt(); swtxt();
#ifndef DBX
if (argval == N_SLINE) { if (argval == N_SLINE) {
#ifdef TBL68020 #ifdef TBL68020
fputs("jsr (___u_LiB)\n", codefile); fputs("jsr (___u_LiB)\n", codefile);
@ -227,6 +233,7 @@ mes(type) word type ; {
#endif #endif
cleanregs(); /* debugger might change variables */ cleanregs(); /* debugger might change variables */
} }
#endif
fprintf(codefile, ".symd \"%s\", 0x%x,", str, (int) argval); fprintf(codefile, ".symd \"%s\", 0x%x,", str, (int) argval);
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
fprintf(codefile, "%d\n", (int) argval); fprintf(codefile, "%d\n", (int) argval);

7
mach/m68k4/ncg/mach.c
View file

@ -208,6 +208,11 @@ mes(type) word type ; {
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
a2 = argval; a2 = argval;
argt = getarg(cst_ptyp|nof_ptyp|sof_ptyp|ilb_ptyp|pro_ptyp); argt = getarg(cst_ptyp|nof_ptyp|sof_ptyp|ilb_ptyp|pro_ptyp);
#ifdef DBX
if (a1 == N_PSYM) {
argval += 8;
}
#endif
fprintf(codefile, "%s, 0x%x, %d\n", strarg(argt), a1, a2); fprintf(codefile, "%s, 0x%x, %d\n", strarg(argt), a1, a2);
argt = getarg(end_ptyp); argt = getarg(end_ptyp);
break; break;
@ -219,6 +224,7 @@ mes(type) word type ; {
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
} }
swtxt(); swtxt();
#ifndef DBX
if (argval == N_SLINE) { if (argval == N_SLINE) {
#ifdef TBL68020 #ifdef TBL68020
fputs("jsr (___u_LiB)\n", codefile); fputs("jsr (___u_LiB)\n", codefile);
@ -227,6 +233,7 @@ mes(type) word type ; {
#endif #endif
cleanregs(); /* debugger might change variables */ cleanregs(); /* debugger might change variables */
} }
#endif
fprintf(codefile, ".symd \"%s\", 0x%x,", str, (int) argval); fprintf(codefile, ".symd \"%s\", 0x%x,", str, (int) argval);
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
fprintf(codefile, "%d\n", (int) argval); fprintf(codefile, "%d\n", (int) argval);

7
mach/moon3/ncg/mach.c
View file

@ -208,6 +208,11 @@ mes(type) word type ; {
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
a2 = argval; a2 = argval;
argt = getarg(cst_ptyp|nof_ptyp|sof_ptyp|ilb_ptyp|pro_ptyp); argt = getarg(cst_ptyp|nof_ptyp|sof_ptyp|ilb_ptyp|pro_ptyp);
#ifdef DBX
if (a1 == N_PSYM) {
argval += 8;
}
#endif
fprintf(codefile, "%s, 0x%x, %d\n", strarg(argt), a1, a2); fprintf(codefile, "%s, 0x%x, %d\n", strarg(argt), a1, a2);
argt = getarg(end_ptyp); argt = getarg(end_ptyp);
break; break;
@ -219,6 +224,7 @@ mes(type) word type ; {
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
} }
swtxt(); swtxt();
#ifndef DBX
if (argval == N_SLINE) { if (argval == N_SLINE) {
#ifdef TBL68020 #ifdef TBL68020
fputs("jsr (___u_LiB)\n", codefile); fputs("jsr (___u_LiB)\n", codefile);
@ -227,6 +233,7 @@ mes(type) word type ; {
#endif #endif
cleanregs(); /* debugger might change variables */ cleanregs(); /* debugger might change variables */
} }
#endif
fprintf(codefile, ".symd \"%s\", 0x%x,", str, (int) argval); fprintf(codefile, ".symd \"%s\", 0x%x,", str, (int) argval);
argt = getarg(cst_ptyp); argt = getarg(cst_ptyp);
fprintf(codefile, "%d\n", (int) argval); fprintf(codefile, "%d\n", (int) argval);