diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-01-07 19:06:06 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-01-07 19:06:06 +0100 |
| commit | d8dbfb31f087e6290425d6e3fa88e4cffaae32a2 (patch) | |
| tree | aa882e1b6767afa5874a5c6b893aa15bf2524261 | |
| parent | a29a52833f5d8d3281b56d0ec4540c5ea272a560 (diff) | |
| download | ghdl-d8dbfb31f087e6290425d6e3fa88e4cffaae32a2.tar.gz ghdl-d8dbfb31f087e6290425d6e3fa88e4cffaae32a2.tar.bz2 ghdl-d8dbfb31f087e6290425d6e3fa88e4cffaae32a2.zip | |
sem_expr/allocator: avoid a crash for access subtype.
Fix #734
| -rw-r--r-- | src/vhdl/sem_expr.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 91bec3d53..5cd7b9c7f 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -4035,6 +4035,7 @@ package body Sem_Expr is -- A subtype indication that is part of an allocator must -- not include a resolution function. if Is_Anonymous_Type_Definition (Arg) + and then Get_Kind (Arg) /= Iir_Kind_Access_Subtype_Definition and then Get_Resolution_Indication (Arg) /= Null_Iir then Error_Msg_Sem (+Expr, "subtype indication must not include" |