From: panne <unknown>
Date: Sun, 16 Jul 2000 20:58:48 +0000 (+0000)
Subject: [project @ 2000-07-16 20:58:48 by panne]
X-Git-Tag: Approximately_9120_patches~4002
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c5684f878f4e0200243d04ee47961901ed9a7734;p=ghc-hetmet.git

[project @ 2000-07-16 20:58:48 by panne]
Added new -fstrictfp flag
---

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 984ff7b..4840d40 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -107,6 +107,7 @@ module CmdLineOpts (
 	opt_SimplCaseOfCase,
 	opt_SimplCaseMerge,
 	opt_SimplPedanticBottoms,
+	opt_SimplStrictFP,
 
 	-- Unfolding control
 	opt_UF_HiFileThreshold,
@@ -445,6 +446,7 @@ opt_SimplDoLambdaEtaExpansion	= lookUp SLIT("-fdo-lambda-eta-expansion")
 opt_SimplCaseOfCase		= lookUp SLIT("-fcase-of-case")
 opt_SimplCaseMerge		= lookUp SLIT("-fcase-merge")
 opt_SimplPedanticBottoms	= lookUp SLIT("-fpedantic-bottoms")
+opt_SimplStrictFP		= lookUp SLIT("-fstrictfp")
 
 -- Unfolding control
 opt_UF_HiFileThreshold		= lookup_def_int "-funfolding-interface-threshold" (45::Int)