diff options
Diffstat (limited to 'src/ortho/llvm/ortho_llvm.adb')
| -rw-r--r-- | src/ortho/llvm/ortho_llvm.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ortho/llvm/ortho_llvm.adb b/src/ortho/llvm/ortho_llvm.adb index ed11b5f..c0e59bd 100644 --- a/src/ortho/llvm/ortho_llvm.adb +++ b/src/ortho/llvm/ortho_llvm.adb @@ -1180,7 +1180,7 @@ package body Ortho_LLVM is PositionBuilderAtEnd (Builder, Normal_Bb); Rm := BuildSRem (Builder, L, R, Empty_Cstring); - -- if R = 0 then + -- if Rm = 0 then -- result := 0 -- else Cond := BuildICmp @@ -1189,7 +1189,7 @@ package body Ortho_LLVM is Vals (2) := ConstNull (Res_Type); BBs (2) := Normal_Bb; - -- if L xor R < 0 then + -- if (L xor R) < 0 then -- result := Rm + R -- else -- result := Rm; |