From c5684f878f4e0200243d04ee47961901ed9a7734 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 16 Jul 2000 20:58:48 +0000
Subject: [PATCH] [project @ 2000-07-16 20:58:48 by panne] Added new -fstrictfp
flag
---
ghc/compiler/main/CmdLineOpts.lhs | 2 ++
1 file changed, 2 insertions(+)
diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 984ff7b48381..4840d4056fbc 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)
--
GitLab