New function: cptr-size-hint.

* eval.c (eval_init): Register cptr-size-hint intrinsic.

* lib.c (cptr_size_hint): New function.

* lib.h (cptr_size_hint): Declared.

* txr.1: Documented.

1 files changed, 7 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index ab898277..c787174f 100644
--- a/lib.c
+++ b/lib.c
@@ -7723,6 +7723,13 @@ val cptr_type(val cptr)
   return cptr->co.cls;
 }
 
+val cptr_size_hint(val cptr, val size)
+{
+  (void) cptr;
+  malloc_bytes += c_unum(size);
+  return nil;
+}
+
 val cptr_int(val n, val type_sym_in)
 {
   val type_sym = default_null_arg(type_sym_in);