paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2024-11-26 04:11:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Pierre Muller 2024-01-31 12:02:52 +01:00
parent dd6efefdbf
commit 7b492b9975
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/utils/dosbox/exitcode.pas
View File

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