瀏覽代碼

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

Pierre Muller 1 年之前
父節點
當前提交
7b492b9975
共有 1 個文件被更改,包括 1 次插入1 次删除
  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;