diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-04-29 09:44:05 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-04-29 09:44:05 -0700 |
commit | 4173d9bae136a0dae8646e80a0abd1bceab222f4 (patch) | |
tree | 82202ccac79a8451e15b7222124ce55e1b3329ed | |
parent | 4ec9d7baaf8d762d110a934f42c1c5760cfdfd71 (diff) | |
download | txr-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.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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); } } |