diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-02-04 18:23:44 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-02-04 18:23:44 +0100 |
| commit | 6d43356887b4a1e605715248d17195ba8f8ebc9f (patch) | |
| tree | f267229ebf84961e289513c00be7bcb1cb3ab010 | |
| parent | 4db89043a5f5ce43a8747adc7262273781739aa5 (diff) | |
| download | ghdl-6d43356887b4a1e605715248d17195ba8f8ebc9f.tar.gz ghdl-6d43356887b4a1e605715248d17195ba8f8ebc9f.tar.bz2 ghdl-6d43356887b4a1e605715248d17195ba8f8ebc9f.zip | |
vhdl-sem_expr: avoid a crash on invalid input.
| -rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index a4deece67..d7197cba4 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -1529,6 +1529,11 @@ package body Vhdl.Sem_Expr is Inter : Iir; begin Name := Get_Prefix (Call); + if Name = Null_Iir then + pragma Assert (Flags.Flag_Force_Analysis); + return; + end if; + -- FIXME: check for denoting name. Sem_Name (Name); |