]>
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 |