* take care of po_noreturn in more cases

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47623 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 4 insertions, 0 deletions

diff --git a/compiler/ncgutil.pas b/compiler/ncgutil.pas
index a7c129ec82..e5f16bb920 100644
--- a/compiler/ncgutil.pas
+++ b/compiler/ncgutil.pas
@@ -870,6 +870,8 @@ implementation
 
     procedure gen_save_used_regs(list:TAsmList);
       begin
+        if po_noreturn in current_procinfo.procdef.procoptions then
+          exit;
         { Pure assembler routines need to save the registers themselves }
         if (po_assembler in current_procinfo.procdef.procoptions) then
           exit;
@@ -880,6 +882,8 @@ implementation
 
     procedure gen_restore_used_regs(list:TAsmList);
       begin
+        if po_noreturn in current_procinfo.procdef.procoptions then
+          exit;
         { Pure assembler routines need to save the registers themselves }
         if (po_assembler in current_procinfo.procdef.procoptions) then
           exit;