summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2017-04-29 09:44:05 -0700
committerKaz Kylheku <kaz@kylheku.com>2017-04-29 09:44:05 -0700
commit4173d9bae136a0dae8646e80a0abd1bceab222f4 (patch)
tree82202ccac79a8451e15b7222124ce55e1b3329ed
parent4ec9d7baaf8d762d110a934f42c1c5760cfdfd71 (diff)
downloadtxr-4173d9bae136a0dae8646e80a0abd1bceab222f4.tar.gz
txr-4173d9bae136a0dae8646e80a0abd1bceab222f4.tar.bz2
txr-4173d9bae136a0dae8646e80a0abd1bceab222f4.zip
ffi: nicer messages from type compiler.
* ffi.c (ffi_type_compile): Improved error reporting.
-rw-r--r--ffi.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/ffi.c b/ffi.c
index 3159d2d0..1cafae03 100644
--- a/ffi.c
+++ b/ffi.c
@@ -1174,7 +1174,8 @@ val ffi_type_compile(val syntax)
return type;
}
- uw_throwf(error_s, lit("~a: unimplemented case"), self, nao);
+ uw_throwf(error_s, lit("~a: unrecognized type operator: ~s"),
+ self, sym, nao);
#if HAVE_I8
} else if (syntax == uint8_s) {
return make_ffi_type_builtin(syntax, integer_s, sizeof (i8_t),
@@ -1302,7 +1303,7 @@ val ffi_type_compile(val syntax)
return make_ffi_type_builtin(syntax, null_s, 0, &ffi_type_void,
ffi_void_put, ffi_void_get);
} else {
- uw_throwf(error_s, lit("~a: bad type syntax: ~!~s"),
+ uw_throwf(error_s, lit("~a: unrecognized type specifier: ~!~s"),
self, syntax, nao);
}
}