[hcoop/debian/mlton.git] / regression / pack-real.2.sml


val v =
   Word8Vector.fromList
   [0wx0D,0wxE5,0wx35,0wx94,0wxD7,0wx00,0wx82,0wx40,
    0wx0D,0wxE5,0wx35,0wx94,0wxD7,0wx00,0wx82,0wx40]

val r = PackReal64Little.subVec(v, 0)
val () = print (concat [Real64.toString r, "\n"])
val r = PackReal64Little.subVec(v, 1)
val () = print (concat [Real64.toString r, "\n"])

val r = PackReal64Big.subVec(v, 0)
val () = print (concat [Real64.toString r, "\n"])
val r = PackReal64Big.subVec(v, 1)
val () = print (concat [Real64.toString r, "\n"])
Commit	Line	Data
7f918cf1 CE	1
	2	val v =
	3	Word8Vector.fromList
	4	[0wx0D,0wxE5,0wx35,0wx94,0wxD7,0wx00,0wx82,0wx40,
	5	0wx0D,0wxE5,0wx35,0wx94,0wxD7,0wx00,0wx82,0wx40]
	6
	7	val r = PackReal64Little.subVec(v, 0)
	8	val () = print (concat [Real64.toString r, "\n"])
	9	val r = PackReal64Little.subVec(v, 1)
	10	val () = print (concat [Real64.toString r, "\n"])
	11
	12	val r = PackReal64Big.subVec(v, 0)
	13	val () = print (concat [Real64.toString r, "\n"])
	14	val r = PackReal64Big.subVec(v, 1)
	15	val () = print (concat [Real64.toString r, "\n"])