From 1bc9b0f166453579a9dcb3ad6f021449714e9fd1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 20 Mar 2001 09:18:28 +0000
Subject: [PATCH] [project @ 2001-03-20 09:18:28 by simonmar] put the NUL
 terminator in the right place in stringToStringBuffer.

---
 ghc/compiler/utils/StringBuffer.lhs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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 ()
-- 
1.7.10.4