paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 19:31:37 +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;
begin
result:=inherited pass_1;
{
{$ifdef dummy}
if not(assigned(result)) then
begin
unsigned:=not(is_signed(left.resultdef)) or
@ -240,7 +240,7 @@ interface
is_dynamic_array(left.resultdef)
) then
expectloc:=LOC_FLAGS;
}
{$endif dummy}
end;

4
compiler/avr/navrmat.pas
View File

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