summaryrefslogtreecommitdiffstats
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
commitb8689dbc7446e11c84dfbbf851e49d72859296ac (patch)
treeb0dbde2bc1d2ae5dbb6ea7f4f189f82207f53634
parent35a8cfbfd30ebc588ca904c111e87e27723ee385 (diff)
downloadtxr-b8689dbc7446e11c84dfbbf851e49d72859296ac.tar.gz
txr-b8689dbc7446e11c84dfbbf851e49d72859296ac.tar.bz2
txr-b8689dbc7446e11c84dfbbf851e49d72859296ac.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.
-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);