diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2023-09-05 19:08:40 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2023-09-05 19:08:40 -0700 |
commit | 34f33df1b1ffc6f8a84bd9721a7ba6d1960359b8 (patch) | |
tree | 3a8d0bd08660c63ebea88830c2d7e2e7628c3360 /unwind.c | |
parent | 488b8a69c1f26eba0e7f90c933b755379dfb0911 (diff) | |
download | txr-34f33df1b1ffc6f8a84bd9721a7ba6d1960359b8.tar.gz txr-34f33df1b1ffc6f8a84bd9721a7ba6d1960359b8.tar.bz2 txr-34f33df1b1ffc6f8a84bd9721a7ba6d1960359b8.zip |
Use vargs typedef instead of struct args *.
The vargs typedef is underused. Let's use it consistently
everywhere.
* args.c,
* args.h,
* args.c,
* args.h,
* arith.c,
* eval.c
* ffi.c,
* gc.c,
* hash.c,
* lib.c,
* lib.h,
* parser.c,
* stream.c,
* struct.c,
* struct.h,
* syslog.c,
* syslog.h,
* unwind.c,
* vm.c,
* vm.h: All "struct args * declarations replaced with existing
"varg" typedef that comes from lib.h.
Diffstat (limited to 'unwind.c')
-rw-r--r-- | unwind.c | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -436,7 +436,7 @@ val uw_find_frames_by_mask(val mask_in) } case UW_FCALL: { - struct args *frargs = fr->fc.args; + varg frargs = fr->fc.args; args_decl(acopy, frargs->argc); args_copy(acopy, frargs); frame = allocate_struct(fcall_frame_type); @@ -488,7 +488,7 @@ val uw_last_form_expanded(void) #endif -val uw_invoke_catch(val catch_frame, val sym, struct args *args) +val uw_invoke_catch(val catch_frame, val sym, varg args) { uw_frame_t *ex, *ex_point; @@ -513,14 +513,14 @@ val uw_invoke_catch(val catch_frame, val sym, struct args *args) abort(); } -val uw_muffle_warning(val exc, struct args *args) +val uw_muffle_warning(val exc, varg args) { (void) exc; (void) args; return uw_rthrow(continue_s, nil); } -val uw_trace_error(val ctx, val exc, struct args *args) +val uw_trace_error(val ctx, val exc, varg args) { cons_bind (stream, prefix, ctx); error_trace(exc, args_get_list(args), stream, prefix); @@ -607,7 +607,7 @@ void uw_push_handler(uw_frame_t *fr, val matches, val fun) #if CONFIG_DEBUG_SUPPORT -void uw_push_fcall(uw_frame_t *fr, val fun, struct args *args) +void uw_push_fcall(uw_frame_t *fr, val fun, varg args) { memset(fr, 0, sizeof *fr); fr->fc.type = UW_FCALL; @@ -651,7 +651,7 @@ val uw_exception_subtype_p(val sub, val sup) } } -static void invoke_handler(uw_frame_t *fr, struct args *args) +static void invoke_handler(uw_frame_t *fr, varg args) { val saved_dyn_env = dyn_env; val cur_pkg_alist = deref(cur_package_alist_loc); @@ -775,12 +775,12 @@ val uw_rthrow(val sym, val args) abort(); } -val uw_rthrowv(val sym, struct args *arglist) +val uw_rthrowv(val sym, varg arglist) { return uw_rthrow(sym, args_get_list(arglist)); } -val uw_rthrowfv(val sym, val fmt, struct args *args) +val uw_rthrowfv(val sym, val fmt, varg args) { val stream = make_string_output_stream(); (void) formatv(stream, fmt, args); @@ -821,7 +821,7 @@ val uw_ethrowf(val sym, val fmt, ...) abort(); } -val uw_errorfv(val fmt, struct args *args) +val uw_errorfv(val fmt, varg args) { val stream = make_string_output_stream(); (void) formatv(stream, fmt, args); @@ -988,7 +988,7 @@ val uw_register_subtype(val sub, val sup) return sup; } -static val register_exception_subtypes(struct args *args) +static val register_exception_subtypes(varg args) { val types = args_copy_to_list(args); reduce_left(func_n2(uw_register_subtype), types, nil, nil); |