diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-06-12 18:41:24 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-06-12 18:41:24 +0200 |
| commit | 6f25e8dff808b37013cf6fa0cb2868e8a85caa79 (patch) | |
| tree | 7ef0495b0eadec2d5aa39bf6994ce15d34eb4b0c /src/vhdl/vhdl-errors.adb | |
| parent | 4b4c2f03f79dbd7a9b9138371440117a514644ce (diff) | |
| download | ghdl-6f25e8dff808b37013cf6fa0cb2868e8a85caa79.tar.gz ghdl-6f25e8dff808b37013cf6fa0cb2868e8a85caa79.tar.bz2 ghdl-6f25e8dff808b37013cf6fa0cb2868e8a85caa79.zip | |
vhdl: improve error messages for generate statement.
Diffstat (limited to 'src/vhdl/vhdl-errors.adb')
| -rw-r--r-- | src/vhdl/vhdl-errors.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-errors.adb b/src/vhdl/vhdl-errors.adb index 541415cd7..1bed01213 100644 --- a/src/vhdl/vhdl-errors.adb +++ b/src/vhdl/vhdl-errors.adb @@ -958,7 +958,7 @@ package body Vhdl.Errors is procedure Error_Not_Match (Expr: Iir; A_Type: Iir) is begin - if Get_Kind (A_Type) = Iir_Kind_Error then + if Is_Error (A_Type) then -- Cascade error message. return; end if; |