diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2005-12-18 14:46:45 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2005-12-18 14:46:45 +0000 |
| commit | cb45d7c240f4aabbd1dd716dd8bf7ab5b2107ff2 (patch) | |
| tree | a5162922d12f8508b931c31014370056c35682b3 /sem_expr.adb | |
| parent | 4ed054ad8c1877c1bd620014cfe8a36979c5aa54 (diff) | |
| download | ghdl-cb45d7c240f4aabbd1dd716dd8bf7ab5b2107ff2.tar.gz ghdl-cb45d7c240f4aabbd1dd716dd8bf7ab5b2107ff2.tar.bz2 ghdl-cb45d7c240f4aabbd1dd716dd8bf7ab5b2107ff2.zip | |
ghdl 0.21 is out
Diffstat (limited to 'sem_expr.adb')
| -rw-r--r-- | sem_expr.adb | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/sem_expr.adb b/sem_expr.adb index d850f76f5..f3e767f9f 100644 --- a/sem_expr.adb +++ b/sem_expr.adb @@ -1036,6 +1036,7 @@ package body Sem_Expr is -- Cannot find a single interpretation for a given -- type. Error_Overload (Expr); + Disp_Overload_List (Imp_List, Expr); return Null_Iir; end if; Res_Type := Create_Iir_List; @@ -1047,6 +1048,7 @@ package body Sem_Expr is if Get_Nbr_Elements (Res_Type) = 1 then -- several implementations but one profile. Error_Overload (Expr); + Disp_Overload_List (Imp_List, Expr); return Null_Iir; end if; Set_Type (Expr, Create_Overload_List (Res_Type)); @@ -1154,6 +1156,7 @@ package body Sem_Expr is then if Res /= Null_Iir then Error_Overload (Expr); + Disp_Overload_List (Get_Overload_List (Inter_List), Expr); return Null_Iir; else Res := Inter; @@ -1180,6 +1183,7 @@ package body Sem_Expr is -- a procedure call. if Is_Overload_List (Inter_List) then Error_Overload (Expr); + Disp_Overload_List (Get_Overload_List (Inter_List), Expr); return Null_Iir; else Res := Inter_List; @@ -2299,7 +2303,7 @@ package body Sem_Expr is Arr (I)); else Error_Msg_Sem - ("duplicate choices for" & Disp_Discrete (Bt, E_Pos) + ("duplicate choices for " & Disp_Discrete (Bt, E_Pos) & " to " & Disp_Discrete (Bt, Pos), Arr (I)); end if; end if; @@ -3762,6 +3766,7 @@ package body Sem_Expr is if Res /= Null_Iir and then Is_Overloaded (Res) then Error_Overload (Expr); + Disp_Overload_List (Get_Overload_List (Res), Expr); return Null_Iir; end if; return Res; @@ -3798,12 +3803,14 @@ package body Sem_Expr is Res := El; else Error_Overload (Expr1); + Disp_Overload_List (List, Expr1); return Null_Iir; end if; end if; end loop; if Res = Null_Iir then Error_Overload (Expr1); + Disp_Overload_List (List, Expr1); return Null_Iir; end if; return Sem_Expression_Ov (Expr1, Res); |