From 10b0d40e66decde8794e39343d83bc9694755238 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 4 Jan 2023 19:47:05 +0100
Subject: vhdl-sem_expr: extract is_expression

---
 src/vhdl/vhdl-sem_expr.ads | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/vhdl/vhdl-sem_expr.ads')

diff --git a/src/vhdl/vhdl-sem_expr.ads b/src/vhdl/vhdl-sem_expr.ads
index c10dd80e1..1519d9252 100644
--- a/src/vhdl/vhdl-sem_expr.ads
+++ b/src/vhdl/vhdl-sem_expr.ads
@@ -92,6 +92,9 @@ package Vhdl.Sem_Expr is
    -- For a procedure call, A_TYPE must be null.
    function Sem_Subprogram_Call (Expr: Iir; A_Type: Iir) return Iir;
 
+   --  Return TRUE if EXPR is null or valid for an expression.
+   function Is_Expression (Expr : Iir) return Boolean;
+
    --  If EXPR is a node for an expression, then return EXPR.
    --  Otherwise, emit an error message using LOC as location
    --   and return NULL_IIR.
-- 
cgit v1.2.3