1 (* Test fix for a regression when extracting 32 and 64 bit aligned
2 * integers (discovered / fixed / tested by Hans Ole Rafaelsen).
10 let bitstring_of_int32 i =
13 let bitstring_of_int64 i =
16 let int32_of_bitstring bits =
20 let int64_of_bitstring bits =
25 let b1 = bitstring_of_int32 1_l in
26 let b2 = bitstring_of_int32 2_l in
27 let b3 = bitstring_of_int32 3_l in
28 let i1 = int32_of_bitstring b1 in
29 let i2 = int32_of_bitstring b2 in
30 let i3 = int32_of_bitstring b3 in
35 let b1 = bitstring_of_int64 1_L in
36 let b2 = bitstring_of_int64 2_L in
37 let b3 = bitstring_of_int64 3_L in
38 let i1 = int64_of_bitstring b1 in
39 let i2 = int64_of_bitstring b2 in
40 let i3 = int64_of_bitstring b3 in