paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:19:28 +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 jmp procname
but do it only on level 4 because it destroys stack back traces 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 GetNextInstruction(p, hp1) and
MatchInstruction(hp1,A_RET,[S_NO]) and MatchInstruction(hp1,A_RET,[S_NO]) and
(taicpu(hp1).ops=0) then (taicpu(hp1).ops=0) then
begin begin
taicpu(p).opcode := A_JMP; if cs_opt_level4 in current_settings.optimizerswitches then
taicpu(p).is_jmp := true; begin
DebugMsg(SPeepholeOptimization + 'CallRet2Jmp done',p); 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); asml.remove(hp1);
hp1.free; hp1.free;
Result:=true; Result:=true;