Oberon Community Platform Forum
November 21, 2019, 08:08:15 AM *
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
News:
 
   Home   Help Search Login Register  
Pages: [1]
  Print  
Author Topic: Bug in ZipInflate  (Read 4313 times)
Stierlitz
Newbie
*
Posts: 3


« on: October 22, 2008, 09:47:30 AM »

Errors unpack the files long> 32768 Bytes

In PROCEDURE InflateCodes (VAR s: Stream);

Code
| CodeStart: (* try fast inflation while enough space available *)
    IF (wavail >= 258) & (s.in.avail >= 10) THEN
        InflateFast(s, wavail);
        IF s.res.code # ZC.Ok THEN
          IF s.res.code = ZC.StreamEnd THEN s.decode.state := CodeWash
          ELSE s.decode.state := CodeBad
          END
       END;
       EXIT
    END;
    s.decode.tree := s.decode.lltree;
    s.decode.state := CodeLen

must be replaced by

| CodeStart: (* try fast inflation while enough space available *)
    IF (wavail >= 258) & (s.in.avail >= 10) THEN
       InflateFast(s, wavail);
       IF s.res.code # ZC.Ok THEN
           IF s.res.code = ZC.StreamEnd THEN s.decode.state := CodeWash
           ELSE s.decode.state := CodeBad; EXIT
           END
       END
    END;
    IF s.decode.state # CodeWash THEN
       s.decode.tree := s.decode.lltree;
       s.decode.state := CodeLen
    END
Logged
staubesv
Administrator
Sr. Member
*****
Posts: 387



« Reply #1 on: October 22, 2008, 12:39:56 PM »

I could not reproduce the error by unpacking files packed by the ZipTool.Add command, but assuming that you could, the fix is included in revision 1639.

Thanks!
Logged
Stierlitz
Newbie
*
Posts: 3


« Reply #2 on: October 22, 2008, 12:55:59 PM »

This bug is floating on the file size> 32768 bytes.
Try to files size of 1-3 Mb and more
Logged
Pages: [1]
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!