From: sewardj <unknown>
Date: Wed, 31 Jan 2001 15:38:02 +0000 (+0000)
Subject: [project @ 2001-01-31 15:38:02 by sewardj]
X-Git-Tag: Approximately_9120_patches~2759
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d1bd2b665265989a5d2ecfe54451cc66e120f302;p=ghc-hetmet.git

[project @ 2001-01-31 15:38:02 by sewardj]
Give a clause for hPutFS on UnicodeStr.  Apparently only needed so that
-ddump-stix doesn't bomb when printing unicode strings.
---

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 007f5ac..eebb53a 100644
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -674,5 +674,10 @@ hPutFS handle (CharStr a# l#)
   | otherwise  = hPutBufFull handle (Ptr a#) (I# l#)
 #endif
 
+-- ONLY here for debugging the NCG (so -ddump-stix works for string
+-- literals); no idea if this is really necessary.  JRS, 010131
+hPutFS handle (UnicodeStr _ is) 
+  = hPutStr handle ("(UnicodeStr " ++ show is ++ ")")
+
 #endif
 \end{code}