Ver código fonte

Added -F option to indicate name of floating point hook

ceriel 29 anos atrás
pai
commit
66d018dc88
1 arquivos alterados com 12 adições e 0 exclusões
  1. 12 0
      mach/i386/ncg/mach.c

+ 12 - 0
mach/i386/ncg/mach.c

@@ -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 ;