From: sewardj <unknown>
Date: Wed, 13 Dec 2000 11:30:12 +0000 (+0000)
Subject: [project @ 2000-12-13 11:30:12 by sewardj]
X-Git-Tag: Approximately_9120_patches~3108
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=65815144d40beebd7be47049d6f122703430d4ec

[project @ 2000-12-13 11:30:12 by sewardj]
Track renaming of newCharArray# to newByteArray#
---

diff --git a/ghc/compiler/utils/PrimPacked.lhs b/ghc/compiler/utils/PrimPacked.lhs
index 502da6e..250f7bf 100644
--- a/ghc/compiler/utils/PrimPacked.lhs
+++ b/ghc/compiler/utils/PrimPacked.lhs
@@ -187,9 +187,12 @@ new_ps_array size = ST $ \ s ->
 #elif __GLASGOW_HASKELL__ < 405
     case (newCharArray# size s)	  of { (# s2#, barr# #) ->
     (# s2#, MutableByteArray bot barr# #) }
-#else
+#elif __GLASGOW_HASKELL__ < 411
     case (newCharArray# size s)	  of { (# s2#, barr# #) ->
     (# s2#, MutableByteArray bot bot barr# #) }
+#else /* 411 and higher */
+    case (newByteArray# size s)	  of { (# s2#, barr# #) ->
+    (# s2#, MutableByteArray bot bot barr# #) }
 #endif
   where
     bot = error "new_ps_array"