Added -F option to indicate name of floating point hook

This commit is contained in:
ceriel 1995-03-17 12:37:06 +00:00
parent 911b0a43d8
commit 404d86d544

View file

@ -162,6 +162,7 @@ regreturn()
#ifdef MACH_OPTIONS #ifdef MACH_OPTIONS
static int gdb_flag = 0; static int gdb_flag = 0;
static char *fp_hook_nam;
mach_option(s) mach_option(s)
char *s; char *s;
@ -169,6 +170,9 @@ mach_option(s)
if (! strcmp(s, "-gdb")) { if (! strcmp(s, "-gdb")) {
gdb_flag = 1; gdb_flag = 1;
} }
else if (s[1] == 'F') {
fp_hook_nam = &s[2];
}
else { else {
error("Unknown flag %s", s); error("Unknown flag %s", s);
} }
@ -237,6 +241,14 @@ mes(type) word type ; {
fprintf(codefile, "%d\n", (int) argval); fprintf(codefile, "%d\n", (int) argval);
argt = getarg(end_ptyp); argt = getarg(end_ptyp);
break; break;
#ifdef MACH_OPTIONS
case ms_flt:
if (fp_hook_nam) {
part_flush();
ex_ap(fp_hook_nam);
}
/* fall through */
#endif
default : default :
while ( getarg(any_ptyp) != sp_cend ) ; while ( getarg(any_ptyp) != sp_cend ) ;
break ; break ;