Sfoglia il codice sorgente

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

Pierre Muller 1 anno fa
parent
commit
7b492b9975
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      tests/utils/dosbox/exitcode.pas

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

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