Commit 46cd5ac2 authored by Jerome Hugues's avatar Jerome Hugues

* Reset list of theorems to run

parent 18ff7fb6
......@@ -148,7 +148,6 @@ package body Ocarina.Analyzer.REAL is
procedure Register_Library_Theorems (REAL_Library : Node_Id) is
pragma Assert (Kind (REAL_Library) = K_Root_Node);
package RNU renames Ocarina.ME_REAL.REAL_Tree.Nutils;
N : Node;
T : Node_Id;
......@@ -211,7 +210,9 @@ package body Ocarina.Analyzer.REAL is
else
-- Otherwise, iterate over Library theorems and fetch the
-- corresponding theorems.
-- corresponding theorem.
RNU.Node_List.Init (To_Run_Theorem_List); -- Reset list of theorems
for J in RNU.Node_List.First .. RNU.Node_List.Last (Library_Theorems)
loop
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment