aboutsummaryrefslogtreecommitdiffstats
path: root/ortho/mcode/ortho_code-x86-abi.adb
diff options
context:
space:
mode:
Diffstat (limited to 'ortho/mcode/ortho_code-x86-abi.adb')
-rw-r--r--ortho/mcode/ortho_code-x86-abi.adb3
1 files changed, 3 insertions, 0 deletions
diff --git a/ortho/mcode/ortho_code-x86-abi.adb b/ortho/mcode/ortho_code-x86-abi.adb
index 99b75e945..bb06d51d4 100644
--- a/ortho/mcode/ortho_code-x86-abi.adb
+++ b/ortho/mcode/ortho_code-x86-abi.adb
@@ -588,6 +588,9 @@ package body Ortho_Code.X86.Abi is
is
use Ortho_Code.Debug;
begin
+ -- Alignment of doubles is platform dependent.
+ Mode_Align (Mode_F64) := X86.Flags.Mode_F64_Align;
+
if Flag_Debug_Hli then
Disps.Init;
else