From 3bee7636ddd6c3db41819f59f414ec608ff4bdf7 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Tue, 30 Jan 2024 18:02:06 +0100
Subject: [PATCH] Add command line in verbose mode
---
tests/utils/dosbox/dosbox_wrapper.pas | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/tests/utils/dosbox/dosbox_wrapper.pas b/tests/utils/dosbox/dosbox_wrapper.pas
index 0cfad9538e..97a2de12a7 100644
--- a/tests/utils/dosbox/dosbox_wrapper.pas
+++ b/tests/utils/dosbox/dosbox_wrapper.pas
@@ -427,7 +427,9 @@ begin
DosBoxProcess.Parameters.Add(ADosBoxDir + 'dosbox.conf');
if hide_execution then
DosBoxProcess.ShowWindow := swoHIDE;
- DosBoxProcess.Execute;
+ if verbose then
+ writeln('Starting ',ADosBoxBinaryPath+' -conf dosbox.conf');
+ DosBoxProcess.Execute;
repeat
Inc(Time);
if (Time > 10*dosbox_timeout) and do_exit then