diff options
| author | Tristan Gingold | 2015-11-30 03:38:48 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-11-30 08:02:26 +0100 |
| commit | 245e5cc7a3ab248f71bf04d8e7a18543b6cabf0b (patch) | |
| tree | db2c9bbb1a61bb8c41d16ab8833fa0b0eb022332 /src/ortho | |
| parent | bc46c647a48f84d75f4fd9adcf9673cb1d581b5f (diff) | |
| download | ghdl-245e5cc7a3ab248f71bf04d8e7a18543b6cabf0b.tar.gz ghdl-245e5cc7a3ab248f71bf04d8e7a18543b6cabf0b.tar.bz2 ghdl-245e5cc7a3ab248f71bf04d8e7a18543b6cabf0b.zip | |
ortho_llvm: add comments.
Diffstat (limited to 'src/ortho')
| -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; |