buf: provide way to work with on-stack buffers.

* buf.c (init_borrowed_buf): New function.
(make_borrowed_buf): Reduced to wrapper around
init_borrowed_buf.

* buf.h (init_borrowed_buf): Declared.

1 files changed, 6 insertions, 3 deletions

diff --git a/buf.c b/buf.c
index 6d3f1a04..b97bef41 100644
--- a/buf.c
+++ b/buf.c
@@ -102,10 +102,8 @@ val bufp(val object)
   return tnil(type(object) == BUF);
 }
 
-val make_borrowed_buf(val len, mem_t *data)
+val init_borrowed_buf(obj_t *obj, val len, mem_t *data)
 {
-  val obj = make_obj();
-
   obj->b.type = BUF;
   obj->b.data = data;
   obj->b.len = len;
@@ -114,6 +112,11 @@ val make_borrowed_buf(val len, mem_t *data)
   return obj;
 }
 
+val make_borrowed_buf(val len, mem_t *data)
+{
+  return init_borrowed_buf(make_obj(), len, data);
+}
+
 val make_duplicate_buf(val len, mem_t *data)
 {
   val obj = make_obj();