From e6c8a0c41a5157233cca21af95ed5a73462719d4 Mon Sep 17 00:00:00 2001
From: gingold
Date: Thu, 13 Aug 2009 04:04:12 +0000
Subject: Fix unaligned access.

---
 translate/grt/grt-signals.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'translate')

diff --git a/translate/grt/grt-signals.adb b/translate/grt/grt-signals.adb
index 505b281..1cdd1b5 100644
--- a/translate/grt/grt-signals.adb
+++ b/translate/grt/grt-signals.adb
@@ -3052,8 +3052,8 @@ package body Grt.Signals is
                Mark_Active (Sig);
 
                Trans := Sig.S.Drivers (0).Last_Trans;
-               Sig.Driving_Value := Trans.Val_Ptr.all;
-               Sig.S.Drivers (0).First_Trans.Val := Trans.Val_Ptr.all;
+               Direct_Assign (Sig.Driving_Value, Trans.Val_Ptr, Sig.Mode);
+               Sig.S.Drivers (0).First_Trans.Val := Sig.Driving_Value;
                Set_Effective_Value (Sig, Sig.Driving_Value);
 
             when Net_One_Resolved =>
-- 
cgit