From 6f3f640e0571fb8f31a8622da088a0435490c359 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 20 Jun 2017 05:45:24 +0200
Subject: ortho: add comments.

---
 src/ortho/mcode/ortho_code-x86-emits.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/ortho/mcode/ortho_code-x86-emits.adb')

diff --git a/src/ortho/mcode/ortho_code-x86-emits.adb b/src/ortho/mcode/ortho_code-x86-emits.adb
index 0e62eb6e3..4753aab85 100644
--- a/src/ortho/mcode/ortho_code-x86-emits.adb
+++ b/src/ortho/mcode/ortho_code-x86-emits.adb
@@ -1391,6 +1391,7 @@ package body Ortho_Code.X86.Emits is
       Gen_Call (Sym);
 
       if Abi.Flag_Sse2 and then not Flags.M64 and then Mode in Mode_Fp then
+         --  Convert return value from St0 to Xmm0.
          declare
             Sslot : constant Int32 := -Int32 (Cur_Subprg.Target.Fp_Slot);
          begin
-- 
cgit v1.2.3