[project @ 1997-03-14 07:52:06 by simonpj]

[ghc-hetmet.git] / ghc / compiler / utils / Argv.lhs

diff --git a/ghc/compiler/utils/Argv.lhs b/ghc/compiler/utils/Argv.lhs
index 821a806..c9ba42b 100644 (file)
--- a/ghc/compiler/utils/Argv.lhs
+++ b/ghc/compiler/utils/Argv.lhs
@@ -17,7 +17,11 @@ CHK_Ubiq() -- debugging consistency check
 # define PACK_STR   packCString
 #else
 # define ADDR      _Addr
+# define PACK_STR   mkFastCharString
+/*
+# define ADDR      _Addr
 # define PACK_STR   _packCString
+*/
 #endif
 
 argv :: [FAST_STRING]