Commit 72964542 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-10-08 13:24:53 by simonmar]

Don't panic when an out-of-range optimisation level is requested.
parent 1f5a36d0
{-# OPTIONS -#include "hschooks.h" #-}
-----------------------------------------------------------------------------
-- $Id: DriverFlags.hs,v 1.73 2001/10/01 13:57:13 rrt Exp $
-- $Id: DriverFlags.hs,v 1.74 2001/10/08 13:24:53 simonmar Exp $
--
-- Driver flags
--
......@@ -463,7 +463,8 @@ buildStaticHscOpts = do
0 -> hsc_minusNoO_flags
1 -> hsc_minusO_flags
2 -> hsc_minusO2_flags
_ -> error "unknown opt level"
n -> throwDyn (CmdLineError ("unknown optimisation level: "
++ show n))
-- ToDo: -Ofile
-- take into account -fno-* flags by removing the equivalent -f*
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment