From 245e5cc7a3ab248f71bf04d8e7a18543b6cabf0b Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Mon, 30 Nov 2015 03:38:48 +0100
Subject: ortho_llvm: add comments.

---
 src/ortho/llvm/ortho_llvm.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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;
-- 
cgit