shithub: mc

ref: 33191432d1d295d78a1c5638de7a9d9fc0ea97e4
dir: /libstd/floatbits.myr/

View raw version
pkg std =
	const float64bits	: (flt : float64 -> uint64)
	const float32bits	: (flt : float32 -> uint32)
	const float64frombits	: (bits : uint64 -> float64)
	const float32frombits	: (bits : uint32 -> float32)
;;
const float64bits	= {flt;	-> (&flt castto(uint64#))#}
const float32bits	= {flt;	-> (&flt castto(uint32#))#}
const float64frombits	= {bits;	-> (&bits castto(float64#))#}
const float32frombits	= {bits;	-> (&bits castto(float32#))#}