From 73fa859a477a27dacaf905c2da0b9a3afd32e37a Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 19 Jan 2014 19:04:12 +0100 Subject: mcode: fix missing clobber for 32 bit mul/div. --- ortho/mcode/binary_file.adb | 2 +- ortho/mcode/ortho_code-x86-insns.adb | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) (limited to 'ortho/mcode') diff --git a/ortho/mcode/binary_file.adb b/ortho/mcode/binary_file.adb index 3a166d9af..6043d7319 100644 --- a/ortho/mcode/binary_file.adb +++ b/ortho/mcode/binary_file.adb @@ -319,7 +319,7 @@ package body Binary_File is procedure End_Insn is - Str : String (1 .. 128); + Str : String (1 .. 256); Len : Natural; Insn_Len : Natural; begin diff --git a/ortho/mcode/ortho_code-x86-insns.adb b/ortho/mcode/ortho_code-x86-insns.adb index 309d8f2af..c218a9ae0 100644 --- a/ortho/mcode/ortho_code-x86-insns.adb +++ b/ortho/mcode/ortho_code-x86-insns.adb @@ -1646,8 +1646,10 @@ package body Ortho_Code.X86.Insns is end if; if Kind = OE_Div_Ov or Kind = OE_Mul_Ov then Reg_Res := R_Ax; + Clobber_R32 (R_Dx); else Reg_Res := R_Dx; + Clobber_R32 (R_Ax); end if; Set_Expr_Reg (Stmt, Alloc_Reg (Reg_Res, Stmt, Pnum)); Link_Stmt (Stmt); -- cgit v1.2.3