From 8c212ade722f0f46ab7e8d9fddfe5769ee6e2bed Mon Sep 17 00:00:00 2001
From: gingold
Date: Mon, 19 Jun 2006 19:29:29 +0000
Subject: bug fixes

---
 ortho/mcode/ortho_code-x86-insns.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/ortho/mcode/ortho_code-x86-insns.adb b/ortho/mcode/ortho_code-x86-insns.adb
index 86fcb3c..09dfdd7 100644
--- a/ortho/mcode/ortho_code-x86-insns.adb
+++ b/ortho/mcode/ortho_code-x86-insns.adb
@@ -1463,7 +1463,7 @@ package body Ortho_Code.X86.Insns is
                      end if;
                      Set_Expr_Reg (Stmt, Alloc_Reg (Reg_Res, Stmt, Pnum));
                      Link_Stmt (Stmt);
-                     return Stmt;
+                     return Reload (Stmt, Reg, Pnum);
                   when Mode_U64
                     | Mode_I64 =>
                      Insert_Arg (Gen_Insn (Right, R_Irm, Num));
@@ -1519,8 +1519,8 @@ package body Ortho_Code.X86.Insns is
             return Stmt;
          when OE_Conv =>
             declare
-               O_Mode : Mode_Type;
-               R_Mode : Mode_Type;
+               O_Mode : Mode_Type;      --  Operand mode
+               R_Mode : Mode_Type;      --  Result mode
             begin
                Left := Get_Expr_Operand (Stmt);
                O_Mode := Get_Expr_Mode (Left);
-- 
cgit