diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-02-23 11:26:51 +0100 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-02-23 13:37:52 +0100 |
| commit | df2f50db3703b4f7f88f00ac382c7f3f1efaceb3 (patch) | |
| tree | c11084a17eec2bc25bdcbba715aa1ba50b108272 /kernel/uint31.ml | |
| parent | 705bf896bfc552e95403d097fe9b8031c598d88b (diff) | |
Fix some typos in comments.
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 3a0da2f62..d9c723c24 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 |