Commit b7a226fd authored by sof's avatar sof

[project @ 2001-07-23 20:19:53 by sof]

Handle leading underscores for PrelMain undefineds
parent 42e2be6d
-----------------------------------------------------------------------------
-- $Id: DriverPipeline.hs,v 1.91 2001/07/19 14:23:16 rrt Exp $
-- $Id: DriverPipeline.hs,v 1.92 2001/07/23 20:19:53 sof Exp $
--
-- GHC Driver
--
......@@ -806,8 +806,8 @@ doLink o_files = do
[ "-u", "_PrelMain_mainIO_closure" ,
"-u", "___init_PrelMain"]
#else
[ "-u", "PrelMain_mainIO_closure" ,
"-u", "__init_PrelMain"]
[ "-u", prefixUnderscore "PrelMain_mainIO_closure" ,
"-u", prefixUnderscore "__init_PrelMain"]
#endif
else [])
......
-----------------------------------------------------------------------------
-- $Id: DriverUtil.hs,v 1.25 2001/06/27 10:14:13 rrt Exp $
-- $Id: DriverUtil.hs,v 1.26 2001/07/23 20:19:53 sof Exp $
--
-- Utils for the driver
--
......@@ -14,6 +14,7 @@ module DriverUtil where
import Util
import Panic
import Config ( cLeadingUnderscore )
import IOExts
import Exception
......@@ -65,6 +66,13 @@ softGetDirectoryContents d
return []
)
-----------------------------------------------------------------------------
-- Prefixing underscore to linker-level names
prefixUnderscore :: String -> String
prefixUnderscore
| cLeadingUnderscore == "YES" = ('_':)
| otherwise = id
-----------------------------------------------------------------------------
-- Utils
......
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