A nice internal error

diff --git a/ast.c b/ast.c
index 7061f1eff909e5ab63d30d5647398499d69d4a78..d6f231c45d7d77935988da8b16dd337dc17171d5 100644 (file)
--- a/ast.c
+++ b/ast.c
@@ -892,6 +892,10 @@ ast_function* ast_function_new(lex_ctx ctx, const char *name, ast_value *vtype)
         vtype->isconst ||
         vtype->expression.vtype != TYPE_FUNCTION)
     {
+        asterror(ast_ctx(self), "internal error: ast_function_new condition %i %i type=%i",
+                 (int)!vtype,
+                 (int)vtype->isconst,
+                 vtype->expression.vtype);
         mem_d(self);
         return NULL;
     }