From b027b1d60fbceb3483464d4df9813d1d6b10c4fa Mon Sep 17 00:00:00 2001 From: gingerBill Date: Sun, 3 Jun 2018 21:09:08 +0100 Subject: Fix min type info for polymorphic procedures and named types --- src/check_expr.cpp | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/check_expr.cpp') diff --git a/src/check_expr.cpp b/src/check_expr.cpp index b2363be38..6926332d9 100644 --- a/src/check_expr.cpp +++ b/src/check_expr.cpp @@ -4709,6 +4709,7 @@ CallArgumentData check_call_arguments(CheckerContext *c, Operand *operand, Type CallArgumentError err = call_checker(c, call, proc_type, e, operands, CallArgumentMode_ShowErrors, &data); Entity *entity_to_use = data.gen_entity != nullptr ? data.gen_entity : e; add_entity_use(c, ident, entity_to_use); + return data; } } else { @@ -4719,10 +4720,12 @@ CallArgumentData check_call_arguments(CheckerContext *c, Operand *operand, Type } Entity *e = entity_of_ident(ident); + CallArgumentData data = {}; CallArgumentError err = call_checker(c, call, proc_type, e, operands, CallArgumentMode_ShowErrors, &data); Entity *entity_to_use = data.gen_entity != nullptr ? data.gen_entity : e; add_entity_use(c, ident, entity_to_use); + return data; } -- cgit v1.2.3