diff options
Diffstat (limited to 'dev-ml/cairo-ocaml/files')
-rw-r--r-- | dev-ml/cairo-ocaml/files/ocaml406.patch | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/dev-ml/cairo-ocaml/files/ocaml406.patch b/dev-ml/cairo-ocaml/files/ocaml406.patch new file mode 100644 index 000000000000..2ef9931463b0 --- /dev/null +++ b/dev-ml/cairo-ocaml/files/ocaml406.patch @@ -0,0 +1,20 @@ +Index: cairo-ocaml-1.2.0/src/cairo_png.ml +=================================================================== +--- cairo-ocaml-1.2.0.orig/src/cairo_png.ml ++++ cairo-ocaml-1.2.0/src/cairo_png.ml +@@ -7,13 +7,13 @@ + (**************************************************************************) + + external image_surface_create_from_stream_unsafe : +- (string -> int -> unit) -> Cairo.image_surface = "ml_cairo_image_surface_create_from_png_stream_unsafe" ++ (bytes -> int -> unit) -> Cairo.image_surface = "ml_cairo_image_surface_create_from_png_stream_unsafe" + + let image_surface_create_from_channel ic = + image_surface_create_from_stream_unsafe + (fun s n -> + for i = 0 to n - 1 do +- String.unsafe_set s i (input_char ic) ++ Bytes.unsafe_set s i (input_char ic) + done) + + let image_surface_create_from_file fname = |