X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fprelude%2FBuiltin_mc.hi;fp=ghc%2Flib%2Fprelude%2FBuiltin_mc.hi;h=ba441b9d3dec831d321c4352224fa90d29f721d7;hb=e0befe921f5bbfa6daba3f8ff46cdf2a2abad1da;hp=b802737f1e21700f358db746626ff3a5a947680c;hpb=68a1f0233996ed79824d11d946e9801473f6946c;p=ghc-hetmet.git

diff --git a/ghc/lib/prelude/Builtin_mc.hi b/ghc/lib/prelude/Builtin_mc.hi
index b802737..ba441b9 100644
--- a/ghc/lib/prelude/Builtin_mc.hi
+++ b/ghc/lib/prelude/Builtin_mc.hi
@@ -11,5 +11,13 @@ error :: [Char] -> a
 parError# :: a
 	{-# GHC_PRAGMA _A_ 0 _N_ _N_ _S_ _!_ _N_ _N_ #-}
 patError# :: [Char] -> a
-	{-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ _!_ _N_ _N_ #-}
+	{-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ _!_ _N_ _N_ #-}
+unpackAppendPS# :: Addr# -> [Char] -> [Char]
+	{-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "PL" _N_ _N_ #-}
+unpackFoldrPS# :: Addr# -> (Char -> a -> a) -> a -> a
+	{-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "PLL" _N_ _N_ #-}
+unpackPS# :: Addr# -> [Char]
+	{-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "P" _N_ _N_ #-}
+unpackPS2# :: Addr# -> Int# -> [Char]
+	{-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "PP" _N_ _N_ #-}