summaryrefslogtreecommitdiffstats
path: root/byterun
diff options
context:
space:
mode:
authorDamien Doligez <damien.doligez-inria.fr>2013-04-18 13:52:32 +0000
committerDamien Doligez <damien.doligez-inria.fr>2013-04-18 13:52:32 +0000
commit012b6a8f1ac575dee54d63f5c9bf390626ae87d4 (patch)
tree29d57427e89fe6f0434b9f42f0f2bd2984de5237 /byterun
parent7c6c5dcf38d4f9fc5d692a8e47c685a50720dbd8 (diff)
Large integer constants need to be suffixed by ULL to work on 32-bit machines
that support "long long". git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13559 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun')
-rw-r--r--byterun/int64_native.h16
1 files changed, 8 insertions, 8 deletions
diff --git a/byterun/int64_native.h b/byterun/int64_native.h
index 09b5d65e8..e9ffe6749 100644
--- a/byterun/int64_native.h
+++ b/byterun/int64_native.h
@@ -49,13 +49,13 @@
#define I64_to_double(x) ((double)(x))
#define I64_of_double(x) ((int64)(x))
-#define I64_bswap(x) ((((x) & 0x00000000000000FF) << 56) | \
- (((x) & 0x000000000000FF00) << 40) | \
- (((x) & 0x0000000000FF0000) << 24) | \
- (((x) & 0x00000000FF000000) << 8) | \
- (((x) & 0x000000FF00000000) >> 8) | \
- (((x) & 0x0000FF0000000000) >> 24) | \
- (((x) & 0x00FF000000000000) >> 40) | \
- (((x) & 0xFF00000000000000) >> 56))
+#define I64_bswap(x) ((((x) & 0x00000000000000FFULL) << 56) | \
+ (((x) & 0x000000000000FF00ULL) << 40) | \
+ (((x) & 0x0000000000FF0000ULL) << 24) | \
+ (((x) & 0x00000000FF000000ULL) << 8) | \
+ (((x) & 0x000000FF00000000ULL) >> 8) | \
+ (((x) & 0x0000FF0000000000ULL) >> 24) | \
+ (((x) & 0x00FF000000000000ULL) >> 40) | \
+ (((x) & 0xFF00000000000000ULL) >> 56))
#endif /* CAML_INT64_NATIVE_H */