diff --git a/rtl/embedded/system.pp b/rtl/embedded/system.pp
index 8aefb51b56..c0ab330e80 100644
--- a/rtl/embedded/system.pp
+++ b/rtl/embedded/system.pp
@@ -130,7 +130,11 @@ procedure haltproc(e:longint);cdecl;external name '_haltproc';
 
 procedure System_exit;
 begin
+{$ifdef FPC_HAS_FEATURE_EXITCODE}
   haltproc(ExitCode);
+{$else FPC_HAS_FEATURE_EXITCODE}
+  haltproc(0);
+{$endif FPC_HAS_FEATURE_EXITCODE}
 End;