From 2ed52508d9fd345473006eeeeaf671df6d4a1bda Mon Sep 17 00:00:00 2001
From: amesgen <amesgen@amesgen.de>
Date: Sat, 9 Dec 2023 19:48:46 +0100
Subject: [PATCH] WASM metadata: use correct GHC version
(cherry picked from commit 08d14925bd58521def3a892cc9acbb82764eccaa)
---
compiler/GHC/CmmToAsm/Wasm/Asm.hs | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/compiler/GHC/CmmToAsm/Wasm/Asm.hs b/compiler/GHC/CmmToAsm/Wasm/Asm.hs
index 6ee754ff7b4..60f71d9c059 100644
--- a/compiler/GHC/CmmToAsm/Wasm/Asm.hs
+++ b/compiler/GHC/CmmToAsm/Wasm/Asm.hs
@@ -12,6 +12,7 @@ import Control.Monad.Trans.Reader
import Data.ByteString (ByteString)
import qualified Data.ByteString as BS
import Data.ByteString.Builder
+import qualified Data.ByteString.Char8 as BS8
import Data.Coerce
import Data.Foldable
import qualified GHC.Data.Word64Set as WS
@@ -25,6 +26,7 @@ import GHC.CmmToAsm.Wasm.Utils
import GHC.Data.FastString
import GHC.Float
import GHC.Prelude
+import GHC.Settings.Config (cProjectVersion)
import GHC.Types.Basic
import GHC.Types.Unique
import GHC.Types.Unique.Map
@@ -485,7 +487,7 @@ asmTellProducers = do
asmTellVec
[ do
asmTellBS "ghc"
- asmTellBS "9.6"
+ asmTellBS $ BS8.pack cProjectVersion
]
]
--
GitLab