From ae9bf87f0ecb5f8e43f8e1df4ce9fdb5a16bff8d Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 11 May 2015 01:22:40 +0200 Subject: Fix thinko: reject incorrect association (positionnal match followed by named match with the same formal). Fix ticket 49. --- src/vhdl/sem_expr.adb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/vhdl/sem_expr.adb') diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 341e7f73a..703c554c2 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -1176,8 +1176,7 @@ package body Sem_Expr is -- EXPR is a function or procedure call. function Sem_Subprogram_Call_Stage1 - (Expr : Iir; A_Type : Iir; Is_Func_Call : Boolean) - return Iir + (Expr : Iir; A_Type : Iir; Is_Func_Call : Boolean) return Iir is Imp : Iir; Nbr_Inter: Natural; -- cgit v1.2.3