Blame plplot-5.12.0-safe-string.patch
|
 |
9186489 |
--- plplot-5.12.0.old/examples/ocaml/x20.ml 2017-01-29 01:50:35.000000000 +0000
|
|
|
9186489 |
+++ plplot-5.12.0/examples/ocaml/x20.ml 2017-11-18 12:10:33.476409441 +0000
|
|
|
9186489 |
@@ -59,7 +59,7 @@
|
|
|
9186489 |
let w, h = Scanf.sscanf w_h_line "%d %d" (fun w h -> w, h) in
|
|
|
9186489 |
let num_col = Scanf.sscanf num_col_line "%d" (fun n -> n) in
|
|
|
9186489 |
|
|
|
9186489 |
- let img = String.make (w * h) ' ' in
|
|
|
9186489 |
+ let img = Bytes.make (w * h) ' ' in
|
|
|
9186489 |
let imf = Array.make_matrix w h 0.0 in
|
|
|
9186489 |
|
|
|
9186489 |
(* Note that under 32bit OCaml, this will only work when reading strings up
|
|
|
9186489 |
@@ -72,7 +72,7 @@
|
|
|
9186489 |
for j = 0 to h - 1 do
|
|
|
9186489 |
imf.(i).(j) <-
|
|
|
9186489 |
(* flip image up-down *)
|
|
|
9186489 |
- float_of_int (int_of_char (img.[(h - 1 - j ) * w + i]));
|
|
|
9186489 |
+ float_of_int (int_of_char (Bytes.get img ((h - 1 - j ) * w + i)));
|
|
|
9186489 |
done
|
|
|
9186489 |
done;
|
|
|
9186489 |
imf, w, h, num_col
|