[packages/ocaml-SDL.git] / safe-string.patch

--- ocamlsdl-0.9.1.old/src/sdlmouse.ml	2011-04-10 16:33:52.000000000 +0100
+++ ocamlsdl-0.9.1/src/sdlmouse.ml	2017-11-18 11:24:01.989795950 +0000
@@ -49,12 +49,12 @@
     = "ml_SDL_Cursor_data"
 
 let string_of_bits x =
-  let s = String.make 8 ' ' in
+  let s = Bytes.make 8 ' ' in
   for i=0 to 7 do
     if x land (1 lsl i) <> 0
-    then s.[7-i] <- '@'
+    then Bytes.set s (7-i) '@'
   done ;
-  s
+  Bytes.to_string s
 
 let pprint_cursor c =
   let { data = data ; mask = mask } = cursor_data c in
Commit	Line	Data
9808146f JR	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