New buffer data type.

Work in progress.

* gc.c (finalize): Add cast to switch expression so gcc
flags when we are missing one of the enumerations.
Handle new BUF enum to free dynamic buffers.
(mark_obj): Mark len and size fields of buf, in case
they aren't just nil or integers.

* hash.c (hash_buf): New static function.
(equal_hash): Route BUF type to hash_buf.

* lib.c (buf_s): New symbol variable.
(code2type): Handle BUF.
(equal): Handle BUF using memcmp on the data.
(obj_init): Intern buf symbol and initialize buf_s.

* lib.h (type_t): New enum member BUF.
(struct buf): New type.
(union obj): New member b, of struct buf type.
(buf_s): Declared.

1 files changed, 10 insertions, 1 deletions

diff --git a/gc.c b/gc.c
index 33afca91..e42e7552 100644
--- a/gc.c
+++ b/gc.c
@@ -244,7 +244,7 @@ val make_obj(void)
 
 static void finalize(val obj)
 {
-  switch (obj->t.type) {
+  switch (convert(type_t, obj->t.type)) {
   case NIL:
   case CONS:
   case CHR:
@@ -280,6 +280,12 @@ static void finalize(val obj)
   case BGNUM:
     mp_clear(mp(obj));
     return;
+  case BUF:
+    if (obj->b.size) {
+      free(obj->b.data);
+      obj->b.data = 0;
+    }
+    return;
   }
 
   assert (0 && "corrupt type field");
@@ -395,6 +401,9 @@ tail_call:
   case RNG:
     mark_obj(obj->rn.from);
     mark_obj_tail(obj->rn.to);
+  case BUF:
+    mark_obj(obj->b.len);
+    mark_obj_tail(obj->b.size);
   }
 
   assert (0 && "corrupt type field");