diff options
| author | Enrico Tassi | 2015-02-23 17:14:05 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2015-02-23 17:14:05 +0100 |
| commit | e87ca456fb4cbe54f09e13f1e20d504d2699ac2b (patch) | |
| tree | 41b358ee2deb7c614e39f7db27368f9626c19778 /kernel/uint31.ml | |
| parent | 28781f3fd6ae6e7f281f906721e8a028679ca089 (diff) | |
| parent | df2f50db3703b4f7f88f00ac382c7f3f1efaceb3 (diff) | |
Merge branch 'v8.5' into trunk
Diffstat (limited to 'kernel/uint31.ml')
| -rw-r--r-- | kernel/uint31.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/uint31.ml b/kernel/uint31.ml index 3a0da2f621..d9c723c243 100644 --- a/kernel/uint31.ml +++ b/kernel/uint31.ml @@ -1,7 +1,7 @@ (* Invariant: For arch64 all extra bytes are set to 0 *) type t = int - (* to be used only on 32 bits achitectures *) + (* to be used only on 32 bits architectures *) let maxuint31 = Int32.of_string "0x7FFFFFFF" let uint_32 i = Int32.logand (Int32.of_int i) maxuint31 @@ -16,7 +16,7 @@ let of_int_64 i = i land 0x7FFFFFFF let of_int = select of_int_32 of_int_64 let of_uint i = i - (* convertion of an uint31 to a string *) + (* conversion of an uint31 to a string *) let to_string_32 i = Int32.to_string (uint_32 i) let to_string_64 = string_of_int |