From b9d4d9b141a45476bb05140d5280d1b35d75179b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 13 Jun 2015 22:48:26 +0000
Subject: [PATCH] * corrected type passed to a_bit_test_reg_loc_reg() (we
force left into a register of size opdef before)
git-svn-id: trunk@31056 -
---
compiler/ncgset.pas | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compiler/ncgset.pas b/compiler/ncgset.pas
index fa39e14b7d..0d7582ec78 100644
--- a/compiler/ncgset.pas
+++ b/compiler/ncgset.pas
@@ -485,7 +485,7 @@ implementation
hlcg.a_label(current_asmdata.CurrAsmList, l);
end;
- hlcg.a_bit_test_reg_loc_reg(current_asmdata.CurrAsmList,left.resultdef,right.resultdef,uopdef,
+ hlcg.a_bit_test_reg_loc_reg(current_asmdata.CurrAsmList,opdef,right.resultdef,uopdef,
pleftreg,right.location,location.register);
if needslabel then