summaryrefslogtreecommitdiffstats
path: root/ffi.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-10-09 09:45:32 -0700
committerKaz Kylheku <kaz@kylheku.com>2021-10-09 09:45:32 -0700
commit5560b099353711ece32b11660a4e92c819ddf34e (patch)
treeb0dbde2bc1d2ae5dbb6ea7f4f189f82207f53634 /ffi.c
parent30be092e6bd3e80c50186d74f66f19189a184777 (diff)
downloadtxr-5560b099353711ece32b11660a4e92c819ddf34e.tar.gz
txr-5560b099353711ece32b11660a4e92c819ddf34e.tar.bz2
txr-5560b099353711ece32b11660a4e92c819ddf34e.zip
ffi: insufficient format args in enum error handling.
* ffi.c (make_ffi_type_enum): Add missing argument to two uw_throwf calls. Reported by Paul A. Patience.
Diffstat (limited to 'ffi.c')
-rw-r--r--ffi.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/ffi.c b/ffi.c
index cf628de8..07feab41 100644
--- a/ffi.c
+++ b/ffi.c
@@ -3663,13 +3663,13 @@ static val make_ffi_type_enum(val syntax, val enums,
if (!integerp(n)) {
uw_throwf(error_s, lit("~a: ~s member ~s value ~s not integer"),
- self, syntax, n, nao);
+ self, syntax, sym, n, nao);
}
cur = c_num(n, self);
if (cur > INT_MAX)
uw_throwf(error_s, lit("~a: ~s member ~s value ~s too large"),
- self, syntax, n, nao);
+ self, syntax, sym, n, nao);
sethash(num_sym, sym, nn = num(cur));
sethash(sym_num, nn, sym);
env_vbind(enum_env, sym, nn);