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 | |
| parent | 705bf896bfc552e95403d097fe9b8031c598d88b (diff) | |
Fix some typos in comments.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/cbytegen.ml | 2 | ||||
| -rw-r--r-- | kernel/safe_typing.ml | 2 | ||||
| -rw-r--r-- | kernel/uint31.ml | 4 | ||||
| -rw-r--r-- | kernel/uint31.mli | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/kernel/cbytegen.ml b/kernel/cbytegen.ml index d6c160c3d..3b0c93b32 100644 --- a/kernel/cbytegen.ml +++ b/kernel/cbytegen.ml @@ -38,7 +38,7 @@ open Pre_env (* In the function body [arg1] is represented by de Bruijn [n], and *) (* [argn] by de Bruijn [1] *) -(* Representation of environements of mutual fixpoints : *) +(* Representation of environments of mutual fixpoints : *) (* [t1|C1| ... |tc|Cc| ... |t(nbr)|C(nbr)| fv1 | fv2 | .... | fvn | type] *) (* ^<----------offset---------> *) (* type = [Ct1 | .... | Ctn] *) diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 65d1de7e1..d762a246e 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -823,7 +823,7 @@ let retroknowledge f senv = let register field value by_clause senv = (* todo : value closed, by_clause safe, by_clause of the proper type*) (* spiwack : updates the safe_env with the information that the register - action has to be performed (again) when the environement is imported *) + action has to be performed (again) when the environment is imported *) { senv with env = Environ.register senv.env field value; local_retroknowledge = 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 diff --git a/kernel/uint31.mli b/kernel/uint31.mli index e8b980809..d1f933cc4 100644 --- a/kernel/uint31.mli +++ b/kernel/uint31.mli @@ -5,7 +5,7 @@ val to_int : t -> int val of_int : int -> t val of_uint : int -> t - (* convertion to a string *) + (* conversion to a string *) val to_string : t -> string val of_string : string -> t |