FilesExpand file tree

patch-2

/

f64.ml

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

9 lines (9 loc) · 243 Bytes

patch-2

/

f64.ml

Copy path

Top

File metadata and controls

• Code
• Blame

9 lines (9 loc) · 243 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

include Fxx.Make

(struct

include Int64

let mantissa = 52

let pos_nan = 0x7ff8_0000_0000_0000L

let neg_nan = 0xfff8_0000_0000_0000L

let bare_nan = 0x7ff0_0000_0000_0000L

let to_hex_string = Printf.sprintf "%Lx"

end)