paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ CallRet2Call optimization

Browse Source 
git-svn-id: trunk@44192 -
This commit is contained in:
florian 2020-02-16 13:15:12 +00:00
parent ef3155c2ef
commit 42324235bd
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/x86/aoptx86.pas
View File

@ -5742,15 +5742,23 @@ unit aoptx86;
jmp procname
but do it only on level 4 because it destroys stack back traces
else if the subroutine is marked as no return, remove the ret
}
if (cs_opt_level4 in current_settings.optimizerswitches) and
if ((cs_opt_level4 in current_settings.optimizerswitches) or
(po_noreturn in current_procinfo.procdef.procoptions)) and
GetNextInstruction(p, hp1) and
MatchInstruction(hp1,A_RET,[S_NO]) and
(taicpu(hp1).ops=0) then
begin
taicpu(p).opcode := A_JMP;
taicpu(p).is_jmp := true;
DebugMsg(SPeepholeOptimization + 'CallRet2Jmp done',p);
if cs_opt_level4 in current_settings.optimizerswitches then
begin
taicpu(p).opcode := A_JMP;
taicpu(p).is_jmp := true;
DebugMsg(SPeepholeOptimization + 'CallRet2Jmp done',p);
end
else
DebugMsg(SPeepholeOptimization + 'CallRet2Call done',p);
asml.remove(hp1);
hp1.free;
Result:=true;