diff options
Diffstat (limited to 'src/vhdl/nodes_gc.adb')
| -rw-r--r-- | src/vhdl/nodes_gc.adb | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/vhdl/nodes_gc.adb b/src/vhdl/nodes_gc.adb index d400d8f50..81c8eb3e3 100644 --- a/src/vhdl/nodes_gc.adb +++ b/src/vhdl/nodes_gc.adb @@ -87,13 +87,6 @@ package body Nodes_GC is -- Anonymous interfaces are shared by predefined functions. return; end if; - when Iir_Kind_Enumeration_Literal => - if Get_Enum_Pos (N) = 0 - or else N = Get_Right_Limit (Get_Range_Constraint - (Get_Type (N))) - then - return; - end if; when others => null; end case; @@ -160,7 +153,7 @@ package body Nodes_GC is null; end case; when Attr_Of_Ref => - raise Internal_Error; + null; end case; end loop; end; @@ -186,6 +179,7 @@ package body Nodes_GC is Mark_Iir (Convertible_Real_Type_Declaration); Mark_Iir (Universal_Integer_One); Mark_Iir (Error_Mark); + Mark_Chain (Wildcard_Type_Declaration_Chain); El := Error_Mark; Nbr_Unreferenced := 0; |