paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 19:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug in g_flags2reg()

Browse Source 
* and yet more constant operation fixes :)
This commit is contained in:
Jonas Maebe 2002-08-06 07:12:05 +00:00
parent eff31e8524
commit e7d92a1aa7
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/powerpc/cgcpu.pas
View File

@ -451,7 +451,7 @@ const
{$q-} {$q-}
{$define overflowon} {$define overflowon}
{$endif} {$endif}
a_op_const_reg_reg(list,op,size,aword(-a),src,dst); a_op_const_reg_reg(list,OP_ADD,size,aword(-a),src,dst);
{$ifdef overflowon} {$ifdef overflowon}
{$q+} {$q+}
{$undef overflowon} {$undef overflowon}
@ -482,11 +482,13 @@ const
end end
else if (longint(a) >= 0) and else if (longint(a) >= 0) and
(longint(a) <= high(word)) and (longint(a) <= high(word)) and
(op <> OP_ADD) and
((op <> OP_AND) or ((op <> OP_AND) or
not gotrlwi) then not gotrlwi) then
begin begin
list.concat(taicpu.op_reg_reg_const(oplo,dst,src,word(a))); if (op = OP_ADD) then
list.concat(taicpu.op_reg_reg_const(oplo,dst,src,smallint(a)))
else
list.concat(taicpu.op_reg_reg_const(oplo,dst,src,word(a)));
exit; exit;
end; end;
{ all basic constant instructions also have a shifted form that } { all basic constant instructions also have a shifted form that }
@ -711,9 +713,8 @@ const
{ left } { left }
testbit := (32 - testbit) and 31; testbit := (32 - testbit) and 31;
{ extract bit } { extract bit }
if testbit <> 0 then list.concat(taicpu.op_reg_reg_const_const_const(
list.concat(taicpu.op_reg_reg_const_const_const( A_RLWINM,reg,reg,testbit,31,31));
A_RLWINM,reg,reg,testbit,31,31));
{ if we need the inverse, xor with 1 } { if we need the inverse, xor with 1 }
if not bitvalue then if not bitvalue then
list.concat(taicpu.op_reg_reg_const(A_XORI,reg,reg,1)); list.concat(taicpu.op_reg_reg_const(A_XORI,reg,reg,1));
@ -1445,7 +1446,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.34 2002-08-05 08:58:53 jonas Revision 1.35 2002-08-06 07:12:05 jonas
* fixed bug in g_flags2reg()
* and yet more constant operation fixes :)
Revision 1.34 2002/08/05 08:58:53 jonas
* fixed compilation problems * fixed compilation problems
Revision 1.33 2002/08/04 12:57:55 jonas Revision 1.33 2002/08/04 12:57:55 jonas