From 3286f2ca94da081bca5ddeffdfcc6ec92adf237c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 6 Feb 2015 06:22:51 -0800 Subject: * unwind.c (unhandled_hook_s): New static variable. (uw_throw): In the unhandled case, check if *unhandled-hook* variable has a function, and use it instead of the default logic. If it's not a function, abort with an error message. Clear it so that if the hook function re-enters this code, it will not be used. Always exit now on unhandled exceptions; do not abort. (uw_late_init): New function. * unwind.h (uw_late_init): Declared. * lib.c (init): Call uw_late_init. * txr.1: Documented *unhandled-hook*. * genvim.txr: Scan the unwind.c file, since it has a reg_var now. * tl.vim, txr.vim: Updated. --- lib.c | 1 + 1 file changed, 1 insertion(+) (limited to 'lib.c') diff --git a/lib.c b/lib.c index a08f1c2f..913d2b47 100644 --- a/lib.c +++ b/lib.c @@ -7209,6 +7209,7 @@ void init(const wchar_t *pn, mem_t *(*oom)(mem_t *, size_t), hash_init(); regex_init(); gc_late_init(); + uw_late_init(); less_tab_init(); gc_state(gc_save); -- cgit v1.2.3