diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-02-04 18:51:09 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-02-04 18:51:09 +0100 |
| commit | 75b1993a8981d4c77bda3c52356fced476ac1626 (patch) | |
| tree | a287a18de0625e7def3fef45c7741d84880c0f39 | |
| parent | a254119dbe976ad623f3fd4068a7ccba6ecd941d (diff) | |
| download | ghdl-75b1993a8981d4c77bda3c52356fced476ac1626.tar.gz ghdl-75b1993a8981d4c77bda3c52356fced476ac1626.tar.bz2 ghdl-75b1993a8981d4c77bda3c52356fced476ac1626.zip | |
vhdl-sem_expr: avoid a crash on invalid attribute name.
| -rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index d7197cba4..f8950c133 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -1529,7 +1529,7 @@ package body Vhdl.Sem_Expr is Inter : Iir; begin Name := Get_Prefix (Call); - if Name = Null_Iir then + if Name = Null_Iir or else Is_Error (Name) then pragma Assert (Flags.Flag_Force_Analysis); return; end if; |