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
commit6828981bba93db9fa7267f68516a6b3a0ecc157e (patch)
tree82202ccac79a8451e15b7222124ce55e1b3329ed
parent8a20c4af0ae40dd28fb351a49e14892070c1eae1 (diff)
downloadtxr-6828981bba93db9fa7267f68516a6b3a0ecc157e.tar.gz
txr-6828981bba93db9fa7267f68516a6b3a0ecc157e.tar.bz2
txr-6828981bba93db9fa7267f68516a6b3a0ecc157e.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);
}
}