1 files changed, 0 insertions, 55 deletions
diff --git a/graphics/ocaml-images/files/patch-src_gifwrite.c b/graphics/ocaml-images/files/patch-src_gifwrite.c
deleted file mode 100644
index 0fbcede2549c..000000000000
--- a/graphics/ocaml-images/files/patch-src_gifwrite.c
+++ /dev/null
@@ -1,55 +0,0 @@
---- src/gifwrite.c.orig	2011-06-22 18:04:32 UTC
-+++ src/gifwrite.c
-@@ -25,7 +25,7 @@
- 
- #include <gif_lib.h>
- 
--int list_length( value list )
-+static int list_length( value list )
- {
-   CAMLparam1(list);
-   CAMLlocal1(l);
-@@ -52,7 +52,11 @@ ColorMapObject *ColorMapObject_val( valu
- fprintf(stderr, "Creating map with length = %d ...\n", len);
- fflush(stderr);
- */
-+#if GIFLIB_MAJOR >= 5
-+  cmapobj = GifMakeMapObject( len, NULL );
-+#else
-   cmapobj = MakeMapObject( len, NULL );
-+#endif
-   for(i=0; i< len; i++){
-     cmapobj->Colors[i].Red   = Int_val(Field(Field(cmap,i),0));
-     cmapobj->Colors[i].Green = Int_val(Field(Field(cmap,i),1));
-@@ -68,7 +72,11 @@ value eGifOpenFileName( name )
- 
-   GifFileType *GifFileOut;
- 
-+#if GIFLIB_MAJOR >= 5
-+  if ((GifFileOut = EGifOpenFileName( String_val( name ), 0, NULL) )== NULL) {
-+#else
-   if ((GifFileOut = EGifOpenFileName( String_val( name ), 0) )== NULL) {
-+#endif
-     failwith("EGifOpenFileName");
-   }
-   /* gcc -fwritable-strings is required to compile libungif */
-@@ -88,7 +96,11 @@ value eGifCloseFile( value hdl )
-      segmentation faults */
-   ((GifFileType *)hdl)->Image.ColorMap = NULL; 
- 
-+#if GIFLIB_MAJOR == 5 && GIFLIB_MINOR >= 1 || GIFLIB_MAJOR > 5
-+  EGifCloseFile( (GifFileType *) hdl, NULL );
-+#else
-   EGifCloseFile( (GifFileType *) hdl );
-+#endif
-   CAMLreturn(Val_unit);
- }
- 
-@@ -133,7 +145,6 @@ value eGifPutLine( value oc, value buf )
- 
-   if ( EGifPutLine(GifFileOut, String_val(buf), GifFileOut->Image.Width) 
-        == GIF_ERROR ){
--    PrintGifError ();
-     failwith("EGifPutLine");
-   }
-   CAMLreturn(Val_unit);