fix: add Safe Haskell pragmas to new ghc-internal modules

When modules from ghc-heap were moved to ghc-internal, they were missing
Safe Haskell language pragmas. This caused ghc-internal to lose its
trusted package status, resulting in testsuite failures for Safe Haskell
tests (BadImport, Dep, ImpSafe, safePkg01, etc.).

Add appropriate pragmas based on module content:

Unsafe (uses FFI, MagicHash, Ptr, Storable):
- GHC.Internal.Heap.Closures
- GHC.Internal.Heap.InfoTable
- GHC.Internal.Heap.InfoTable.Types
- GHC.Internal.Heap.InfoTableProf
- GHC.Internal.Stack.CloneStack
- GHC.Internal.Stack.Decode

Trustworthy (no unsafe features):
- GHC.Internal.Heap.Constants
- GHC.Internal.Heap.ProfInfo.Types
- GHC.Internal.Stack.Annotation
- GHC.Internal.Stack.Constants
- GHC.Internal.Stack.ConstantsProf

Author: angerman

libraries/ghc-internal/src/GHC/Internal/Heap/Closures.hs

@@ -2,6 +2,7 @@
 {-# LANGUAGE ForeignFunctionInterface #-}
 {-# LANGUAGE GHCForeignImportPrim #-}
 {-# LANGUAGE MagicHash #-}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE UnliftedFFITypes #-}
 {-# LANGUAGE DeriveGeneric #-}

libraries/ghc-internal/src/GHC/Internal/Heap/Constants.hsc

@@ -1,4 +1,5 @@
 {-# LANGUAGE CPP #-}
+{-# LANGUAGE Trustworthy #-}
 
 module GHC.Internal.Heap.Constants
     ( wORD_SIZE

libraries/ghc-internal/src/GHC/Internal/Heap/InfoTable.hsc

@@ -1,3 +1,5 @@
+{-# LANGUAGE Unsafe #-}
+
 module GHC.Internal.Heap.InfoTable
     ( module GHC.Internal.Heap.InfoTable.Types
     , itblSize

libraries/ghc-internal/src/GHC/Internal/Heap/InfoTable/Types.hsc

@@ -1,6 +1,7 @@
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE Unsafe #-}
 
 module GHC.Internal.Heap.InfoTable.Types
     ( StgInfoTable(..)

libraries/ghc-internal/src/GHC/Internal/Heap/InfoTableProf.hsc

@@ -1,3 +1,5 @@
+{-# LANGUAGE Unsafe #-}
+
 module GHC.Internal.Heap.InfoTableProf
     ( module GHC.Internal.Heap.InfoTable.Types
     , itblSize

libraries/ghc-internal/src/GHC/Internal/Heap/ProfInfo/Types.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE Trustworthy #-}
 
 module GHC.Internal.Heap.ProfInfo.Types where
 

libraries/ghc-internal/src/GHC/Internal/Stack/Annotation.hs

@@ -1,5 +1,6 @@
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE Trustworthy #-}
 module GHC.Internal.Stack.Annotation where
 
 import GHC.Internal.Base

libraries/ghc-internal/src/GHC/Internal/Stack/CloneStack.hs

@@ -3,6 +3,7 @@
 {-# LANGUAGE UnboxedTuples #-}
 {-# LANGUAGE UnliftedFFITypes#-}
 {-# LANGUAGE GHCForeignImportPrim #-}
+{-# LANGUAGE Unsafe #-}
 
 -- |
 -- This module exposes an interface for capturing the state of a thread's

libraries/ghc-internal/src/GHC/Internal/Stack/Constants.hsc

@@ -1,6 +1,7 @@
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE Trustworthy #-}
 module GHC.Internal.Stack.Constants where
 
 import GHC.Internal.Base

libraries/ghc-internal/src/GHC/Internal/Stack/ConstantsProf.hsc

@@ -1,6 +1,7 @@
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE Trustworthy #-}
 module GHC.Internal.Stack.ConstantsProf where
 
 import GHC.Internal.Base