projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
988b204
)
[project @ 2003-08-08 16:46:51 by simonmar]
author
simonmar
<unknown>
Fri, 8 Aug 2003 16:46:51 +0000
(16:46 +0000)
committer
simonmar
<unknown>
Fri, 8 Aug 2003 16:46:51 +0000
(16:46 +0000)
Fix string gap.
ghc/compiler/main/DriverFlags.hs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/DriverFlags.hs
b/ghc/compiler/main/DriverFlags.hs
index
c4a3e96
..
c6077f7
100644
(file)
--- a/
ghc/compiler/main/DriverFlags.hs
+++ b/
ghc/compiler/main/DriverFlags.hs
@@
-1,5
+1,5
@@
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.117 2003/06/24 07:58:20 simonpj Exp $
+-- $Id: DriverFlags.hs,v 1.118 2003/08/08 16:46:51 simonmar Exp $
--
-- Driver flags
--
--
-- Driver flags
--
@@
-127,7
+127,7
@@
findArg :: [(String,OptKind)] -> String -> Maybe (String,OptKind)
findArg spec arg
= case [ (remove_spaces rest, k)
| (pat,k) <- spec,
findArg spec arg
= case [ (remove_spaces rest, k)
| (pat,k) <- spec,
- Just rest <- [my_prefix_match pat arg],
+ Just rest <- [maybePrefixMatch pat arg],
arg_ok k rest arg ]
of
[] -> Nothing
arg_ok k rest arg ]
of
[] -> Nothing
@@
-252,7
+252,7
@@
static_flags =
then do writeIORef v_Split_object_files True
add v_Opt_C "-fglobalise-toplev-names"
else hPutStrLn stderr
then do writeIORef v_Split_object_files True
add v_Opt_C "-fglobalise-toplev-names"
else hPutStrLn stderr
- "warning: don't know how to split \
+ "warning: don't know how to split \
\object files on this architecture"
) )
\object files on this architecture"
) )