[project @ 1999-01-28 11:29:23 by simonpj]

Changes for new z-encoding

diff --git a/ghc/lib/std/Main.hi-boot b/ghc/lib/std/Main.hi-boot
index 642e4a6..339a6ee 100644 (file)
--- a/ghc/lib/std/Main.hi-boot
+++ b/ghc/lib/std/Main.hi-boot
@@ -7,5 +7,6 @@
 ---------------------------------------------------------------------------
  
 __interface Main 1 where
-__export Main main ;
+__export ! Main main ;
 1 main :: __forall [a] => PrelIOBase.IO a;
+

diff --git a/ghc/lib/std/PrelException.hi-boot b/ghc/lib/std/PrelException.hi-boot
index 8082910..99cbf79 100644 (file)
--- a/ghc/lib/std/PrelException.hi-boot
+++ b/ghc/lib/std/PrelException.hi-boot
@@ -6,6 +6,6 @@
 ---------------------------------------------------------------------------
  
 __interface PrelErr 1 where
-__export PrelException ioError catch;
+__export ! PrelException ioError catch;
 1 ioError :: __forall [a] => PrelIOBase.IOError -> PrelIOBase.IO a ;
 1 catch :: __forall [a] => PrelIOBase.IO a -> (PrelIOBase.IOError -> PrelIOBase.IO a) -> PrelIOBase.IO a ;

diff --git a/ghc/lib/std/PrelPack.hi-boot b/ghc/lib/std/PrelPack.hi-boot
index 8ca2f13..3a44183 100644 (file)
--- a/ghc/lib/std/PrelPack.hi-boot
+++ b/ghc/lib/std/PrelPack.hi-boot
@@ -8,11 +8,11 @@
 ---------------------------------------------------------------------------
  
 __interface PrelPack 1 where
-__export PrelPack packCString# unpackCString# unpackNBytes# unpackAppendCString# unpackFoldrCString#;
+__export ! PrelPack packCStringzh unpackCStringzh unpackNByteszh unpackAppendCStringzh unpackFoldrCStringzh ;
 
-1 packCString# :: [PrelBase.Char] -> PrelGHC.ByteArray# ;
-1 unpackCString# :: PrelGHC.Addr# -> [PrelBase.Char] ;
-1 unpackNBytes# :: PrelGHC.Addr# -> PrelGHC.Int# -> [PrelBase.Char] ;
-1 unpackAppendCString# :: PrelGHC.Addr# -> [PrelBase.Char] -> [PrelBase.Char] ;
-1 unpackFoldrCString# :: __forall [a] => PrelGHC.Addr# -> (PrelBase.Char -> a -> a) -> a -> a ;
+1 packCStringzh :: [PrelBase.Char] -> PrelGHC.ByteArrayzh ;
+1 unpackCStringzh :: PrelGHC.Addrzh -> [PrelBase.Char] ;
+1 unpackNByteszh :: PrelGHC.Addrzh -> PrelGHC.Intzh -> [PrelBase.Char] ;
+1 unpackAppendCStringzh :: PrelGHC.Addrzh -> [PrelBase.Char] -> [PrelBase.Char] ;
+1 unpackFoldrCStringzh :: __forall [a] => PrelGHC.Addrzh -> (PrelBase.Char -> a -> a) -> a -> a ;