From 5bf88f48fe8233955b3346ccea14f8e3fae38286 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 12 Mar 2014 00:34:10 -0700
Subject: * eval.c (plus_s, prof_s): New symbol global variables. (op_prof,
 me_pprof): New static functions. (eval_init): Intern prof symbol, store in
 prof_s. Captured interned + symbol in plus_s. Register prof operator and
 pprof macro.

* gc.c (gc_bytes): New global variable.
(more): Use nse function chk_malloc_gc_more instead of chk_malloc.
(make_obj): Increment gc_bytes.

* lib.c (malloc_bytes): New global variable.
(chk_malloc, chk_realloc): Increment malloc_bytes.
(chk_calloc): Bugfix: incorrect size in recursion into oom_realloc.
Incorrect calculation of malloc_high_bound.  Increment malloc_bytes.
(chk_malloc_gc_more): New function.

* lib.h (alloc_bytes_t): New typedef.
(malloc_bytes, gc_bytes): Declared.
(chk_malloc_gc_more): Declared.

* stream.c (format_s): New symbol global.
(stream_init): format_s inited.
format_s used to register formatv function.

* stream.h (format_s): Declared.

* txr.1: Documented prof and pprof.

* genvim.txr: Recognize reg_fun calls with intern
followed by a preceding assignment or other syntax.

* txr.vim: Updated.
---
 stream.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'stream.h')

diff --git a/stream.h b/stream.h
index edd1acc4..388f9cc4 100644
--- a/stream.h
+++ b/stream.h
@@ -61,6 +61,7 @@ extern val gid_k, rdev_k, size_k, blksize_k, blocks_k;
 extern val atime_k, mtime_k, ctime_k;
 extern val from_start_k, from_current_k, from_end_k;
 extern val real_time_k, name_k;
+extern val format_s;
 
 extern val stdin_s, stdout_s, stddebug_s, stderr_s, stdnull_s;
 
-- 
cgit v1.2.3