class: GIFReader
authorClaus Gittinger <cg@exept.de>
Fri, 01 Aug 2014 08:06:37 +0200
changeset 3364 c20af44ab483
parent 3363 26f61d3e0bb9
child 3365 49cb7d13746c
class: GIFReader changed: #writeBitDataFor:
GIFReader.st
--- a/GIFReader.st	Thu Jul 24 19:51:17 2014 +0200
+++ b/GIFReader.st	Fri Aug 01 08:06:37 2014 +0200
@@ -855,7 +855,7 @@
     maxMaxCode := 1 bitShift: maxBits.
     tSize := 5003.
     prefixTable := Array new: tSize.
-    suffixTable := Array new: tSize.
+    suffixTable := Array new: tSize withAll:-1.
 
     initCodeSize := bitsPerPixel <= 1 ifTrue: [2] ifFalse: [bitsPerPixel].
     outStream nextPut: initCodeSize.
@@ -868,7 +868,7 @@
         fCode := fCode * 2
     ].
     tShift := 8 - tShift.
-    1 to: tSize do: [:i | suffixTable at: i put: -1].
+    "/ 1 to: tSize do: [:i | suffixTable at: i put: -1]. - cg changed initialization above
 
     self writeCodeAndCheckCodeSize: clearCode.
     ent := self readPixelFrom: bits.
@@ -1084,11 +1084,11 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.104 2014-02-14 00:37:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.105 2014-08-01 06:06:37 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.104 2014-02-14 00:37:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.105 2014-08-01 06:06:37 cg Exp $'
 ! !