paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 10:30:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ preserve the node fileinfo and verbosity properties from the previous

Browse Source 
assignment node when applying the optloadmodifystore node transformations.
  This keeps the source line info intact in the -al asm output (and probably
  makes the optimization debugger friendly, although this isn't tested and not
  at all guaranteed for all the other -O3 level optimizations)

git-svn-id: trunk@36256 -
This commit is contained in:
nickysn 2017-05-19 15:40:48 +00:00
parent d46c8886de
commit 720ac63a28
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/optloadmodifystore.pas
View File

@ -67,6 +67,8 @@ unit optloadmodifystore;
newinlinenodetype,false,ccallparanode.create(
tinlinenode(right).left,nil));
result.localswitches:=localswitches;
result.fileinfo:=fileinfo;
result.verbosity:=verbosity;
tinlinenode(right).left:=nil;
exit;
end;
@ -107,6 +109,8 @@ unit optloadmodifystore;
newinlinenodetype,false,ccallparanode.create(
taddnode(right).right,ccallparanode.create(taddnode(right).left,nil)));
result.localswitches:=localswitches;
result.fileinfo:=fileinfo;
result.verbosity:=verbosity;
taddnode(right).left:=nil;
taddnode(right).right:=nil;
exit;
@ -162,6 +166,8 @@ unit optloadmodifystore;
newinlinenodetype,false,ccallparanode.create(
taddnode(ttypeconvnode(right).left).right,ccallparanode.create(ttypeconvnode(taddnode(ttypeconvnode(right).left).left).left,nil)));
result.localswitches:=localswitches;
result.fileinfo:=fileinfo;
result.verbosity:=verbosity;
ttypeconvnode(taddnode(ttypeconvnode(right).left).left).left:=nil;
taddnode(ttypeconvnode(right).left).right:=nil;
exit;
@ -200,6 +206,8 @@ unit optloadmodifystore;
newinlinenodetype,false,ccallparanode.create(
taddnode(right).left,ccallparanode.create(taddnode(right).right,nil)));
result.localswitches:=localswitches;
result.fileinfo:=fileinfo;
result.verbosity:=verbosity;
taddnode(right).right:=nil;
taddnode(right).left:=nil;
exit;
@ -252,6 +260,8 @@ unit optloadmodifystore;
newinlinenodetype,false,ccallparanode.create(
taddnode(ttypeconvnode(right).left).left,ccallparanode.create(ttypeconvnode(taddnode(ttypeconvnode(right).left).right).left,nil)));
result.localswitches:=localswitches;
result.fileinfo:=fileinfo;
result.verbosity:=verbosity;
ttypeconvnode(taddnode(ttypeconvnode(right).left).right).left:=nil;
taddnode(ttypeconvnode(right).left).left:=nil;
exit;
@ -285,6 +295,8 @@ unit optloadmodifystore;
newinlinenodetype,false,ccallparanode.create(
tshlshrnode(right).right,ccallparanode.create(tshlshrnode(right).left,nil)));
result.localswitches:=localswitches;
result.fileinfo:=fileinfo;
result.verbosity:=verbosity;
tshlshrnode(right).left:=nil;
tshlshrnode(right).right:=nil;
exit;
@ -331,6 +343,8 @@ unit optloadmodifystore;
newinlinenodetype,false,ccallparanode.create(
tshlshrnode(ttypeconvnode(right).left).right,ccallparanode.create(ttypeconvnode(tshlshrnode(ttypeconvnode(right).left).left).left,nil)));
result.localswitches:=localswitches;
result.fileinfo:=fileinfo;
result.verbosity:=verbosity;
ttypeconvnode(tshlshrnode(ttypeconvnode(right).left).left).left:=nil;
tshlshrnode(ttypeconvnode(right).left).right:=nil;
exit;
@ -355,6 +369,8 @@ unit optloadmodifystore;
result:=cinlinenode.createintern(
newinlinenodetype,false,tunarynode(right).left);
result.localswitches:=localswitches;
result.fileinfo:=fileinfo;
result.verbosity:=verbosity;
tunarynode(right).left:=nil;
exit;
end;
@ -388,6 +404,8 @@ unit optloadmodifystore;
result:=cinlinenode.createintern(
newinlinenodetype,false,ttypeconvnode(tunarynode(ttypeconvnode(right).left).left).left);
result.localswitches:=localswitches;
result.fileinfo:=fileinfo;
result.verbosity:=verbosity;
ttypeconvnode(tunarynode(ttypeconvnode(right).left).left).left:=nil;
exit;
end;