diff options
| -rw-r--r-- | ortho/mcode/binary_file.adb | 2 | ||||
| -rw-r--r-- | ortho/mcode/ortho_code-x86-insns.adb | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/ortho/mcode/binary_file.adb b/ortho/mcode/binary_file.adb index 3a166d9..6043d73 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 309d8f2..c218a9a 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); |