diff options
Diffstat (limited to 'src/le_ocaml_401.ml')
| -rw-r--r-- | src/le_ocaml_401.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/le_ocaml_401.ml b/src/le_ocaml_401.ml index b65184c..9708444 100644 --- a/src/le_ocaml_401.ml +++ b/src/le_ocaml_401.ml @@ -2,31 +2,38 @@ if Sys.big_endian then swap16 (get_16 s off) else get_16 s off + [@@ocaml.inline] let get_int16 s off = - ((get_uint16 s off) lsl ( Sys.word_size - 17 )) asr ( Sys.word_size - 17 ) + ((get_uint16 s off) lsl ( Sys.int_size - 16 )) asr ( Sys.int_size - 16 ) + [@@ocaml.inline] let get_int32 s off = if Sys.big_endian then swap32 (get_32 s off) else get_32 s off + [@@ocaml.inline] let get_int64 s off = if Sys.big_endian then swap64 (get_64 s off) else get_64 s off + [@@ocaml.inline] let set_int16 s off v = if Sys.big_endian then (set_16 s off (swap16 v)) else set_16 s off v + [@@ocaml.inline] let set_int32 s off v = if Sys.big_endian then set_32 s off (swap32 v) else set_32 s off v + [@@ocaml.inline] let set_int64 s off v = if Sys.big_endian then set_64 s off (swap64 v) else set_64 s off v + [@@ocaml.inline] |