diff options
| author | Tristan Gingold | 2015-05-14 22:08:01 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2015-05-14 22:08:01 +0200 |
| commit | b8295177d57530f71af9f9163e97d840095fd39d (patch) | |
| tree | 411b7eeb5e6eb1e433dedd9e30c517f8cfccdbae /src/vhdl/sem_expr.adb | |
| parent | ca93319348bd9ae8f23dda91b85fb4dbd8c2f8ef (diff) | |
| download | ghdl-b8295177d57530f71af9f9163e97d840095fd39d.tar.gz ghdl-b8295177d57530f71af9f9163e97d840095fd39d.tar.bz2 ghdl-b8295177d57530f71af9f9163e97d840095fd39d.zip | |
Avoid a crash for incorrect allocator.
Fix ticket 63
Diffstat (limited to 'src/vhdl/sem_expr.adb')
| -rw-r--r-- | src/vhdl/sem_expr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 46e75f3..dc24d59 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -3564,7 +3564,7 @@ package body Sem_Expr is Arg := Sem_Types.Sem_Subtype_Indication (Arg); Set_Subtype_Indication (Expr, Arg); Arg := Get_Type_Of_Subtype_Indication (Arg); - if Arg = Null_Iir then + if Arg = Null_Iir or else Is_Error (Arg) then return Null_Iir; end if; -- LRM93 7.3.6 |