Buffers: missing float and cptr.

* buf.c (buf_put_float, buf_put_cptr, buf_get_float,
buf_get_cptr, align_float, align_cptr, size_float, size_cptr):
New functions.
(buf_init): Registered intrinsics buf-put-float, buf-put-cptr,
buf-get-float, buf-get-cptr, align-float, align-cptr,
size-float, size_cptr.

* buf.h (buf_put_float, buf_put_cptr, buf_get_float,
buf_get_cptr, align_float, align_cptr, size_float, size_cptr):
Declared.

1 files changed, 4 insertions, 0 deletions

diff --git a/buf.h b/buf.h
index 604568dd..56a04c7e 100644
--- a/buf.h
+++ b/buf.h
@@ -59,7 +59,9 @@ val buf_put_int(val buf, val pos, val num);
 val buf_put_uint(val buf, val pos, val num);
 val buf_put_long(val buf, val pos, val num);
 val buf_put_ulong(val buf, val pos, val num);
+val buf_put_float(val buf, val pos, val num);
 val buf_put_double(val buf, val pos, val num);
+val buf_put_cptr(val buf, val pos, val cptr);
 
 #if HAVE_I8
 val buf_get_i8(val buf, val pos);
@@ -89,7 +91,9 @@ val buf_get_int(val buf, val pos);
 val buf_get_uint(val buf, val pos);
 val buf_get_long(val buf, val pos);
 val buf_get_ulong(val buf, val pos);
+val buf_get_float(val buf, val pos);
 val buf_get_double(val buf, val pos);
+val buf_get_cptr(val buf, val pos);
 
 val buf_print(val buf, val stream);
 val buf_pprint(val buf, val stream);