paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 12:51:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed nested comments

Browse Source 
git-svn-id: trunk@28457 -
This commit is contained in:
Jonas Maebe 2014-08-18 22:34:35 +00:00
parent 77f62cafbe
commit e7ac66a6c4
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/avr/navradd.pas
View File

@ -220,7 +220,7 @@ interface
function tavraddnode.pass_1 : tnode; function tavraddnode.pass_1 : tnode;
begin begin
result:=inherited pass_1; result:=inherited pass_1;
{ {$ifdef dummy}
if not(assigned(result)) then if not(assigned(result)) then
begin begin
unsigned:=not(is_signed(left.resultdef)) or unsigned:=not(is_signed(left.resultdef)) or
@ -240,7 +240,7 @@ interface
is_dynamic_array(left.resultdef) is_dynamic_array(left.resultdef)
) then ) then
expectloc:=LOC_FLAGS; expectloc:=LOC_FLAGS;
} {$endif dummy}
end; end;

4
compiler/avr/navrmat.pas
View File

@ -165,7 +165,7 @@ implementation
secondpass(right); secondpass(right);
location_copy(location,left.location); location_copy(location,left.location);
{ {$ifdef dummy}
{ put numerator in register } { put numerator in register }
size:=def_cgsize(left.resultdef); size:=def_cgsize(left.resultdef);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location, hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,
@ -201,7 +201,7 @@ implementation
{ simple comparison with 0) } { simple comparison with 0) }
if is_signed(right.resultdef) then if is_signed(right.resultdef) then
cg.g_overflowcheck(current_asmdata.CurrAsmList,location,resultdef); cg.g_overflowcheck(current_asmdata.CurrAsmList,location,resultdef);
} {$endif dummy}
end; end;
{***************************************************************************** {*****************************************************************************