Collected c41c478eb9003eaa9fc8081a0039652448124f5d out of ghc
repository to be removed in ghc 9.4 era.

Index: utils/deriveConstants/Main.hs
--- utils/deriveConstants/Main.hs.orig
+++ utils/deriveConstants/Main.hs
@@ -795,7 +795,7 @@ getWanted verbose os tmpdir gccProgram gccFlags nmProg
                   , Just sym <- stripPrefix prefix sym0 = Just (sym, read n)
                   | otherwise = Nothing
                 where
-                  [sym0, _] = take 2 (reverse $ words l1)
+                  sym0 = head $ reverse $ words l1
 
           -- If an Int value is larger than 2^28 or smaller
           -- than -2^28, then fail.
