paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed regvar bug in tcginnode.pass_2

Browse Source
This commit is contained in:
Jonas Maebe 2004-07-04 12:38:55 +00:00
parent 1f990337c3
commit d3f1b21fae
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ncgset.pas
View File

@ -376,12 +376,11 @@ implementation
if left.nodetype=ordconstn then
begin
location_force_reg(exprasmlist,right.location,opsize,true);
{ first SHR the register }
cg.a_op_const_reg(exprasmlist,OP_SHR,opsize,tordconstnode(left).value and 31,right.location.register);
{ then extract the lowest bit }
cg.a_op_const_reg(exprasmlist,OP_AND,opsize,1,right.location.register);
location.register:=cg.getintregister(exprasmlist,location.size);
cg.a_load_reg_reg(exprasmlist,opsize,location.size,right.location.register,location.register);
{ first SHR the register }
cg.a_op_const_reg_reg(exprasmlist,OP_SHR,opsize,tordconstnode(left).value and 31,right.location.register,location.register);
{ then extract the lowest bit }
cg.a_op_const_reg(exprasmlist,OP_AND,opsize,1,location.register);
end
else
begin
@ -971,7 +970,10 @@ begin
end.
{
$Log$
Revision 1.63 2004-06-20 08:55:29 florian
Revision 1.64 2004-07-04 12:38:55 jonas
* fixed regvar bug in tcginnode.pass_2
Revision 1.63 2004/06/20 08:55:29 florian
* logs truncated
Revision 1.62 2004/06/16 20:07:08 florian