From: ceriel <none@none>
Date: Fri, 17 Mar 1995 12:37:06 +0000 (+0000)
Subject: Added -F option to indicate name of floating point hook
X-Git-Tag: release-5-5~133
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=404d86d544786f7858d811b8762fe997748537b7;p=ack.git

Added -F option to indicate name of floating point hook
---

diff --git a/mach/i386/ncg/mach.c b/mach/i386/ncg/mach.c
index e6e778c58..e3b74053a 100644
--- a/mach/i386/ncg/mach.c
+++ b/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 ;