ports/graphics/ocaml-images/files/patch-src_gifread.c
2014-12-27 00:44:05 +00:00

22 lines
599 B
C

--- src/gifread.c.orig 2011-06-22 18:04:32 UTC
+++ src/gifread.c
@@ -140,7 +140,11 @@ value dGifOpenFileName( value name )
GifFileType *GifFile;
int i;
+#if GIFLIB_MAJOR >= 5
+ if((GifFile = DGifOpenFileName( String_val(name), NULL )) == NULL){
+#else
if((GifFile = DGifOpenFileName( String_val(name) )) == NULL){
+#endif
failwith("DGifOpenFileName");
}
@@ -200,7 +204,6 @@ value dGifGetLine( value hdl )
if( DGifGetLine(GifFile, String_val(buf), GifFile->Image.Width )
== GIF_ERROR ){
- PrintGifError ();
failwith("DGifGetLine");
}
CAMLreturn(buf);