Browse Source

Add DosExitCode to DosError shl 16 to set ExitCode value in utils/dosbox/exitcode.pas program

Pierre Muller 1 year ago
parent
commit
7b492b9975
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/utils/dosbox/exitcode.pas

+ 1 - 1
tests/utils/dosbox/exitcode.pas

@@ -23,7 +23,7 @@ begin
   SwapVectors;
   SwapVectors;
 
 
   if DosError <> 0 then
   if DosError <> 0 then
-    ExitCode := DosError shl 16
+    ExitCode := DosError shl 16 + DosExitCode
   else
   else
     ExitCode := DosExitCode;
     ExitCode := DosExitCode;