diff options
author | Ian Lynagh <ian@well-typed.com> | 2012-10-05 00:40:50 +0100 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2012-10-05 00:40:50 +0100 |
commit | 6784dddc7f16e73382d1855962f93cf4a712a496 (patch) | |
tree | 3c6681b09192518086b900e37250ebf8eea0ca15 /compiler/ghci | |
parent | b49ad6bb4e85bc16b60c176672b448e30d333d7c (diff) | |
download | haskell-6784dddc7f16e73382d1855962f93cf4a712a496.tar.gz |
Make adjust_ul handle BCOs
We never ran into this before, because replace_osuf was almost always
False (i.e. we were almost always using the vanilla way when using
bytecode, so adjust_ul wasn't needed). Now that we can have the dynamic
way on by default many tests were failing because of it.
Diffstat (limited to 'compiler/ghci')
-rw-r--r-- | compiler/ghci/Linker.lhs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs index 23e047492d..8f572e85a7 100644 --- a/compiler/ghci/Linker.lhs +++ b/compiler/ghci/Linker.lhs @@ -647,7 +647,9 @@ getLinkDeps hsc_env hpt pls replace_osuf span mods ptext (sLit "cannot find normal object file ") <> quotes (text new_file) $$ while_linking_expr else return (DotO new_file) - adjust_ul _ = panic "adjust_ul" + adjust_ul (DotA fp) = panic ("adjust_ul DotA " ++ show fp) + adjust_ul (DotDLL fp) = panic ("adjust_ul DotDLL " ++ show fp) + adjust_ul l@(BCOs {}) = return l \end{code} |