Skip to content

Instantly share code, notes, and snippets.

@hyphenrf

hyphenrf/reinterpret_float.ml

Last active February 2, 2023 12:56
Show Gist options
  • Save hyphenrf/3bbdc20be97318ade26bb792de57de1e to your computer and use it in GitHub Desktop.
Save hyphenrf/3bbdc20be97318ade26bb792de57de1e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
reinterpret_float.ml
let reinterpret_float (f : float) : int64 = Obj.(
let i = repr 0L
and f = repr f
in
set_field i 1 (field f 0);
obj i
)
let reinterpret_float = Int64.bits_of_float
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment