safe-string.patch

   1 --- ocamlsdl-0.9.1.old/src/sdlmouse.ml  2011-04-10 16:33:52.000000000 +0100
   2 +++ ocamlsdl-0.9.1/src/sdlmouse.ml      2017-11-18 11:24:01.989795950 +0000
   3 @@ -49,12 +49,12 @@
   4      = "ml_SDL_Cursor_data"
   5
   6  let string_of_bits x =
   7 -  let s = String.make 8 ' ' in
   8 +  let s = Bytes.make 8 ' ' in
   9    for i=0 to 7 do
  10      if x land (1 lsl i) <> 0
  11 -    then s.[7-i] <- '@'
  12 +    then Bytes.set s (7-i) '@'
  13    done ;
  14 -  s
  15 +  Bytes.to_string s
  16
  17  let pprint_cursor c =
  18    let { data = data ; mask = mask } = cursor_data c in