From e6001445a14d5e96db78ff56c68d8ae96dec0968 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 8 Mar 2014 07:04:05 +0100
Subject: Share spec of ortho_nodes, adjust code.

---
 ortho/debug/ortho_debug.adb | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

(limited to 'ortho/debug/ortho_debug.adb')

diff --git a/ortho/debug/ortho_debug.adb b/ortho/debug/ortho_debug.adb
index a1ef7b82a..8285a6473 100644
--- a/ortho/debug/ortho_debug.adb
+++ b/ortho/debug/ortho_debug.adb
@@ -39,8 +39,6 @@ package body Ortho_Debug is
       ON_And => OE_And,
       ON_Or => OE_Or,
       ON_Xor => OE_Xor,
-      ON_And_Then => OE_And_Then,
-      ON_Or_Else => OE_Or_Else,
 
       --  Monadic operations.
       ON_Not => OE_Not,
@@ -439,7 +437,7 @@ package body Ortho_Debug is
                                        S_Type => Atype);
    end New_Alignof;
 
-   function New_Offsetof (Rec_Type : O_Tnode; Field : O_Fnode; Rtype : O_Tnode)
+   function New_Offsetof (Atype : O_Tnode; Field : O_Fnode; Rtype : O_Tnode)
                          return O_Cnode
    is
       subtype O_Cnode_Offsetof_Type is O_Cnode_Type (OC_Offsetof_Lit);
@@ -449,7 +447,7 @@ package body Ortho_Debug is
       then
          raise Type_Error;
       end if;
-      if Field.Parent /= Rec_Type then
+      if Field.Parent /= Atype then
          raise Type_Error;
       end if;
       return new O_Cnode_Offsetof_Type'(Kind => OC_Offsetof_Lit,
@@ -1269,9 +1267,6 @@ package body Ortho_Debug is
       Add_Decl (Res);
    end New_Const_Decl;
 
-   --  Const is not modified
-   pragma Warnings (Off, "*is not modified");
-
    procedure Start_Const_Value (Const : in out O_Dnode)
    is
       subtype O_Dnode_Const_Value is O_Dnode_Type (ON_Const_Value);
@@ -1321,8 +1316,6 @@ package body Ortho_Debug is
       Const.Const_Value.Value := Val;
    end Finish_Const_Value;
 
-   pragma Warnings (On, "*is not modified");
-
    procedure New_Var_Decl
      (Res : out O_Dnode;
       Ident : O_Ident;
-- 
cgit v1.2.3