[gnunet-scheme] 170/324: bv-slice: Support IEEE doubles.

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 97f61131d461fc11852b39836c20e08b844abaaa
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Aug 13 12:01:42 2021 +0200

    bv-slice: Support IEEE doubles.
    
    * gnu/gnunet/utils/bv-slice.scm
      (slice-ieee-double-ref, slice-ieee-double-set!): New variables.
---
 gnu/gnunet/utils/bv-slice.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gnu/gnunet/utils/bv-slice.scm b/gnu/gnunet/utils/bv-slice.scm
index 5dcfd66..6fc9d0d 100644
--- a/gnu/gnunet/utils/bv-slice.scm
+++ b/gnu/gnunet/utils/bv-slice.scm
@@ -44,6 +44,8 @@
          slice-u16-set!
          slice-u32-set!
          slice-u64-set!
+         slice-ieee-double-ref
+         slice-ieee-double-set!
          ;; Large operations
          slice-copy!
          slice-zero!)
@@ -207,6 +209,8 @@ the bytevector in place."
     (wrap-rnrs-ref bytevector-u32-ref slice-readable? 4))
   (define slice-u64-ref
     (wrap-rnrs-ref bytevector-u64-ref slice-readable? 8))
+  (define slice-ieee-double-ref
+    (wrap-rnrs-ref bytevector-ieee-double-ref slice-readable? 8))
 
   (define slice-u8-set!
     (wrap-rnrs-ref bytevector-u8-set! slice-writable? 1))
@@ -216,6 +220,8 @@ the bytevector in place."
     (wrap-rnrs-ref bytevector-u32-set! slice-writable? 4))
   (define slice-u64-set!
     (wrap-rnrs-ref bytevector-u64-set! slice-writable? 8))
+  (define slice-ieee-double-set!
+    (wrap-rnrs-ref bytevector-ieee-double-set! slice-writable? 8))
 
   
   ;; ‘Large’ operations.

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.