paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-18 22:20:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed the missing warnings for unused variables at -O3, when one of the new

Browse Source 
modify-in-place inline nodes are used

git-svn-id: trunk@35773 -
This commit is contained in:
nickysn 2017-04-11 14:25:57 +00:00
parent 4697a653a4
commit 5bb77905cd
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/nld.pas
View File

@ -583,8 +583,8 @@ implementation
newinlinenodetype:=in_dec_x; newinlinenodetype:=in_dec_x;
result:=cinlinenode.createintern( result:=cinlinenode.createintern(
newinlinenodetype,false,ccallparanode.create( newinlinenodetype,false,ccallparanode.create(
left,nil)); tinlinenode(right).left,nil));
left:=nil; tinlinenode(right).left:=nil;
exit; exit;
end; end;
if cs_opt_level3 in current_settings.optimizerswitches then if cs_opt_level3 in current_settings.optimizerswitches then
@ -620,12 +620,12 @@ implementation
if right.nodetype in [addn,subn] then if right.nodetype in [addn,subn] then
result:=cinlinenode.createintern( result:=cinlinenode.createintern(
newinlinenodetype,false,ccallparanode.create( newinlinenodetype,false,ccallparanode.create(
left,ccallparanode.create(taddnode(right).right,nil))) taddnode(right).left,ccallparanode.create(taddnode(right).right,nil)))
else else
result:=cinlinenode.createintern( result:=cinlinenode.createintern(
newinlinenodetype,false,ccallparanode.create( newinlinenodetype,false,ccallparanode.create(
taddnode(right).right,ccallparanode.create(left,nil))); taddnode(right).right,ccallparanode.create(taddnode(right).left,nil)));
left:=nil; taddnode(right).left:=nil;
taddnode(right).right:=nil; taddnode(right).right:=nil;
exit; exit;
end; end;
@ -674,12 +674,12 @@ implementation
if ttypeconvnode(right).left.nodetype in [addn,subn] then if ttypeconvnode(right).left.nodetype in [addn,subn] then
result:=cinlinenode.createintern( result:=cinlinenode.createintern(
newinlinenodetype,false,ccallparanode.create( newinlinenodetype,false,ccallparanode.create(
left,ccallparanode.create(taddnode(ttypeconvnode(right).left).right,nil))) ttypeconvnode(taddnode(ttypeconvnode(right).left).left).left,ccallparanode.create(taddnode(ttypeconvnode(right).left).right,nil)))
else else
result:=cinlinenode.createintern( result:=cinlinenode.createintern(
newinlinenodetype,false,ccallparanode.create( newinlinenodetype,false,ccallparanode.create(
taddnode(ttypeconvnode(right).left).right,ccallparanode.create(left,nil))); taddnode(ttypeconvnode(right).left).right,ccallparanode.create(ttypeconvnode(taddnode(ttypeconvnode(right).left).left).left,nil)));
left:=nil; ttypeconvnode(taddnode(ttypeconvnode(right).left).left).left:=nil;
taddnode(ttypeconvnode(right).left).right:=nil; taddnode(ttypeconvnode(right).left).right:=nil;
exit; exit;
end; end;
@ -712,12 +712,12 @@ implementation
if right.nodetype=addn then if right.nodetype=addn then
result:=cinlinenode.createintern( result:=cinlinenode.createintern(
newinlinenodetype,false,ccallparanode.create( newinlinenodetype,false,ccallparanode.create(
left,ccallparanode.create(taddnode(right).left,nil))) taddnode(right).right,ccallparanode.create(taddnode(right).left,nil)))
else else
result:=cinlinenode.createintern( result:=cinlinenode.createintern(
newinlinenodetype,false,ccallparanode.create( newinlinenodetype,false,ccallparanode.create(
taddnode(right).left,ccallparanode.create(left,nil))); taddnode(right).left,ccallparanode.create(taddnode(right).right,nil)));
left:=nil; taddnode(right).right:=nil;
taddnode(right).left:=nil; taddnode(right).left:=nil;
exit; exit;
end; end;
@ -738,8 +738,8 @@ implementation
else else
newinlinenodetype:=in_neg_assign_x; newinlinenodetype:=in_neg_assign_x;
result:=cinlinenode.createintern( result:=cinlinenode.createintern(
newinlinenodetype,false,left); newinlinenodetype,false,tunarynode(right).left);
left:=nil; tunarynode(right).left:=nil;
exit; exit;
end; end;
{ replace i:=not i by in_not_assign_x(i) { replace i:=not i by in_not_assign_x(i)
@ -770,8 +770,8 @@ implementation
else else
newinlinenodetype:=in_neg_assign_x; newinlinenodetype:=in_neg_assign_x;
result:=cinlinenode.createintern( result:=cinlinenode.createintern(
newinlinenodetype,false,left); newinlinenodetype,false,ttypeconvnode(tunarynode(ttypeconvnode(right).left).left).left);
left:=nil; ttypeconvnode(tunarynode(ttypeconvnode(right).left).left).left:=nil;
exit; exit;
end; end;
end; end;