Added -F option to indicate name of floating point hook
This commit is contained in:
parent
911b0a43d8
commit
404d86d544
1 changed files with 12 additions and 0 deletions
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in a new issue