ports/graphics/ocaml-images/files/patch-src_gifread.c
Rene Ladan edbbdaf2a2 Ressurect devel/omake, graphics/ocaml-images and games/freetennis [1]
- devel/omake:
  - add new MASTER_SITES
  - regenerate patches [1]
- graphics/ocaml-images:
  - add missing LIB_DEPENDS
  - pet portlint
  - bump PORTREVISION
- games/freetennis:
  - add missing indirect depedencies [2]
  - bump PORTREVISION
PR:		210853 [1]
Submitted by:	lightside@gmx.com [1]
Reported by:	poudriere testport [2]
2016-07-23 14:19:05 +00:00

34 lines
930 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");
}
@@ -161,7 +165,11 @@ value dGifCloseFile( value hdl )
segmentation faults */
((GifFileType *)hdl)->Image.ColorMap = NULL;
+#if GIFLIB_MAJOR == 5 && GIFLIB_MINOR >= 1 || GIFLIB_MAJOR > 5
+ DGifCloseFile( (GifFileType *) hdl, NULL );
+#else
DGifCloseFile( (GifFileType *) hdl );
+#endif
CAMLreturn(Val_unit);
}
@@ -200,7 +208,6 @@ value dGifGetLine( value hdl )
if( DGifGetLine(GifFile, String_val(buf), GifFile->Image.Width )
== GIF_ERROR ){
- PrintGifError ();
failwith("DGifGetLine");
}
CAMLreturn(buf);