combineObjectFiles: Error if the linker does not support -r

The `lld` linker (commonly used on Windows) does not support
relocatable output.

Cabal/src/Distribution/Simple/Program/Ld.hs

@@ -15,6 +15,8 @@ module Distribution.Simple.Program.Ld
   ( combineObjectFiles
   ) where
 
+import qualified Data.Map.Strict as Map
+
 import Distribution.Compat.Prelude
 import Prelude ()
 
@@ -67,6 +69,12 @@ combineObjectFiles verbosity lbi ld target files = do
   -- have a slight problem. What we have to do is link files in batches into
   -- a temp object file and then include that one in the next batch.
 
+  case Map.lookup "Supports relocatable output" $ programProperties ld of
+    Just "YES" -> pure ()
+    Just "NO" -> error $ "combineObjectFiles: Have been asked to combine object " ++
+                    "files but the configured linker does not support relocations."
+    _other -> pure () -- This may still fail if the compiler does not support -r.
+
   let simpleArgs = ["-r", "-o", target]
 
       initialArgs = ["-r", "-o", target]