Commit 13c0d8a2 authored by rrt's avatar rrt
Browse files

[project @ 2000-07-21 08:40:04 by rrt]

Add dll as a fully-fledged way.
parent f7750b5a
......@@ -731,6 +731,7 @@ GLOBAL_VAR(build_tag, "", String)
data WayName
= WayProf
| WayUnreg
| WayDll
| WayTicky
| WayPar
| WayGran
......@@ -757,6 +758,8 @@ data WayName
GLOBAL_VAR(ways, [] ,[WayName])
-- ToDo: allow WayDll with any other allowed combination
allowed_combinations =
[ [WayProf,WayUnreg],
[WayProf,WaySMP] -- works???
......@@ -811,6 +814,9 @@ way_details =
, "-fno-asm-mangling"
, "-funregisterised" ]),
(WayDll, Way "dll" "DLLized"
[ ]),
(WayPar, Way "mp" "Parallel"
[ "-fstack-check"
, "-fparallel"
......@@ -1684,6 +1690,7 @@ run_something phase_name cmd
putStr phase_name
putStrLn ":"
putStrLn cmd
hFlush stdout
-- test for -n flag
n <- readIORef dry_run
......@@ -1748,6 +1755,7 @@ opts =
------- ways --------------------------------------------------------
, ( "prof" , NoArg (addNoDups ways WayProf) )
, ( "unreg" , NoArg (addNoDups ways WayUnreg) )
, ( "dll" , NoArg (addNoDups ways WayDll) )
, ( "ticky" , NoArg (addNoDups ways WayTicky) )
, ( "parallel" , NoArg (addNoDups ways WayPar) )
, ( "gransim" , NoArg (addNoDups ways WayGran) )
......
Supports Markdown
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