paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 12:40:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed generated code for compare instructions

Browse Source
This commit is contained in:
mazen 2003-05-07 15:05:37 +00:00
parent 518e7109a5
commit 5d902c46cb
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/sparc/ncpuadd.pas
View File

@ -424,7 +424,7 @@ procedure TSparcAddNode.emit_compare(unsigned:boolean);
if(right.location.loc=LOC_CONSTANT)
then
begin
{$ifdef dummy}
{$ifdef ExtDebug}
if (right.location.size in [OS_64,OS_S64]) and (hi(right.location.valueqword)<>0) and ((hi(right.location.valueqword)<>$ffffffff) or unsigned)
then
internalerror(2002080301);
@ -457,9 +457,7 @@ procedure TSparcAddNode.emit_compare(unsigned:boolean);
useconst := false;
location.loc := LOC_FLAGS;
location.resflags:=getresflags(False);
if not unsigned
then
op:=A_CMP;
op:=A_CMP;
if (right.location.loc = LOC_CONSTANT)
then
if useconst
@ -1131,7 +1129,11 @@ procedures }
then
location_force_reg(exprasmlist,right.location,opsize_2_cgsize[opsize],false);
left_must_be_reg(OpSize,false);
emit_generic_code(op,opsize,unsigned,extra_not,mboverflow);
if not cmpOp
then
emit_generic_code(op,opsize,unsigned,extra_not,mboverflow)
else
emit_compare(unsigned);
location_freetemp(exprasmlist,right.location);
location_release(exprasmlist,right.location);
if cmpop and(left.location.loc<>LOC_CREGISTER)
@ -1179,7 +1181,10 @@ begin
end.
{
$Log$
Revision 1.12 2003-05-06 21:37:58 mazen
Revision 1.13 2003-05-07 15:05:37 mazen
* fixed generated code for compare instructions
Revision 1.12 2003/05/06 21:37:58 mazen
* adding emit_compare trying fixing compare bugs
Revision 1.11 2003/03/10 21:59:54 mazen