2003-10-23 09:14:31 +02:00
|
|
|
--- TclPrimGhc.hs.orig Fri Feb 23 13:23:23 2001
|
|
|
|
|
+++ TclPrimGhc.hs Thu Oct 23 09:11:54 2003
|
2003-10-21 23:56:23 +02:00
|
|
|
@@ -42,7 +42,7 @@
|
2003-10-23 09:14:31 +02:00
|
|
|
writeElt pstr 0 str
|
|
|
|
|
return pstr
|
|
|
|
|
where
|
|
|
|
|
- len = Word.intToWord32 (length str + 1)
|
|
|
|
|
+ len = fromIntegral (length str + 1)
|
|
|
|
|
|
|
|
|
|
writeElt addr n [] = writeCharOffAddr addr n '\0'
|
|
|
|
|
writeElt addr n (v :vs) = do
|
