Преглед на файлове

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;
   SwapVectors;
 
 
   if DosError <> 0 then
   if DosError <> 0 then
-    ExitCode := DosError shl 16
+    ExitCode := DosError shl 16 + DosExitCode
   else
   else
     ExitCode := DosExitCode;
     ExitCode := DosExitCode;