[Krobot-commits] [SCM] krobot branch, master, updated. fcc0f991f25242305a7c22757a00c38189b89e06

[Jérémie D. <Ba...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "krobot".

The branch, master has been updated
       via  fcc0f991f25242305a7c22757a00c38189b89e06 (commit)
      from  cdde1ef37393f7bd15d0fd5038c197b8a0e2d421 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit fcc0f991f25242305a7c22757a00c38189b89e06
Author: Jérémie Dimino <je...@di...>
Date:   Sat Apr 2 18:26:28 2011 +0200

    [info] fix serialization of signed int32s on 32bits

-----------------------------------------------------------------------

Changes:
diff --git a/info/control2011/src/lib/krobot_can.ml b/info/control2011/src/lib/krobot_can.ml
index 8b40c46..c5d9094 100644
--- a/info/control2011/src/lib/krobot_can.ml
+++ b/info/control2011/src/lib/krobot_can.ml
@@ -129,7 +129,7 @@ let put_uint8 = put_sint8
 
 let put_sint16 str ofs v =
   str.[ofs + 0] <- Char.unsafe_chr v;
-  str.[ofs + 1] <- Char.unsafe_chr (v lsr 8)
+  str.[ofs + 1] <- Char.unsafe_chr (v asr 8)
 
 let put_uint16 = put_sint16
 
@@ -137,7 +137,7 @@ let put_sint32 str ofs v =
   str.[ofs + 0] <- Char.unsafe_chr v;
   str.[ofs + 1] <- Char.unsafe_chr (v lsr 8);
   str.[ofs + 2] <- Char.unsafe_chr (v lsr 16);
-  str.[ofs + 3] <- Char.unsafe_chr (v lsr 24)
+  str.[ofs + 3] <- Char.unsafe_chr (v asr 24)
 
 let put_uint32 = put_sint32
 


hooks/post-receive
-- 
krobot