aboutsummaryrefslogtreecommitdiffstats
path: root/community/cloudi/10-ocaml-32bit-fix.patch
blob: 8d2e2e82242b6a0cde6e1c74b2ed465220903210 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
--- a/src/tests/count/ocaml/main.ml
+++ b/src/tests/count/ocaml/main.ml
@@ -37,7 +37,7 @@
 
 let request request_type name pattern _ _ timeout _ trans_id pid state api =
   let {ServiceState.count; _} = state in
-  let count_new = if count == 4294967295 then 0 else count + 1 in
+  let count_new = if count == 1073741823 then 0 else count + 1 in
   state.ServiceState.count <- count_new ;
   print_endline ("count == " ^ (string_of_int count_new) ^ " ocaml") ;
   let response = string_of_int count_new
--- a/src/tests/msg_size/ocaml/main.ml
+++ b/src/tests/msg_size/ocaml/main.ml
@@ -65,7 +65,7 @@
     Cloudi.NullError (error)
   | Ok (i0) ->
     let i1 =
-      if i0 = 4294967295 then
+      if i0 = 1073741823 then
         0
       else
         i0 + 1