From a2fe6a4a5616166366b15c601d26e78429082133 Mon Sep 17 00:00:00 2001
From: Moritz Angermann <moritz@stable-haskell.org>
Date: Tue, 9 Sep 2025 15:10:05 +0900
Subject: [PATCH] ghc-config: add more fields

---
 testsuite/ghc-config/ghc-config.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/testsuite/ghc-config/ghc-config.hs b/testsuite/ghc-config/ghc-config.hs
index 4d76b6eaca80..6bd306f07703 100644
--- a/testsuite/ghc-config/ghc-config.hs
+++ b/testsuite/ghc-config/ghc-config.hs
@@ -10,6 +10,10 @@ main = do
   info <- readProcess ghc ["+RTS", "--info"] ""
   let fields = read info :: [(String,String)]
   getGhcFieldOrFail fields "HostOS" "Host OS"
+  getGhcFieldOrFail fields "WORDSIZE" "Word size"
+  getGhcFieldOrFail fields "TARGETPLATFORM" "Host platform"
+  getGhcFieldOrFail fields "TargetOS_CPP" "Host OS"
+  getGhcFieldOrFail fields "TargetARCH_CPP" "Host architecture"
   getGhcFieldOrFail fields "RTSWay" "RTS way"
 
   -- support for old GHCs (pre 9.13): infer target platform by querying the rts...