paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 11:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed boolean(<int>) on sparc

Browse Source
This commit is contained in:
florian 2004-08-23 20:45:52 +00:00
parent dd042a896b
commit 59a814d7e1
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/sparc/ncpucnv.pas
View File

@ -193,10 +193,10 @@ implementation
end
else
hreg2:=left.location.register;
hreg1 := cg.GetIntRegister(exprasmlist,opsize);
exprasmlist.concat(taicpu.op_reg_const_reg(A_SUB,hreg1,1,hreg2));
exprasmlist.concat(taicpu.op_reg_reg_reg(A_SUB,hreg1,hreg1,hreg2));
exprasmlist.concat(taicpu.op_reg_reg_reg(A_SUBCC,NR_G0,hreg2,NR_G0));
cg.UnGetRegister(exprasmlist,hreg2);
hreg1:=cg.GetIntRegister(exprasmlist,opsize);
exprasmlist.concat(taicpu.op_reg_const_reg(A_ADDX,NR_G0,0,hreg1));
end;
LOC_FLAGS :
begin
@ -235,7 +235,10 @@ begin
end.
{
$Log$
Revision 1.28 2004-08-22 20:11:38 florian
Revision 1.29 2004-08-23 20:45:52 florian
* fixed boolean(<int>) on sparc
Revision 1.28 2004/08/22 20:11:38 florian
* morphos now takes any pointer var. as libbase
* alignment for sparc fixed
* int -> double conversion on sparc fixed