diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2014-04-06 12:41:26 -0400 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2014-04-09 01:05:48 -0400 |
commit | aa3b8b7b24e809b379fcc86f2b21ae4380b211d5 (patch) | |
tree | 254b9d84ee42798a513bcd5aea032a6e552b2067 /kernel/uint31.ml | |
parent | de61c7d77e49286622c4aebd56f2e87b0df93903 (diff) |
Partial support for open terms in int31.
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 0f1c1444b..fea12332c 100644 --- a/kernel/uint31.ml +++ b/kernel/uint31.ml @@ -149,5 +149,5 @@ let tail0 x = if !x land 0x1 = 0 then ( r := !r + 1); !r - - +let add_digit x d = + (x lsl 1) lor d |