Program exit code support in KoW

2025-09-21 22:53:51 +02:00 · 2021-01-10 03:56:22 +03:00
parent d7a6530b18
commit fa788aeb37
3 changed files with 17 additions and 6 deletions
--- a/Lib/System.pas
+++ b/Lib/System.pas
@@ -447,10 +447,12 @@ asm
        SUB EDX, EAX
        CALL ErrorMessage

-{$IFNDEF KolibriOS}
-        POP EAX
-{$ENDIF}
+{$IFDEF KolibriOS}
        JMP _Halt0
+{$ELSE}
+        POP EAX
+        JMP _Halt
+{$ENDIF}
 end;

 {$IFDEF KolibriOS}