paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 05:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not generate exit code for arm (thumb and thumb-2) if a routine is marked as noreturn

Browse Source 
git-svn-id: trunk@49506 -
This commit is contained in:
florian 2021-06-15 20:09:46 +00:00
parent 2c418b988c
commit 3f8aeadb91
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/cgcpu.pas
View File

@ -3849,6 +3849,10 @@ unit cgcpu;
stackmisalignment: pint;
stack_parameters : Boolean;
begin
{ a routine not returning needs no exit code,
we trust this directive as arm thumb is normally used if small code shall be generated }
if po_noreturn in current_procinfo.procdef.procoptions then
exit;
if not(nostackframe) then
begin
stack_parameters:=current_procinfo.procdef.stack_tainting_parameter(calleeside);
@ -5052,6 +5056,10 @@ unit cgcpu;
LocalSize : longint;
stackmisalignment: pint;
begin
{ a routine not returning needs no exit code,
we trust this directive as arm thumb is normally used if small code shall be generated }
if po_noreturn in current_procinfo.procdef.procoptions then
exit;
if not(nostackframe) then
begin
stackmisalignment:=0;