Added debugger support
This commit is contained in:
parent
ab1b54b56d
commit
2873c58731
1 changed files with 35 additions and 1 deletions
|
@ -9,6 +9,8 @@ static char rcs_m[]= "$Header$" ;
|
||||||
static char rcs_mh[]= ID_MH ;
|
static char rcs_mh[]= ID_MH ;
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
#include <stb.h>
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* machine dependent back end routines for the Intel 80386
|
* machine dependent back end routines for the Intel 80386
|
||||||
*/
|
*/
|
||||||
|
@ -136,7 +138,7 @@ regreturn()
|
||||||
#endif REGVARS
|
#endif REGVARS
|
||||||
|
|
||||||
mes(type) word type ; {
|
mes(type) word type ; {
|
||||||
int argt ;
|
int argt, a1, a2 ;
|
||||||
|
|
||||||
switch ( (int)type ) {
|
switch ( (int)type ) {
|
||||||
case ms_ext :
|
case ms_ext :
|
||||||
|
@ -151,6 +153,38 @@ mes(type) word type ; {
|
||||||
break ;
|
break ;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
case ms_stb:
|
||||||
|
argt = getarg(str_ptyp | cst_ptyp);
|
||||||
|
if (argt == sp_cstx)
|
||||||
|
fputs(".symb \"\", ", codefile);
|
||||||
|
else {
|
||||||
|
fprintf(codefile, ".symb \"%s\", ", str);
|
||||||
|
argt = getarg(cst_ptyp);
|
||||||
|
}
|
||||||
|
a1 = argval;
|
||||||
|
argt = getarg(cst_ptyp);
|
||||||
|
a2 = argval;
|
||||||
|
argt = getarg(cst_ptyp|nof_ptyp|sof_ptyp|ilb_ptyp|pro_ptyp);
|
||||||
|
fprintf(codefile, "%s, 0x%x, %d\n", strarg(argt), a1, a2);
|
||||||
|
argt = getarg(end_ptyp);
|
||||||
|
break;
|
||||||
|
case ms_std:
|
||||||
|
argt = getarg(str_ptyp | cst_ptyp);
|
||||||
|
if (argt == sp_cstx)
|
||||||
|
str[0] = '\0';
|
||||||
|
else {
|
||||||
|
argt = getarg(cst_ptyp);
|
||||||
|
}
|
||||||
|
swtxt();
|
||||||
|
if (argval == N_SLINE) {
|
||||||
|
fputs("call ___u_LiB\n", codefile);
|
||||||
|
cleanregs(); /* debugger might change variables */
|
||||||
|
}
|
||||||
|
fprintf(codefile, ".symd \"%s\", 0x%x,", str, (int) argval);
|
||||||
|
argt = getarg(cst_ptyp);
|
||||||
|
fprintf(codefile, "%d\n", (int) argval);
|
||||||
|
argt = getarg(end_ptyp);
|
||||||
|
break;
|
||||||
default :
|
default :
|
||||||
while ( getarg(any_ptyp) != sp_cend ) ;
|
while ( getarg(any_ptyp) != sp_cend ) ;
|
||||||
break ;
|
break ;
|
||||||
|
|
Loading…
Reference in a new issue