From: simonmar <unknown>
Date: Tue, 20 Mar 2001 09:18:28 +0000 (+0000)
Subject: [project @ 2001-03-20 09:18:28 by simonmar]
X-Git-Tag: Approximately_9120_patches~2369
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1bc9b0f166453579a9dcb3ad6f021449714e9fd1;p=ghc-hetmet.git

[project @ 2001-03-20 09:18:28 by simonmar]
put the NUL terminator in the right place in stringToStringBuffer.
---

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index 713dc77..8f79d2b 100644
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -199,10 +199,10 @@ freeStringBuffer :: StringBuffer -> IO ()
 
 #if __GLASGOW_HASKELL__ >= 411
 stringToStringBuffer str =
-  do let sz@(I# sz#) = length str + 1
-     (Ptr a#) <- mallocBytes sz
+  do let sz@(I# sz#) = length str
+     (Ptr a#) <- mallocBytes (sz+1)
      fill_in str (A# a#)
-     writeCharOffAddr (A# a#) (sz-1) '\0'		-- sentinel
+     writeCharOffAddr (A# a#) sz '\0'		-- sentinel
      return (StringBuffer a# sz# 0# 0#)
  where
   fill_in [] _ = return ()