1
------------------------------------------------------------------------------
2
--                                                                          --
3
--                           OCARINA COMPONENTS                             --
4
--                                                                          --
5
--          O C A R I N A . B A C K E N D S . R E A L . D E B U G           --
6
--                                                                          --
7
--                                 B o d y                                  --
8
--                                                                          --
9
--                  Copyright (C) 2009 Telecom ParisTech,                   --
10
--                 2010-2019 ESA & ISAE, 2019-2020 OpenAADL                 --
11
--                                                                          --
12
-- Ocarina  is free software; you can redistribute it and/or modify under   --
13
-- terms of the  GNU General Public License as published  by the Free Soft- --
14
-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
15
-- sion. Ocarina is distributed in the hope that it will be useful, but     --
16
-- WITHOUT ANY WARRANTY; without even the implied warranty of               --
17
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     --
18
--                                                                          --
19
-- As a special exception under Section 7 of GPL version 3, you are granted --
20
-- additional permissions described in the GCC Runtime Library Exception,   --
21
-- version 3.1, as published by the Free Software Foundation.               --
22
--                                                                          --
23
-- You should have received a copy of the GNU General Public License and    --
24
-- a copy of the GCC Runtime Library Exception along with this program;     --
25
-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
26
-- <http://www.gnu.org/licenses/>.                                          --
27
--                                                                          --
28
--                    Ocarina is maintained by OpenAADL team                --
29
--                              (info@openaadl.org)                         --
30
--                                                                          --
31
------------------------------------------------------------------------------
32

33
with Ocarina.Output;
34
with Ocarina.Namet;
35
with Ocarina.ME_REAL.REAL_Tree.Nodes;
36

37
package body Ocarina.Backends.REAL.Debug is
38
   use Ocarina.ME_REAL.REAL_Tree.Nodes;
39
   use Ocarina.Namet;
40
   use Ocarina.Output;
41

42
   --------------------
43
   -- Print_All_Sets --
44
   --------------------
45

46 0
   procedure Print_All_Sets (R : Node_Id) is
47 0
      pragma Assert (Kind (R) = K_Theorem);
48

49 0
      N : Node_Id;
50
   begin
51 0
      N := First_Node (Used_Set (R));
52 0
      while Present (N) loop
53

54 0
         Write_Line (Get_Name_String (Name (Identifier (N))));
55

56 0
         Display_Set (Set_Array (Integer (Index (Annotation (N)))));
57

58 0
         Write_Line ("...");
59

60 0
         N := Next_Node (N);
61 0
      end loop;
62 0
   end Print_All_Sets;
63

64
end Ocarina.Backends.REAL.Debug;

Read our documentation on viewing source code .

Loading