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

* tabs replaces by spaces

Browse Source
This commit is contained in:
mazen 2002-10-10 20:23:57 +00:00
parent b44010f639
commit f8ed725882
1 changed files with 472 additions and 475 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
compiler/sparc/naddcpu.pas
View File

@ -1,13 +1,4 @@
{*****************************************************************************} {******************************************************************************
{ File : naddcpu.pas }
{ Author : Mazen NEIFER }
{ Project : Free Pascal Compiler (FPC) }
{ Creation date : 2002\07\14 }
{ Last modification date : 2002\07\26 }
{ Licence : GPL }
{ Bug report : mazen.neifer.01@supaero.org }
{*****************************************************************************}
{
$Id$ $Id$
Copyright (c) 2000-2002 by Florian Klaempfl Copyright (c) 2000-2002 by Florian Klaempfl
@ -140,26 +131,26 @@ procedure TSparcAddNode.emit_generic_code(op:TAsmOp;OpSize:TOpSize;unsigned,extr
hl4:TAsmLabel; hl4:TAsmLabel;
begin begin
{ at this point, left.location.loc should be LOC_REGISTER } { at this point, left.location.loc should be LOC_REGISTER }
IF right.location.loc=LOC_REGISTER if right.location.loc=LOC_REGISTER
THEN then
begin begin
{ right.location is a LOC_REGISTER } { right.location is a LOC_REGISTER }
{ when swapped another result register } { when swapped another result register }
IF(nodetype=subn)AND(nf_swaped IN flags) if(nodetype=subn)and(nf_swaped in flags)
THEN then
begin begin
IF extra_not if extra_not
THEN then
emit_reg(A_NOT,S_L,left.location.register); emit_reg(A_NOT,S_L,left.location.register);
emit_reg_reg(op,opsize,left.location.register,right.location.register); emit_reg_reg(op,opsize,left.location.register,right.location.register);
{ newly swapped also set swapped flag } { newly swapped also set swapped flag }
location_swap(left.location,right.location); location_swap(left.location,right.location);
toggleflag(nf_swaped); toggleflag(nf_swaped);
end end
ELSE else
begin begin
IF extra_not if extra_not
THEN then
emit_reg(A_NOT,S_L,right.location.register); emit_reg(A_NOT,S_L,right.location.register);
emit_reg_reg(op,opsize,right.location.register,left.location.register); emit_reg_reg(op,opsize,right.location.register,left.location.register);
end; end;
@ -305,8 +296,8 @@ procedures }
setdef: setdef:
begin begin
{normalsets are already handled in pass1} {normalsets are already handled in pass1}
IF(tsetdef(left.resulttype.def).settype<>smallset) if(tsetdef(left.resulttype.def).settype<>smallset)
THEN then
internalerror(200109041); internalerror(200109041);
InternalError(20020726);//second_addsmallset; InternalError(20020726);//second_addsmallset;
exit; exit;
@ -336,9 +327,9 @@ procedures }
((left.resulttype.def.deftype=enumdef)and(left.resulttype.def.size=4)) or ((left.resulttype.def.deftype=enumdef)and(left.resulttype.def.size=4)) or
((left.resulttype.def.deftype=orddef)and(torddef(left.resulttype.def).typ in [s32bit,u32bit])) or ((left.resulttype.def.deftype=orddef)and(torddef(left.resulttype.def).typ in [s32bit,u32bit])) or
((right.resulttype.def.deftype=orddef)and(torddef(right.resulttype.def).typ in [s32bit,u32bit])) ((right.resulttype.def.deftype=orddef)and(torddef(right.resulttype.def).typ in [s32bit,u32bit]))
THEN then
begin begin
CASE NodeType OF case NodeType of
addn: addn:
begin begin
op:=A_ADD; op:=A_ADD;
@ -533,3 +524,9 @@ procedure TSparcAddNode.pass_left_and_right;
begin begin
cAddNode:=TSparcAddNode; cAddNode:=TSparcAddNode;
end. end.
{
$Log$
Revision 1.4 2002-10-10 20:23:57 mazen
* tabs replaces by spaces
}