From 5a7a8470fc91861aa85060a758523e2d1f161585 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 30 Dec 2016 19:11:43 +0100
Subject: translate: refactoring for ortho_info_type.

---
 src/vhdl/translate/trans-chap2.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/vhdl/translate/trans-chap2.adb')

diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb
index 4f729ddc1..139bf2223 100644
--- a/src/vhdl/translate/trans-chap2.adb
+++ b/src/vhdl/translate/trans-chap2.adb
@@ -1121,7 +1121,8 @@ package body Trans.Chap2 is
                          C => null,
                          Ortho_Type => Src.Ortho_Type,
                          Ortho_Ptr_Type => Src.Ortho_Ptr_Type,
-                         T => Src.T,
+                         B => Src.B,
+                         S => Src.S,
                          Type_Rti => Src.Type_Rti);
             pragma Assert (Src.C = null);
          when Kind_Object =>
-- 
cgit v1.2.3