diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-04 19:47:05 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-04 19:47:05 +0100 |
| commit | 10b0d40e66decde8794e39343d83bc9694755238 (patch) | |
| tree | 7abbb8f9be13b0cd78700ee15b2765bd0725f9f9 /src/vhdl/vhdl-sem_expr.ads | |
| parent | d37e2bd3acb591c06c3c3a3ad7dd99b712acda5d (diff) | |
| download | ghdl-10b0d40e66decde8794e39343d83bc9694755238.tar.gz ghdl-10b0d40e66decde8794e39343d83bc9694755238.tar.bz2 ghdl-10b0d40e66decde8794e39343d83bc9694755238.zip | |
vhdl-sem_expr: extract is_expression
Diffstat (limited to 'src/vhdl/vhdl-sem_expr.ads')
| -rw-r--r-- | src/vhdl/vhdl-sem_expr.ads | 3 |
1 files changed, 3 insertions, 0 deletions
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. |