diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-03-06 20:35:56 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-03-06 20:35:56 +0100 |
commit | e90e022474b15f4db7b3732ff9cb5110fb44562b (patch) | |
tree | b6516834dea921e9302214963076d5b50e4c8964 /src/vhdl | |
parent | 88ccc6df1accdf3c82165f6456255893c72639e8 (diff) | |
download | ghdl-e90e022474b15f4db7b3732ff9cb5110fb44562b.tar.gz ghdl-e90e022474b15f4db7b3732ff9cb5110fb44562b.tar.bz2 ghdl-e90e022474b15f4db7b3732ff9cb5110fb44562b.zip |
vhdl: avoid a crash on extra string.
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index 8303a58f9..f990d02ff 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -1529,7 +1529,10 @@ package body Vhdl.Sem_Expr is Inter : Iir; begin Name := Get_Prefix (Call); - if Name = Null_Iir or else Is_Error (Name) then + if Name = Null_Iir + or else Is_Error (Name) + or else Get_Kind (Name) = Iir_Kind_String_Literal8 + then pragma Assert (Flags.Flag_Force_Analysis); return; end if; |