diff options
author | Michael Gran <spk121@yahoo.com> | 2009-08-20 20:30:12 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2009-08-20 21:39:56 -0700 |
commit | 0193377d24db3ec57ea9be488069a4b86878e6e6 (patch) | |
tree | b61bdf868d4e3cedd05ec45827d011a826dfa1cc /libguile/error.h | |
parent | 7f5946427e457b5588b1a5103dc4652bd9a99392 (diff) | |
download | guile-0193377d24db3ec57ea9be488069a4b86878e6e6.tar.gz |
Avoid accessing symbol internals in call_dsubr_1 and DEVAL
The symbol's characters are only accessed in case they are needed
for an error message. This can be avoided by passing the symbol
all the way to a error message function.
* libguile/__scm.h (SCM_WTA_DISPATCH_1_SUBR): new macro
* libguile/error.c (scm_i_wrong_type_arg_symbol): new error function
* libguile/error.h: declaration of scm_i_wrong_type_arg_symbol
* libguile/eval.c (call_dsubr_1): use new macro SCM_WTA_DISPATCH_1_SUBR
to avoid having to unpack the symbol's chars
* libguile/eval.i.c: use new macro SCM_WTA_DISPATCH_1_SUBR
Diffstat (limited to 'libguile/error.h')
-rw-r--r-- | libguile/error.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/error.h b/libguile/error.h index c777a7f44..8cc68b752 100644 --- a/libguile/error.h +++ b/libguile/error.h @@ -53,6 +53,8 @@ SCM_API void scm_wrong_num_args (SCM proc) SCM_NORETURN; SCM_API void scm_error_num_args_subr (const char* subr) SCM_NORETURN; SCM_API void scm_wrong_type_arg (const char *subr, int pos, SCM bad_value) SCM_NORETURN; +SCM_INTERNAL void scm_i_wrong_type_arg_symbol (SCM symbol, int pos, + SCM bad_value) SCM_NORETURN; SCM_API void scm_wrong_type_arg_msg (const char *subr, int pos, SCM bad_value, const char *sz) SCM_NORETURN; SCM_API void scm_memory_error (const char *subr) SCM_NORETURN; |