shithub: mc

ref: 6df4ee6319d8c943d766e99f231908831421e403
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#))#}