aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-canon.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/vhdl-canon.adb')
-rw-r--r--src/vhdl/vhdl-canon.adb2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb
index 2b43f6368..d37f26493 100644
--- a/src/vhdl/vhdl-canon.adb
+++ b/src/vhdl/vhdl-canon.adb
@@ -607,8 +607,10 @@ package body Vhdl.Canon is
-- Signals read indirectly by subprograms called.
Canon_Extract_Sensitivity_From_Callees (Get_Callees_List (Proc), Res);
+ -- Reset Seen_Flag of proc and its callees.
Set_Seen_Flag (Proc, True);
Clear_Seen_Flag (Proc);
+
return Res;
end Canon_Extract_Sensitivity_Process;