From dd191d5f5d6ac2dc48ed1ee4fb4d1bd09dce8b73 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 24 Jan 2014 06:54:45 +0100
Subject: mcode: add get_alignof_type.

---
 ortho/mcode/ortho_code-consts.adb | 7 +++++++
 ortho/mcode/ortho_code-consts.ads | 5 ++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

(limited to 'ortho')

diff --git a/ortho/mcode/ortho_code-consts.adb b/ortho/mcode/ortho_code-consts.adb
index c6d2020d8..1122b8e34 100644
--- a/ortho/mcode/ortho_code-consts.adb
+++ b/ortho/mcode/ortho_code-consts.adb
@@ -488,6 +488,13 @@ package body Ortho_Code.Consts is
       end if;
    end New_Alignof;
 
+   function Get_Alignof_Type (Cst : O_Cnode) return O_Tnode
+   is
+      function To_Cnode_Sizeof is new Ada.Unchecked_Conversion
+        (Cnode_Common, Cnode_Sizeof);
+   begin
+      return To_Cnode_Sizeof (Cnodes.Table (Cst + 1)).Atype;
+   end Get_Alignof_Type;
 
    function New_Offsetof (Field : O_Fnode; Rtype : O_Tnode) return O_Cnode is
    begin
diff --git a/ortho/mcode/ortho_code-consts.ads b/ortho/mcode/ortho_code-consts.ads
index 603a8a197..7059b569a 100644
--- a/ortho/mcode/ortho_code-consts.ads
+++ b/ortho/mcode/ortho_code-consts.ads
@@ -56,9 +56,12 @@ package Ortho_Code.Consts is
    --  Declaration for an address.
    function Get_Const_Decl (Cst : O_Cnode) return O_Dnode;
 
-   --  Get the type whose size is expected.
+   --  Get the type from an OC_Sizeof node.
    function Get_Sizeof_Type (Cst : O_Cnode) return O_Tnode;
 
+   --  Get the type from an OC_Alignof node.
+   function Get_Alignof_Type (Cst : O_Cnode) return O_Tnode;
+
    --  Get the value of a named literal.
    --function Get_Const_Literal (Cst : O_Cnode) return Uns32;
 
-- 
cgit v1.2.3