diff options
| author | gingold | 2009-08-13 04:04:12 +0000 |
|---|---|---|
| committer | gingold | 2009-08-13 04:04:12 +0000 |
| commit | e6c8a0c41a5157233cca21af95ed5a73462719d4 (patch) | |
| tree | 63adf0b4c96a325b48dcfaebe9742313347fdd14 /translate/grt/grt-signals.adb | |
| parent | bb07aea45543efdb49a6d4b02a8f30b475aeda5c (diff) | |
| download | ghdl-e6c8a0c41a5157233cca21af95ed5a73462719d4.tar.gz ghdl-e6c8a0c41a5157233cca21af95ed5a73462719d4.tar.bz2 ghdl-e6c8a0c41a5157233cca21af95ed5a73462719d4.zip | |
Fix unaligned access.
Diffstat (limited to 'translate/grt/grt-signals.adb')
| -rw-r--r-- | translate/grt/grt-signals.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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 => |