aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/simulate/annotations.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/simulate/annotations.adb')
-rw-r--r--src/vhdl/simulate/annotations.adb7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/vhdl/simulate/annotations.adb b/src/vhdl/simulate/annotations.adb
index acc6e8920..c898aa01d 100644
--- a/src/vhdl/simulate/annotations.adb
+++ b/src/vhdl/simulate/annotations.adb
@@ -57,8 +57,7 @@ package body Annotations is
-- For a subprogram in a package
Current_Scope := (Scope_Kind_Frame, Scope_Depth_Type'First);
when Scope_Kind_Frame =>
- Current_Scope := (Scope_Kind_Frame,
- Current_Scope.Depth + 1);
+ Current_Scope := (Scope_Kind_Frame, Current_Scope.Depth + 1);
when Scope_Kind_Component =>
raise Internal_Error;
end case;
@@ -468,8 +467,8 @@ package body Annotations is
Package_Info := Get_Info (Inter);
Current_Scope := (Kind => Scope_Kind_Pkg_Inst,
- Pkg_Param => 0,
- Pkg_Parent => Package_Info);
+ Pkg_Param => 0);
+-- Pkg_Parent => Package_Info);
Annotate_Interface_List
(Package_Info, Get_Generic_Chain (Inter), True);