
  0 | module Data.Bytes.Prims
  1 | 
  2 | %default total
  3 | 
  4 | export
  5 | %foreign "scheme:(lambda (v) (flbit-field v 0 63))"
  6 |          "javascript:lambda:(v)=> {let buf = new ArrayBuffer(8); (new Float64Array(buf))[0] = v; return (new BigUint64Array(buf))[0];}"
  7 | prim__flBitField : (val : Double) -> Bits64
  8 | 
  9 | export
 10 | %foreign "scheme:(lambda (v) (let ((buf (blodwen-new-buffer 8))) (blodwen-buffer-setbits64 buf 0 v) (blodwen-buffer-getdouble buf 0)))"
 11 |          "javascript:lambda:(v)=> {let buf = new ArrayBuffer(8); (new BigUint64Array(buf))[0] = v; return (new Float64Array(buf))[0];}"
 12 | prim__bitFieldFl : (val: Bits64) -> Double