Browse Source

Fix compilation of dosbox_wrapper.pas

Pierre Muller 1 month ago
parent
commit
870a91502a
1 changed files with 2 additions and 2 deletions
  1. 2 2
      tests/utils/dosbox/dosbox_wrapper.pas

+ 2 - 2
tests/utils/dosbox/dosbox_wrapper.pas

@@ -5,7 +5,7 @@ uses
 {$ifdef UseSignals}
 {$ifdef UseSignals}
   signals,
   signals,
 {$endif def UseSignals}
 {$endif def UseSignals}
-  testu, classes,
+  tsutils, tstypes, classes,
   Process;
   Process;
 
 
 const
 const
@@ -284,7 +284,7 @@ begin
     end
     end
   else if verbose then
   else if verbose then
     writeln('Analyzing source file ',SourceFileName);
     writeln('Analyzing source file ',SourceFileName);
-  if not GetConfig(SourceFileName,config) then
+  if not GetConfig('',SourceFileName,config) then
     exit;
     exit;
 
 
   RelativeToConfigMarker:=TObject.Create;
   RelativeToConfigMarker:=TObject.Create;