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