diff --git a/rtl/embedded/system.pp b/rtl/embedded/system.pp
index 95d085cbb9..d62c9ef159 100644
--- a/rtl/embedded/system.pp
+++ b/rtl/embedded/system.pp
@@ -197,6 +197,7 @@ const calculated_cmdline:Pchar=nil;
 {$endif FPC_HAS_FEATURE_SOFTFPU}
 {$endif FPUNONE}
 
+{$define FPC_SYSTEM_EXIT_NO_RETURN}
 {$I system.inc}
 
 {*****************************************************************************
diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index 1191725cf7..c677e0bcfd 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -1020,7 +1020,8 @@ end;
                           Error / Exit / ExitProc
 *****************************************************************************}
 
-Procedure system_exit;forward;
+Procedure system_exit;forward;{$ifdef FPC_SYSTEM_EXIT_NO_RETURN}noreturn;{$endif}
+
 {$ifdef FPC_HAS_FEATURE_HEAP}
 {$ifndef HAS_MEMORYMANAGER}
 //not needed if independant memory manager