From f74185d729e80fb2073375a6c4c39081209e914f Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sun, 26 Jan 2014 07:50:15 +0100
Subject: Make ghdl_rti_type an address. Remove union from translation.

LLVM preliminary work.
---
 ortho/debug/ortho_debug.adb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'ortho/debug')

diff --git a/ortho/debug/ortho_debug.adb b/ortho/debug/ortho_debug.adb
index 023729b..ba02904 100644
--- a/ortho/debug/ortho_debug.adb
+++ b/ortho/debug/ortho_debug.adb
@@ -410,7 +410,9 @@ package body Ortho_Debug is
    is
       subtype O_Cnode_Sizeof_Type is O_Cnode_Type (OC_Sizeof_Lit);
    begin
-      if Rtype.Kind /= ON_Unsigned_Type then
+      if Rtype.Kind /= ON_Unsigned_Type
+        and then Rtype.Kind /= ON_Access_Type
+      then
          raise Type_Error;
       end if;
       Check_Complete_Type (Atype);
@@ -442,7 +444,9 @@ package body Ortho_Debug is
    is
       subtype O_Cnode_Offsetof_Type is O_Cnode_Type (OC_Offsetof_Lit);
    begin
-      if Rtype.Kind /= ON_Unsigned_Type then
+      if Rtype.Kind /= ON_Unsigned_Type
+        and then Rtype.Kind /= ON_Access_Type
+      then
          raise Type_Error;
       end if;
       if Field.Parent /= Rec_Type then
-- 
cgit