add zlib patch

diff --git a/swflib/compress.swf b/swflib/compress.swf
new file mode 100644 (file)
index 0000000..9a45a56
Binary files /dev/null and b/swflib/compress.swf differ

diff --git a/swflib/swfIn.ml b/swflib/swfIn.ml
index ecbaf0a..2f74135 100644 (file)
--- a/swflib/swfIn.ml
+++ b/swflib/swfIn.ml
@@ -77,8 +77,13 @@ module Make(Tag:TagType) = struct
          None
       end
 
+  (* patch *)
+  let _ =
+    Callback.register_exception "mlgz_exn" (Gz.Error "")
+
   let uncompress s =
-    Gz.uncompress s ~pos:0 ~len:(String.length s)
+      Gz.uncompress s ~pos:0 ~len:(String.length s)
+
 
   let read stream =
     match stream with parser