diff options
Diffstat (limited to 'sem_expr.ads')
-rw-r--r-- | sem_expr.ads | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/sem_expr.ads b/sem_expr.ads index 97722bb1b..0ab384758 100644 --- a/sem_expr.ads +++ b/sem_expr.ads @@ -77,9 +77,10 @@ package Sem_Expr is return Iir; -- If EXPR is a node for an expression, then return EXPR. - -- Otherwise, emit an error message and return NULL_IIR. + -- Otherwise, emit an error message using LOC as location + -- and return NULL_IIR. -- If EXPR is NULL_IIR, NULL_IIR is silently returned. - function Check_Is_Expression (Expr : Iir) return Iir; + function Check_Is_Expression (Expr : Iir; Loc : Iir) return Iir; -- LEFT are RIGHT must be really a type (not a subtype). function Are_Basetypes_Compatible (Left: Iir; Right: Iir) |