Commit 8815f0c0 authored by Simon Marlow's avatar Simon Marlow
Browse files

tidy up "missing symbol" error message

parent 9c0e08c6
...@@ -413,7 +413,7 @@ reallyInitDynLinker dflags ...@@ -413,7 +413,7 @@ reallyInitDynLinker dflags
; ok <- resolveObjs ; ok <- resolveObjs
; if succeeded ok then maybePutStrLn dflags "done" ; if succeeded ok then maybePutStrLn dflags "done"
else ghcError (InstallationError "linking extra libraries/objects failed") else ghcError (ProgramError "linking extra libraries/objects failed")
}} }}
classifyLdInput :: FilePath -> IO (Maybe LibrarySpec) classifyLdInput :: FilePath -> IO (Maybe LibrarySpec)
......
...@@ -2655,8 +2655,7 @@ ocResolve_PEi386 ( ObjectCode* oc ) ...@@ -2655,8 +2655,7 @@ ocResolve_PEi386 ( ObjectCode* oc )
copyName ( sym->Name, strtab, symbol, 1000-1 ); copyName ( sym->Name, strtab, symbol, 1000-1 );
S = (UInt32) lookupSymbol( symbol ); S = (UInt32) lookupSymbol( symbol );
if ((void*)S != NULL) goto foundit; if ((void*)S != NULL) goto foundit;
/* Newline first because the interactive linker has printed "linking..." */ errorBelch("%s: unknown symbol `%s'", oc->fileName, symbol);
errorBelch("\n%s: unknown symbol `%s'", oc->fileName, symbol);
return 0; return 0;
foundit:; foundit:;
} }
......
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