From efb30b021679ac1334e1d4fdffa073eaaa082a51 Mon Sep 17 00:00:00 2001 From: gingold Date: Tue, 1 Nov 2005 03:04:50 +0000 Subject: update: support of amd64 + more optimizations --- sem_expr.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'sem_expr.adb') diff --git a/sem_expr.adb b/sem_expr.adb index 77735b424..d850f76f5 100644 --- a/sem_expr.adb +++ b/sem_expr.adb @@ -3313,7 +3313,7 @@ package body Sem_Expr is -- Emit an error if the constant EXPR is deferred and cannot be used in -- the current context. - procedure Check_Constant_Restriction (Expr : Iir) + procedure Check_Constant_Restriction (Expr : Iir; Loc : Iir) is Lib : Iir; Cur_Lib : Iir; @@ -3346,7 +3346,7 @@ package body Sem_Expr is or else (Get_Kind (Cur_Lib) = Iir_Kind_Package_Body and then Get_Package (Cur_Lib) = Lib) then - Error_Msg_Sem ("invalid use of a deferred constant", Expr); + Error_Msg_Sem ("invalid use of a deferred constant", Loc); end if; end Check_Constant_Restriction; @@ -3459,7 +3459,7 @@ package body Sem_Expr is if Get_Kind (E) = Iir_Kind_Constant_Declaration and then not Deferred_Constant_Allowed then - Check_Constant_Restriction (E); + Check_Constant_Restriction (E, Expr); end if; E := Name_To_Expression (Expr, A_Type); return E; -- cgit v1.2.3