ref: baaf35cf72504676b7d233655e50ee9ec3bbfe33
parent: eb34795e1fc39c4681ad98f0daa57ffe9040c59e
author: Ori Bernstein <ori@eigenstate.org>
date: Sat Feb 14 10:40:51 EST 2015
Fix getbe implementations.
Some of them were actually getle. Fixed.
--- a/libstd/getint.myr
+++ b/libstd/getint.myr
@@ -10,28 +10,35 @@
;;
generic getbe64 = {buf -> @a::(numeric,integral)- -> ((buf[0] castto(@a::(numeric,integral))) << 0) | \
- ((buf[1] castto(@a::(numeric,integral))) << 8) | \
- ((buf[2] castto(@a::(numeric,integral))) << 16) | \
- ((buf[3] castto(@a::(numeric,integral))) << 24) | \
- ((buf[4] castto(@a::(numeric,integral))) << 32) | \
- ((buf[5] castto(@a::(numeric,integral))) << 40) | \
- ((buf[6] castto(@a::(numeric,integral))) << 48) | \
- ((buf[7] castto(@a::(numeric,integral))) << 56)
+ -> ((buf[0] castto(@a::(numeric,integral))) << 56) | \
+ ((buf[1] castto(@a::(numeric,integral))) << 48) | \
+ ((buf[2] castto(@a::(numeric,integral))) << 40) | \
+ ((buf[3] castto(@a::(numeric,integral))) << 32) | \
+ ((buf[4] castto(@a::(numeric,integral))) << 24) | \
+ ((buf[5] castto(@a::(numeric,integral))) << 16) | \
+ ((buf[6] castto(@a::(numeric,integral))) << 8) | \
+ ((buf[7] castto(@a::(numeric,integral))) << 0)
}
generic getle64 = {buf- -> ((buf[7] castto(@a::(numeric,integral))) << 0) | \
- ((buf[6] castto(@a::(numeric,integral))) << 8) | \
- ((buf[5] castto(@a::(numeric,integral))) << 16) | \
- ((buf[4] castto(@a::(numeric,integral))) << 24) | \
- ((buf[3] castto(@a::(numeric,integral))) << 32) | \
- ((buf[2] castto(@a::(numeric,integral))) << 40) | \
- ((buf[1] castto(@a::(numeric,integral))) << 48) | \
- ((buf[0] castto(@a::(numeric,integral))) << 56)
+ -> ((buf[0] castto(@a::(numeric,integral))) << 0) | \
+ ((buf[1] castto(@a::(numeric,integral))) << 8) | \
+ ((buf[2] castto(@a::(numeric,integral))) << 16) | \
+ ((buf[3] castto(@a::(numeric,integral))) << 24) | \
+ ((buf[4] castto(@a::(numeric,integral))) << 32) | \
+ ((buf[5] castto(@a::(numeric,integral))) << 40) | \
+ ((buf[6] castto(@a::(numeric,integral))) << 48) | \
+ ((buf[7] castto(@a::(numeric,integral))) << 56)
}
generic getbe32 = {buf+ -> ((buf[0] castto(@a::(numeric,integral))) << 24) | \
+ ((buf[1] castto(@a::(numeric,integral))) << 16) | \
+ ((buf[2] castto(@a::(numeric,integral))) << 8) | \
+ ((buf[3] castto(@a::(numeric,integral))) << 0)
+}
+
+generic getle32 = {buf-> ((buf[0] castto(@a::(numeric,integral))) << 0) | \
((buf[1] castto(@a::(numeric,integral))) << 8) | \
((buf[2] castto(@a::(numeric,integral))) << 16) | \
@@ -38,27 +45,20 @@
((buf[3] castto(@a::(numeric,integral))) << 24)
}
-generic getle32 = {buf- -> ((buf[3] castto(@a::(numeric,integral))) << 24) | \
- ((buf[2] castto(@a::(numeric,integral))) << 16) | \
- ((buf[1] castto(@a::(numeric,integral))) << 8) | \
- ((buf[0] castto(@a::(numeric,integral))) << 0)
+generic getbe16 = {buf+ -> ((buf[0] castto(@a::(numeric,integral))) << 8) | \
+ ((buf[1] castto(@a::(numeric,integral))) << 0)
}
-generic getbe16 = {buf+generic getle16 = {buf-> ((buf[0] castto(@a::(numeric,integral))) << 0) | \
((buf[1] castto(@a::(numeric,integral))) << 8)
}
-generic getle16 = {buf- -> ((buf[1] castto(@a::(numeric,integral))) << 8) | \
- ((buf[0] castto(@a::(numeric,integral))) << 0)
-}
-
generic getbe8 = {buf-> (buf[0] castto(@a::(numeric,integral))) << 0
}
generic getle8 = {buf- -> (buf[0] castto(@a::(numeric,integral))) << 8
+ -> (buf[0] castto(@a::(numeric,integral))) << 0
}