From ea4af39b13b307f0f7cfdf7b5a3dd06458b77ef7 Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@durdin.net>
Date: Sat, 2 Sep 2023 07:11:18 +0400
Subject: [PATCH] chore(developer): kmcomp to build with kmcwrapper

---
 developer/src/kmcomp/kccompileproject.pas | 2 +-
 developer/src/kmcomp/kmcomp.dpr           | 5 +++--
 developer/src/kmcomp/kmcomp.dproj         | 1 +
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/developer/src/kmcomp/kccompileproject.pas b/developer/src/kmcomp/kccompileproject.pas
index 2c401888b7..1bc4a5cc90 100644
--- a/developer/src/kmcomp/kccompileproject.pas
+++ b/developer/src/kmcomp/kccompileproject.pas
@@ -109,7 +109,7 @@ begin
           if not kps.Clean then Exit;
         end
         else
-          if not kps.CompilePackage(nil, False) then Exit;
+          if not kps.CompilePackage then Exit;
         Found := True;
       end;
 
diff --git a/developer/src/kmcomp/kmcomp.dpr b/developer/src/kmcomp/kmcomp.dpr
index 30204a63db..dd7fff9c2e 100644
--- a/developer/src/kmcomp/kmcomp.dpr
+++ b/developer/src/kmcomp/kmcomp.dpr
@@ -28,7 +28,7 @@ uses
   utilsystem in '..\..\..\common\windows\delphi\general\utilsystem.pas',
   utildir in '..\..\..\common\windows\delphi\general\utildir.pas',
   utilkeyboard in '..\..\..\common\windows\delphi\keyboards\utilkeyboard.pas',
-  unicode in '..\..\..\common\windows\delphi\general\Unicode.pas',
+  Unicode in '..\..\..\common\windows\delphi\general\Unicode.pas',
   utilhttp in '..\..\..\common\windows\delphi\general\utilhttp.pas',
   GetOsVersion in '..\..\..\common\windows\delphi\general\GetOsVersion.pas',
   UfrmTike in '..\tike\main\UfrmTike.pas' {TikeForm: TTntForm},
@@ -116,7 +116,8 @@ uses
   Keyman.Developer.System.Project.UrlRenderer in '..\tike\project\Keyman.Developer.System.Project.UrlRenderer.pas',
   Keyman.Developer.System.ValidateRepoChanges in 'Keyman.Developer.System.ValidateRepoChanges.pas',
   Keyman.Developer.System.KeymanDeveloperPaths in '..\tike\main\Keyman.Developer.System.KeymanDeveloperPaths.pas',
-  Keyman.Developer.System.ValidateKpsFile in '..\common\delphi\compiler\Keyman.Developer.System.ValidateKpsFile.pas';
+  Keyman.Developer.System.ValidateKpsFile in '..\common\delphi\compiler\Keyman.Developer.System.ValidateKpsFile.pas',
+  Keyman.Developer.System.KmcWrapper in '..\tike\compile\Keyman.Developer.System.KmcWrapper.pas';
 
 {$R icons.RES}
 {$R version.res}
diff --git a/developer/src/kmcomp/kmcomp.dproj b/developer/src/kmcomp/kmcomp.dproj
index 36c16e3535..bb802bc5f7 100644
--- a/developer/src/kmcomp/kmcomp.dproj
+++ b/developer/src/kmcomp/kmcomp.dproj
@@ -266,6 +266,7 @@
         <DCCReference Include="Keyman.Developer.System.ValidateRepoChanges.pas"/>
         <DCCReference Include="..\tike\main\Keyman.Developer.System.KeymanDeveloperPaths.pas"/>
         <DCCReference Include="..\common\delphi\compiler\Keyman.Developer.System.ValidateKpsFile.pas"/>
+        <DCCReference Include="..\tike\compile\Keyman.Developer.System.KmcWrapper.pas"/>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>